用 VB.net 制作一个小程序（ 3 ）
---- 制作“ Input Controls ”程序 (1)
作者：高山
Public Class Form1
Inherits System.Windows.Forms.Form
Region " Windows 窗体设计器生成的代码 "
Public Sub New ()
MyBase .New()
'该调用是 Windows 窗体设计器所必需的。
InitializeComponent()
'在 InitializeComponent() 调用之后添加任何初始化
End Sub
'窗体重写处置以清理组件列表。
Protected Overloads Overrides Sub Dispose( ByVal disposing As Boolean )
If disposing Then
If Not (components Is Nothing ) Then
components.Dispose()
End If
End If
MyBase .Dispose(disposing)
End Sub
'Windows 窗体设计器所必需的
Private components As System.ComponentModel.IContainer
'注意：以下过程是 Windows 窗体设计器所必需的
'可以使用 Windows 窗体设计器修改此过程。
'不要使用代码编辑器修改它。
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox
Friend WithEvents CheckBox2 As System.Windows.Forms.CheckBox
Friend WithEvents CheckBox3 As System.Windows.Forms.CheckBox
Friend WithEvents ListBox1 As System.Windows.Forms.ListBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents RadioButton1 As System.Windows.Forms.RadioButton
Friend WithEvents RadioButton2 As System.Windows.Forms.RadioButton
Friend WithEvents RadioButton3 As System.Windows.Forms.RadioButton
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox
Friend WithEvents PictureBox3 As System.Windows.Forms.PictureBox
Friend WithEvents PictureBox4 As System.Windows.Forms.PictureBox
Friend WithEvents PictureBox5 As System.Windows.Forms.PictureBox
1<system.diagnostics.debuggerstepthrough()> Private Sub InitializeComponent()
2
3Me .GroupBox1 = New System.Windows.Forms.GroupBox()
4
5Me .RadioButton3 = New System.Windows.Forms.RadioButton()
6
7Me .RadioButton2 = New System.Windows.Forms.RadioButton()
8
9Me .RadioButton1 = New System.Windows.Forms.RadioButton()
10
11Me .GroupBox2 = New System.Windows.Forms.GroupBox()
12
13Me .CheckBox3 = New System.Windows.Forms.CheckBox()
14
15Me .CheckBox2 = New System.Windows.Forms.CheckBox()
16
17Me .CheckBox1 = New System.Windows.Forms.CheckBox()
18
19Me .Label1 = New System.Windows.Forms.Label()
20
21Me .ListBox1 = New System.Windows.Forms.ListBox()
22
23Me .Label2 = New System.Windows.Forms.Label()
24
25Me .Label3 = New System.Windows.Forms.Label()
26
27Me .Button1 = New System.Windows.Forms.Button()
28
29Me .ComboBox1 = New System.Windows.Forms.ComboBox()
30
31Me .Label4 = New System.Windows.Forms.Label()
32
33Me .PictureBox1 = New System.Windows.Forms.PictureBox()
34
35Me .PictureBox2 = New System.Windows.Forms.PictureBox()
36
37Me .PictureBox3 = New System.Windows.Forms.PictureBox()
38
39Me .PictureBox4 = New System.Windows.Forms.PictureBox()
40
41Me .PictureBox5 = New System.Windows.Forms.PictureBox()
42
43Me .GroupBox1.SuspendLayout()
44
45Me .GroupBox2.SuspendLayout()
46
47Me .SuspendLayout()
48
49'
50
51'GroupBox1
52
53'
54
55Me .GroupBox1.Controls.AddRange( New System.Windows.Forms.Control() { Me .RadioButton3, Me .RadioButton2, Me .RadioButton1})
56
57Me .GroupBox1.Location = New System.Drawing.Point(8, 120)
58
59Me .GroupBox1.Name = "GroupBox1"
60
61Me .GroupBox1.TabIndex = 0
62
63Me .GroupBox1.TabStop = False
64
65Me .GroupBox1.Text = "Computer[required]"
66
67'
68
69'RadioButton3
70
71'
72
73Me .RadioButton3.Location = New System.Drawing.Point(40, 64)
74
75Me .RadioButton3.Name = "RadioButton3"
76
77Me .RadioButton3.TabIndex = 2
78
79Me .RadioButton3.Text = "Laptop"
80
81'
82
83'RadioButton2
84
85'
86
87Me .RadioButton2.Location = New System.Drawing.Point(40, 40)
88
89Me .RadioButton2.Name = "RadioButton2"
90
91Me .RadioButton2.TabIndex = 1
92
93Me .RadioButton2.Text = "Macintosh"
94
95'
96
97'RadioButton1
98
99'
100
101Me .RadioButton1.Location = New System.Drawing.Point(40, 16)
102
103Me .RadioButton1.Name = "RadioButton1"
104
105Me .RadioButton1.TabIndex = 0
106
107Me .RadioButton1.Text = "PC"
108
109'
110
111'GroupBox2
112
113'
114
115Me .GroupBox2.Controls.AddRange( New System.Windows.Forms.Control() { Me .CheckBox3, Me .CheckBox2, Me .CheckBox1})
116
117Me .GroupBox2.Location = New System.Drawing.Point(8, 248)
118
119Me .GroupBox2.Name = "GroupBox2"
120
121Me .GroupBox2.Size = New System.Drawing.Size(200, 104)
122
123Me .GroupBox2.TabIndex = 1
124
125Me .GroupBox2.TabStop = False
126
127Me .GroupBox2.Text = "Office Equired(0-3)"
128
129'
130
131'CheckBox3
132
133'
134
135Me .CheckBox3.Location = New System.Drawing.Point(40, 64)
136
137Me .CheckBox3.Name = "CheckBox3"
138
139Me .CheckBox3.TabIndex = 2
140
141Me .CheckBox3.Text = "Copy Machine"
142
143'
144
145'CheckBox2
146
147'
148
149Me .CheckBox2.Location = New System.Drawing.Point(40, 40)
150
151Me .CheckBox2.Name = "CheckBox2"
152
153Me .CheckBox2.TabIndex = 1
154
155Me .CheckBox2.Text = "Calcultor"
156
157'
158
159'CheckBox1
160
161'
162
163Me .CheckBox1.Location = New System.Drawing.Point(40, 16)
164
165Me .CheckBox1.Name = "CheckBox1"
166
167Me .CheckBox1.TabIndex = 0
168
169Me .CheckBox1.Text = "Answering Machine"
170
171'
172
173待续</system.diagnostics.debuggerstepthrough()>