Condividi tramite

Procedura dettagliata: Definizione di classi (Visual Basic)

Questa procedura dettagliata illustra come definire le classi, che è quindi possibile usare per creare oggetti. Viene inoltre illustrato come aggiungere proprietà e metodi alla nuova classe e viene illustrato come inizializzare un oggetto.

Annotazioni

Il computer potrebbe visualizzare nomi o percorsi diversi per alcuni degli elementi dell'interfaccia utente di Visual Studio nelle istruzioni seguenti. L'edizione di Visual Studio disponibile e le impostazioni usate determinano questi elementi. Per altre informazioni, vedere Personalizzazione dell'IDE.

Per definire una classe

  1. Creare un progetto facendo clic su Nuovo progetto dal menu File . Verrà visualizzata la finestra di dialogo Nuovo progetto.

  2. Selezionare Applicazione Windows dall'elenco dei modelli di progetto di Visual Basic per visualizzare il nuovo progetto.

  3. Aggiungere una nuova classe al progetto facendo clic su Aggiungi classe dal menu Progetto . Verrà visualizzata la finestra di dialogo Aggiungi nuovo elemento.

  4. Selezionare il modello Classe .

  5. Assegnare alla nuova classe UserNameInfo.vbil nome e quindi fare clic su Aggiungi per visualizzare il codice per la nuova classe.

    Public Class UserNameInfo
End Class

    Annotazioni

    È possibile usare Visual Basic Code Editor per aggiungere una classe al modulo di avvio digitando la Class parola chiave seguita dal nome della nuova classe. L'editor di codice fornisce una istruzione corrispondenteEnd Class.

  6. Definire un campo privato per la classe aggiungendo il codice seguente tra le Class istruzioni e End Class :

    Private userNameValue As String

    Dichiarare il campo come Private significa che può essere usato solo all'interno della classe . È possibile rendere disponibili campi dall'esterno di una classe usando modificatori di accesso, Public ad esempio che forniscono un accesso maggiore. Per altre informazioni, vedere Livelli di accesso in Visual Basic.

  7. Definire una proprietà per la classe aggiungendo il codice seguente:

    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. Definire un metodo per la classe aggiungendo il codice seguente:

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

  9. Definire un costruttore con parametri per la nuova classe aggiungendo una routine denominata Sub New:

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

    Il Sub New costruttore viene chiamato automaticamente quando viene creato un oggetto basato su questa classe. Questo costruttore imposta il valore del campo che contiene il nome utente.

Per creare un pulsante per testare la classe

  1. Modificare il modulo di avvio in modalità progettazione facendo clic con il pulsante destro del mouse sul nome in Esplora soluzioni e quindi scegliendo Visualizza finestra di progettazione. Per impostazione predefinita, il modulo di avvio per i progetti applicazione Windows è denominato Form1.vb. Verrà quindi visualizzato il modulo principale.

  2. Aggiungere un pulsante al modulo principale e fare doppio clic su di esso per visualizzare il codice per il Button1_Click gestore eventi. Aggiungere il codice seguente per chiamare la procedura di test:

    ' 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)

Per eseguire l'applicazione

  1. Eseguire l'applicazione premendo F5. Fare clic sul pulsante nel modulo per chiamare la routine di test. Viene visualizzato un messaggio che indica che l'UserName originale è "MOORE, BOBBY", perché la procedura ha chiamato il metodo Capitalize dell'oggetto.

  2. Fare clic su OK per chiudere la finestra di messaggio. La Button1 Click procedura modifica il valore della UserName proprietà e visualizza un messaggio che informa che il nuovo valore di UserName è "Worden, Joe".

Vedere anche