Вашият нов клас е създаден за вас, но той няма дизайнер по подразбиране, вие стартирате с празен клас като във VB6. Имате клас с име Class1. Но докато във VB6, имате един клас в клас модул, с разширение .CLS, във VB.NET, вашият модул има разширение .VB, и отделния сорс код файл може да съдържа повече от един класа. Един или повече сорс код файлове могат да се компилират в едно асембли (assembly). Можете да създадете клас по всяко време чрез блок Class...End Class. В прозореца за кода сменете в реда на дефиницията на класа името му на Uchenik:

Public Class Class1

така:

Public Class Uchenik

Но ако погледнете в прозореца Solution Explorer, ще видите, че името на файла все още е Class1.vb. Извикайте с десен бутон контекстното меню в Solution Explorer и преименовайте с Rename на Uchenik.vb. Сега сменихте името на файла, който съдържа един или повече класове.



- Добавяне на "Souped-Up" клас



Но създадения клас Uchenik, няма конструктор (constructor)(Public Sub New) като повечето нови файлове във VB.NET. Можете да добавите собствен конструктор, ако искате класа ви да има такъв.

Но е възможно да създадете нов клас, който идва с вече създадени дизайнер и конструктор. В Solution Explorer, дясно кликване върху името на проекта и избирате Add, след това Add Component. От диалога, който се отваря, изберете Component class и кликнете Open. Така добавяте нов файл към проекта, който има клас в себе си. Този клас включва дизайнер, както е показано на Фигура 64.

Два пъти кликване върху дизайнера отваря прозореца за кода. Може да видите повече код за този клас, отколкото за класа, създаден с проект class library.

Ако проучите кода, ще забележите следния ред:

Inherits System.ComponentModel.Component

Така класа наследява от базовия Component клас в System.ComponentModel. Ако добавите този ред във вашия клас Uchenik, ще имате достъп до дизайнера там.





Фигура 64 Създаване на нов клас с дизайнер (designer) и конструктор (constructor)

Засега да се върнем към нашия Uchenik клас, който създадохме.


- Създаване на свойства (Properties)

Сега можем да започнем да добавяме свойства към класа, но синтаксисът е променен. Добавяме свойство FirstName вътре в класа:

Dim msFirstName as String

Когато напишете първия ред код от показания по-долу, повечето от останалия код ще ви го попълни IDE. Вие трябва само да добавите Return и присвояването.

Public Property FirstName() As String

Get

Return msFirstName

End Get

Set(ByVal Value As String)

msFirstName = Value

End Set

End Property

Няма Let повече, което прави живота по-лесен. Няма нужда повече да се подава стойността като параметър; наместо това, ако потребителят подаде стойност, тя автоматично се въвежда в променлива, Value.



- Тестване на клиентската програма (Test Client)

Време е да тестваме класа. Наистина той има само едно свойство, но трябва да видим как да го извикаме в клиентската апликация. От меню File, изберете New и след това Project. Този път, добавете WindowsApplication. Назовете я ShkolaClient , но преди това кликнете OK, и се уверете, че сте избрали Add от Solution радиобутон. По подразбиране са затваря текущото решение (solution) и се отваря ново подобно на VB6 група (group). След OK, новият проект се зарежда в Solution Explorer, както е показано на Фигура 65. Името на проекта в тъмно (bold) в Solution Explorer е на стартиращия проект на апликацията. С дясно кликване върху проект ShkolaClient изберете Set as StartUp Project от контекстното меню.



Фигура 65 Solution Explorer показва два проекта наведнаж.