Differenze tra le versioni di "Variabile del tipo di una Classe specifica creata"
Riga 147: | Riga 147: | ||
'''End''' | '''End''' | ||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
Versione delle 19:05, 18 gen 2022
Come è noto, è possibile creare via codice una particolare Classe, fornita di Proprietà, Metodi ed Eventi. [nota 1]
Indice
Variabili del tipo della Classe specifica creata
La variabile per gestire le proprietà, oggetti, etc di una Classe particolare da noi creata deve essere del tipo di detta Classe particolare:
' Dichiariamo la variabile del tipo della Classe specifica: Private vrCl As Clcreata Public Sub Button1_Click() With vrCl = New Clcreata .vB = 1 .vI = 1001 .v$ = "prova" & .vB End With ' Gestiamo ora la variabile di tipo Button, crandone un paio: With vrCl.bu = New Button(Me) As "bu" .X = 10 .Y = 10 .W = 100 .H = 100 .Text = "Bu" End With With vrCl.bu = New Button(Me) As "bu" .X = 200 .Y = 10 .W = 100 .H = 100 .Text = "Bu2" End With End Public Sub bu_Click() With vrCl Print .vB Print .vI Print .v$ End With Print Last.Text End
Utilizzare una Classe particolare con una variabile Variant
Possiamo caricare anche in una variabile di tipo Variant le proprietà e gli elementi che costituiscono la nostra Classe particolare creata:
Public Sub Button1_Click() Dim xx As Variant With xx = New Clcreata .vB = 19 .vI = 1900 .v$ = "prova" & .vB End With With xx Print .vB Print .vI Print .v$ End With End
Uso di una variabile del dipo della Classe particolare e di una variabile Variant
Public Sub Button1_Click() Dim rr As Clcreata Dim vv As Variant With rr = New Clcreata .vB = 1 .vI = 1001 .v$ = "prova" & .vB End With ' Trasferiamo i valori da una variabile all'altra: ali = rr With ali Print .vB Print .vI Print .v$ End With End
Variabile array di tipo di una Classe creata
Possiamo gestire le proprietà di una particolare Classe, da noi creata, anche mediante una variabile array.
Nella Classe principale "FMain.Class" andiamo ad utilizzare la Classe particolare da noi creata, semplicemente creandone una variabile array e caricando i valori negli elementi di tale variabile array:
' Dichiara due variabili di tipo classe "Clval": ' una come array con numero di elementi non definito: Private clval1 As New Clcreata[] Public Sub Form_Open() Dim a As Byte Dim clval2 As Clcreata '...ed un'altra ordinaria: For a = 0 To 99 ' assegna i valori ai campi della variabile di tipo classe "Clval": With clval2 = New Clcreata .vB = a .vI = 1000 + CInt(a) .v$ = "prova " & Str(a) End With clval1.Add(clval2) Next End Public Sub Button1_Click() Dim a As Byte ' mostra in console i risultati: For a = 0 To 99 With clval1[a] Print .vB Print .vI Print .v$ End With Next End
Note
[1] Al riguardo vedere la seguente pagina: Creare da codice una Classe specifica