Почти толкова лесно е като във VB6. Отворете проект с една форма в него. Кликнете върху бутон в
Toolbox и чрез влачене пуснете бутон (
button) върху формата. Два пъти клик върху бутона и се показва прозореца за кода,
който както вече видяхте, е добавен във VB.NET като отделна страница (
панел) в работната област. Новият панел е
етикиран като
Form1.
vb. Както вече
видяхме за фигура 5 и тук имаме много код в този прозорец, показан на фигура 30.
Фигура 30 Новият панел е етикиран
като Form1.vb
Първият
ред код показва, че формата,
Form1, е клас (
class). Следващият ред е инструкцията
Inherits. Всяка форма, която създавате, наследява от базовия клас
Form. Вие сте извикали едно от
системните пространства от имена (.
NET System namespaces); тук,
System.
Windows.
Forms.
Form. Следващото парче
код е вътре в класа, публична подпрограма (
public sub) наречена
New. Тя вика подпрограма
InitializeComponent. Тя се създава за
вас от
VS.
NET. Подпрограма
New е подобна на събитийната процедура
Form_
Load която сте използвали във VB6. Тук не трябва да добавяте
никакъв собствен код.
След
New sub се намира
Dispose sub, приличаща на
Form_
Unload от VB6. Тук е
областта за изчистване на всичко, което сте отворили. Вижте листинг 2.
Listing
2Генерираният
за вас код от Windows Form Designer
#Region " Windows Form Designer generated code
"
Public Sub New()
MyBase.New()
'This call
is required by the Windows Form Designer.
InitializeComponent()
'Add any initialization after the
InitializeComponent() call
End Sub
'Form overrides
dispose to clean up the component list.
Public Overrides Sub
Dispose(ByVal disposing As Boolean)
MyBase.Dispose()
If
Not (components Is
Nothing) Then
components.Dispose()
End If
End Sub
Private
WithEvents button1 As System.Windows.Forms.Button
`Required by the Windows Form Designer
Private
components As System.ComponentModel.Container
`NOTE: The following procedure is required by the _
Windows
Form Designer
`It can be modified using the Windows Form Designer.
`Do not modify it using the code editor.
Private
Sub <System.Diagnostics.DebuggerStepThrough()> _
InitializeComponent()
Me.button1
= New System.Windows.Forms.Button()
Me.button1.Location
= New System.Drawing.Point(104, 72)
Me.button1.TabIndex
= 0
Me.button1.Text
= "button1"
Me.AutoScaleBaseSize
= New System.Drawing.Size(5, 13)
Me.ClientSize
= New System.Drawing.Size(292, 273)
Me.Controls.AddRange(New
System.Windows.Forms.Control() _
{Me.button1})
Me.Text
= "Form1"
End
Sub
#End
Region
Фигура 31 Апликацията Hello World в изпълнение.