Как да създадем известната апликация

Visual basic » Visual basic

bubust   трудност:    видян: 1727

Фактически събитието Click не е обработено до подпрограмата (събитийна процедура), в този пример. Във VB.NET, събитийната процедура е:



Private Sub button1_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles button1.Click

`тук напишете кода.

End Sub

Напишете следния ред код:



msgbox "Hello, World"

VB.NET автоматично ще добави скоби около аргумента:



MsgBox("Hello, World")

Време е да стартираме първоначалната си версия на програма с един ред написан от нас.

Form1 ще се зареди. Кликнете върху бутона и ще излезе съобщителната кутия с текста Hello, World. Заглавието на message box е същото като името на проекта, точно като при VB6. Затворете апликацията и се върнете към развойната среда (IDE).

Модифицирайте реда код така:

MsgBox("Hello, World", , "My second VB.NET App")

Сега като стартирате проекта отново, заглавието на message box ще бъде «My second VB.NET App.» Така вече е по-добре.

Обратно към Form1, изтрийте кода вътре в събитийна процедура Button1_Click . Направете формата по-голяма и преместете Button1 в десния долен ъгъл. Сега добавете TextBox към формата. Сменете свойство Multiline на текстовата кутия на True и разтеглете текстовата кутия така, че да запълни по-голяма част от формата, освен долния ъгъл, където се намира бутона (фигура 31).



Фигура 32 Формата по време на проектиране (design time).

Стартирайте проекта. След като се зареди прозореца, разтеглете формата така:



Фигура 33 Форамата по време на изпълнение (runtime), след като сме я разтеглили.



Няма нужда да се пише много код за разтегляне като въвVB6, VB.NET има добри начини за обработка, така че стопирайте апликацията и се върнете в IDE.

Уверете се, че сте на страница Form1.vb [Design] и кликнете върху Button1. В прозореца за свойствата (Properties window), скролирайте и намерете свойство Anchor. Ще видите сива кутийка в средата и четири правоъгълничета около нея. По подразбиране горното и лявото са тъмни, а дясното и долното празни. Тъмните правоъгълничета показват, че точно сега бутона е закотвен към горната и лявата част на формата. Сега кликнете върху горното и лявото правоъгълниче, за да се изпразнят, а дясното и долното да потъмнят. Свойство Anchor ще изглежда като на фигура 34. След това кликнете върху TextBox1 и изберете неговото свойство Anchor. Изберете всички правоъгълничета, така че свойство Anchor за TextBox1 да бъде Top, Bottom, Left, Right.



Фигура 34 Свойство Anchor.



Стартирайте проекта пак. След като се отвори формата, разтеглете я. Сега бутона стои в долния ляв ъгъл и автоматично текстовата кутия се разтегля с формата. Вижте това на фигура 35.





Фигура 35 Как контролите могат да се разтеглят, когато се разтегля формата.

Страници: «1 2