Návod: Definování tříd (Visual Basic)

Tento názorný postup ukazuje, jak definovat třídy, které pak můžete použít k vytváření objektů. Také ukazuje, jak přidat vlastnosti a metody do nové třídy a ukazuje, jak inicializovat objekt.

Definice třídy

1. Kliknutím na New Project v nabídce File (Soubor) vytvořte projekt. Zobrazí se dialogové okno Nový projekt.

2. Pokud Windows nový projekt, vyberte v Visual Basic šablony projektu možnost Aplikace.

3. Do projektu přidejte novou třídu kliknutím na Přidat třídu v nabídce Project tříd. Zobrazí se dialogové okno Přidat novou položku.

4. Vyberte šablonu Třída.

5. Pojmechte novou UserNameInfo.vb třídu a potom kliknutím na Přidat zobrazte kód nové třídy.

   Public Class UserNameInfo
   End Class
   

   Poznámka

   Pomocí editoru Visual Basic kódu můžete do spouštěcího formuláře přidat třídu zadáním klíčového slova následované názvem Class nové třídy. Editor kódu vám poskytne odpovídající End Class příkaz.

6. Definujte privátní pole pro třídu přidáním následujícího kódu mezi Class příkazy End Class a :

   Private userNameValue As String
   

   Deklarování pole jako Private znamená, že lze jej použít pouze v rámci třídy. Pomocí modifikátorů přístupu, jako jsou ty, které poskytují větší přístup, můžete pole z Public přístupů z vnějšku třídy zdělovat. Další informace najdete v tématu Úrovně přístupu v Visual Basic.

7. Definujte vlastnost třídy přidáním následujícího kódu:

   Public Property UserName() As String
       Get
           ' Gets the property value.
           Return userNameValue
       End Get
       Set(ByVal Value As String)
           ' Sets the property value.
           userNameValue = Value
       End Set
   End Property
   

8. Definujte metodu pro třídu přidáním následujícího kódu:

   Public Sub Capitalize()
       ' Capitalize the value of the property.
       userNameValue = UCase(userNameValue)
   End Sub
   

9. Definujte parametrizovaný konstruktor pro novou třídu přidáním procedury s názvem Sub New :

   Public Sub New(ByVal UserName As String)
       ' Set the property value.
       Me.UserName = UserName
   End Sub
   

   Konstruktor je volána automaticky při vytvoření objektu Sub New založeného na této třídě. Tento konstruktor nastaví hodnotu pole, které obsahuje uživatelské jméno.

Vytvoření tlačítka pro otestování třídy

1. Změňte formulář pro spuštění do režimu návrhu tak, že pravým tlačítkem myši kliknete na jeho název v Průzkumník řešení pak kliknete na Návrhář zobrazení. Ve výchozím nastavení má spouštěcí formulář pro Windows Aplikace název Form1.vb. Zobrazí se hlavní formulář.

2. Přidejte tlačítko do hlavního formuláře a poklikejte na něj, aby se zobrazí kód obslužné Button1_Click rutiny události. Přidejte následující kód pro volání testovací procedury:

   ' Create an instance of the class.
   Dim user As New UserNameInfo("Moore, Bobby")
   ' Capitalize the value of the property.
   user.Capitalize()
   ' Display the value of the property.
   MsgBox("The original UserName is: " & user.UserName)
   ' Change the value of the property.
   user.UserName = "Worden, Joe"
   ' Redisplay the value of the property.
   MsgBox("The new UserName is: " & user.UserName)
   

Spuštění aplikace

1. Stisknutím klávesy F5 spusťte aplikaci. Kliknutím na tlačítko ve formuláři zavolejte testovací proceduru. Zobrazí se zpráva s oznámením, že původní je UserName "METHOD, METHOD", protože procedura nazývaná Capitalize metoda objektu .

2. Kliknutím na OK zavřete okno se zprávou. Procedura změní hodnotu vlastnosti a zobrazí zprávu, že nová hodnota je Button1 Click UserName UserName Worden, Joe.

Viz také

• Objektově orientované programování (Visual Basic)
• Objekty a třídy