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

Tento názorný postup definování třídy, které potom můžete vytvářet objekty.Také ukazuje, jak přidávat vlastnosti a metody nové třídy a ukazuje, jak inicializovat objekt.

[!POZNÁMKA]

Na vašem počítači se můžou v následujících pokynech zobrazovat jiné názvy nebo umístění některých prvků uživatelského rozhraní Visual Studia. Tyto prvky jsou určeny edicí sady Visual Studio a použitým nastavením. Další informace najdete v tématu Přizpůsobení nastavení pro vývoj v sadě Visual Studio.

Definovat třídy

1. Vytvoření projektu klepnutím na Nový projekt na soubor nabídce.Zobrazí se dialogové okno Nový projekt.

2. Ze seznamu vyberte aplikaci systému Windows Visual Basic projektu šablony zobrazení nového projektu.

3. Klepnutím na tlačítko Přidat nové třídy do projektu Přidat třídu na projektu nabídce.Zobrazí se dialogové okno Přidat novou položku.

4. Vyberte třídy šablony.

5. Název nové třídy UserNameInfo.vba klepněte na tlačítko Přidat zobrazit kód nové třídy.

   Public Class UserNameInfo
   End Class
   

   [!POZNÁMKA]

   Můžete použít Visual BasicEditor kódu přidat třídy do spouštěcí formulář zadáním Class klíčové slovo a název nové třídy. Editor kódu poskytuje odpovídající End Class prohlášení pro vás.

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

   Private userNameValue As String
   

   Deklarování pole jako Private znamená lze použít pouze v rámci třídy.Můžete zpřístupnit polí z mimo třídu pomocí modifikátory přístupu jako Public , poskytují další přístup.Další informace naleznete v tématu Úrovně přístupu v jazyce 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 metody 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. Definovat nové třídy s parametry konstruktoru přidáním proceduru s názvem Sub New:

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

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

Vytvoření tlačítka test třídy

1. Změnit úvodní formulář do režimu návrhu pravým tlačítkem myši na její název v Aplikaci Solution Explorer a klepnutím na Návrhář zobrazení.Výchozí spouštěcí formulář pro projekty aplikace systému Windows s názvem Form1.vb.Hlavní formulář se pak objeví.

2. Přidání tlačítka na hlavním formuláři a poklepejte na položku zobrazit kód Button1_Click obslužnou rutinu události.Přidejte následující kód volat zkušební postup:

   ' 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. Spusťte aplikaci stisknutím klávesy F5.Klepněte na tlačítko ve formuláři volání zkušební postup.Zobrazí zprávu, že původní UserName je "MOORE, JANOVI", protože postup se nazývá Capitalize metodu objektu.

2. Klikněte na tlačítko OK k zavření okna se zprávou.Button1 Click Postup změní hodnotu UserName vlastnosti a zobrazí zprávu, že nové hodnoty UserName je "Worden ingediend, Joe".

Viz také

Koncepty

Objektově orientované programování (C# a Visual Basic)

Další zdroje

Objekty a třídy v jazyce Visual Basic