home *** CD-ROM | disk | FTP | other *** search
/ Programming Microsoft Visual Basic .NET / Programming Microsoft Visual Basic .NET (Microsoft Press)(X08-78517)(2002).bin / setup / vbnet / 17 controls / controlsdemo / startupform.vb < prev    next >
Encoding:
Text File  |  2001-09-21  |  4.7 KB  |  128 lines
  1. Imports System.Drawing.Printing
  2.  
  3. Public Class Form1
  4.     Inherits System.Windows.Forms.Form
  5.  
  6. #Region " Windows Form Designer generated code "
  7.  
  8.     Public Sub New()
  9.         MyBase.New()
  10.  
  11.         'This call is required by the Windows Form Designer.
  12.         InitializeComponent()
  13.  
  14.         'Add any initialization after the InitializeComponent() call
  15.  
  16.     End Sub
  17.  
  18.     'Form overrides dispose to clean up the component list.
  19.     Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
  20.         If disposing Then
  21.             If Not (components Is Nothing) Then
  22.                 components.Dispose()
  23.             End If
  24.         End If
  25.         MyBase.Dispose(disposing)
  26.     End Sub
  27.     Friend WithEvents Button1 As System.Windows.Forms.Button
  28.     Friend WithEvents Button2 As System.Windows.Forms.Button
  29.     Friend WithEvents Button3 As System.Windows.Forms.Button
  30.     Friend WithEvents Button4 As System.Windows.Forms.Button
  31.     Friend WithEvents Button5 As System.Windows.Forms.Button
  32.                                                                                                     Private components As System.ComponentModel.IContainer
  33.  
  34.     'Required by the Windows Form Designer
  35.  
  36.     'NOTE: The following procedure is required by the Windows Form Designer
  37.     'It can be modified using the Windows Form Designer.  
  38.     'Do not modify it using the code editor.
  39.     <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
  40.         Me.Button1 = New System.Windows.Forms.Button()
  41.         Me.Button2 = New System.Windows.Forms.Button()
  42.         Me.Button3 = New System.Windows.Forms.Button()
  43.         Me.Button4 = New System.Windows.Forms.Button()
  44.         Me.Button5 = New System.Windows.Forms.Button()
  45.         Me.SuspendLayout()
  46.         '
  47.         'Button1
  48.         '
  49.         Me.Button1.Location = New System.Drawing.Point(40, 16)
  50.         Me.Button1.Name = "Button1"
  51.         Me.Button1.Size = New System.Drawing.Size(176, 40)
  52.         Me.Button1.TabIndex = 0
  53.         Me.Button1.Text = "ListBox control"
  54.         '
  55.         'Button2
  56.         '
  57.         Me.Button2.Location = New System.Drawing.Point(40, 72)
  58.         Me.Button2.Name = "Button2"
  59.         Me.Button2.Size = New System.Drawing.Size(176, 40)
  60.         Me.Button2.TabIndex = 0
  61.         Me.Button2.Text = "Provider controls"
  62.         '
  63.         'Button3
  64.         '
  65.         Me.Button3.Location = New System.Drawing.Point(40, 128)
  66.         Me.Button3.Name = "Button3"
  67.         Me.Button3.Size = New System.Drawing.Size(176, 40)
  68.         Me.Button3.TabIndex = 0
  69.         Me.Button3.Text = "Splitter control"
  70.         '
  71.         'Button4
  72.         '
  73.         Me.Button4.Location = New System.Drawing.Point(40, 184)
  74.         Me.Button4.Name = "Button4"
  75.         Me.Button4.Size = New System.Drawing.Size(176, 40)
  76.         Me.Button4.TabIndex = 0
  77.         Me.Button4.Text = "TreeView control"
  78.         '
  79.         'Button5
  80.         '
  81.         Me.Button5.Location = New System.Drawing.Point(40, 240)
  82.         Me.Button5.Name = "Button5"
  83.         Me.Button5.Size = New System.Drawing.Size(176, 40)
  84.         Me.Button5.TabIndex = 0
  85.         Me.Button5.Text = "ListView control"
  86.         '
  87.         'Form1
  88.         '
  89.         Me.AutoScaleBaseSize = New System.Drawing.Size(7, 17)
  90.         Me.ClientSize = New System.Drawing.Size(250, 295)
  91.         Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Button5, Me.Button4, Me.Button3, Me.Button2, Me.Button1})
  92.         Me.Font = New System.Drawing.Font("Microsoft Sans Serif", 11!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  93.         Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
  94.         Me.Name = "Form1"
  95.         Me.Text = "Windows Forms Controls Demo"
  96.         Me.ResumeLayout(False)
  97.  
  98.     End Sub
  99.  
  100. #End Region
  101.  
  102.     Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  103.         Dim frm As New ListBoxForm()
  104.         frm.Show()
  105.     End Sub
  106.  
  107.     Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  108.         Dim frm As New ProviderControlsForm()
  109.         frm.Show()
  110.     End Sub
  111.  
  112.     Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
  113.         Dim frm As New SplitterForm()
  114.         frm.Show()
  115.     End Sub
  116.  
  117.     Private Sub Button4_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
  118.         Dim frm As New TreeViewForm()
  119.         frm.Show()
  120.     End Sub
  121.  
  122.     Private Sub Button5_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
  123.         Dim frm As New ListViewForm()
  124.         frm.Show()
  125.     End Sub
  126.  
  127. End Class
  128.