Visual Basic също добавя оператор Inherits след оператор Class. В този случай, Inherits операторът казва, че новата форма е базирана на класа Форма (Form class) във System.Windows.Forms пространството за имена (namespace) в библиотека .NET Class Library. Остатъкът от код за тази форма съдържа две процедури за събития. Първата отговаря на събитието Click на бутон Calculate; втората отговаря на събитието Click на бутон Exit.

Процедурата на събитието Click на бутон Calculate изчислява броя точки въз основа на въведените точки от потребителя в текстово поле (Tochki) и след това извежда тази стойност в апроприирания контрол етикет lblTochki. За да се осъществи това, се започва с дефиниране на три променливи, всяка от които поддържа десетична стойност. В следващата група от оператори, стойността на свойство Text на текстова кутия txtTochkiTotal, което се въвежда от потребителя, се присвоява на променливата с име dTochkiTotal. Коефициентът е 0,9 следователно точките, които се приспадат се изчисляват като се умножи dTochkiTotal*.1, и стойността на получения резултат се присвоява на променлива наречена dKoeficient.

След това, окончателните точки се пресмятат чрез изваждане

dTochkiTotal - dKoeficient

Следващите два оператора присвояват получените стойности на свойство Text на контролите етикети, които извеждат тези числа.

Последният оператор, преди End Sub изпълнява метод Focus върху текстова кутия TochkiTotal, така че фокусът се премества върху нея.

В противен случай, фокусът ще остане на бутон Calculate който беше използван да стартира процедурата. Другата процедура на тази апликация е събитието Click на бутон Exit. В този случай, събитийната процедура съдържа един оператор, който използва метод Close и затваря формата.

Забележете,че кодът, който е потъмнен се генерира от Visual Basic. Отделно от това, Visual Basic генерира друг код, който е скрит в прозореца за редакция на кода (Code Editor) под етикета "Windows Form Designer generated code"

Кодът за форма Tochki

Public Class Form1

Inherits System.Windows.Forms.Form



#Region " Windows Form Designer generated code "

***

#End Region



Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click

Me.Close()

End Sub

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

ByVal e As System.EventArgs) Handles btnCalculate.Click

Dim dTochkiTotal As Decimal

Dim dKoeficient As Decimal

Dim dTochki As Decimal

dTochkiTotal = txtTochkiTotal.Text

dKoeficient = dTochkiTotal * 0.1

dTochki = dTochkiTotal - dKoeficient

lblKoeficient.Text = dKoeficient

lblTochki.Text = dTochki

txtTochkiTotal.Focus()

End Sub



End Class





Фигура 22 Кодът за форма Tochki е със синтактически грешки.