Sdílet prostřednictvím

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

  • Článek

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

Poznámka:

Váš počítač může v následujících pokynech zobrazovat odlišné názvy nebo umístění některých prvků uživatelského rozhraní sady Visual Studio. Tyto prvky jsou určeny edicí sady Visual Studio a použitým nastavením. Další informace najdete v tématu Přizpůsobení integrovaného vývojového prostředí.

Definování třídy

  1. Vytvořte projekt kliknutím na Nový projekt v nabídce Soubor . Zobrazí se dialogové okno Nový projekt.

  2. Vyberte aplikaci systému Windows ze seznamu šablon projektů jazyka Visual Basic a zobrazte nový projekt.

  3. Kliknutím na Přidat třídu v nabídce Projekt přidejte do projektu novou třídu. Zobrazí se dialogové okno Přidat novou položku.

  4. Vyberte šablonu třídy.

  5. Pojmenujte novou třídu UserNameInfo.vba kliknutím na tlačítko Přidat zobrazte kód nové třídy.

    Public Class UserNameInfo
End Class

    Poznámka:

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

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

    Private userNameValue As String

    Deklarování pole tak, jak Private to znamená, že se dá použít pouze v rámci třídy. Pole můžete zpřístupnit mimo třídu pomocí modifikátorů přístupu, jako Public je například poskytnutí většího přístupu. 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 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 Sub New se volá automaticky při vytvoření objektu 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 spouštěcí formulář na režim návrhu tak, že v Průzkumník řešení kliknete pravým tlačítkem myši na jeho název a potom kliknete na Návrhář zobrazení. Ve výchozím nastavení má spouštěcí formulář pro projekty aplikací systému Windows název Form1.vb. Zobrazí se hlavní formulář.

  2. Přidejte tlačítko do hlavního formuláře a poklikáním na něj zobrazte kód obslužné rutiny Button1_Click 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. Spusťte aplikaci stisknutím klávesy F5. Kliknutím na tlačítko ve formuláři zavolejte testovací proceduru. Zobrazí zprávu s oznámením, že původní UserName je "MOORE, BOBBY", protože procedura volala Capitalize metodu objektu.

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

Viz také