Strutture: dichiarazione ed uso

PUBLIC Struct NomeStruttura    ' definisco i campi della Struttura "astratta"

' Questa Struttura si riserverà, occupandola, 9 byte di memoria in tutto:
  valore1 As Integer   ' dal byte n° 0 al n° 3
  valore2 As Integer   ' dal byte n° 4 al n° 7
  valore3 as Byte   ' il byte n° 8
 END Struct

' creo una struttura "reale" composta a perfetta immagine di quella astratta:
   nuovaStruttura As New NomeStruttura


   variabValor as Byte   ' questa variabile mi serve poi per l'Inputbox



PUBLIC Sub Form_Open()

 variabValor = inputbox("Immetto un valore per \"riempire\" il campo \"variabile\" di \"nuovaStruttura\": valore3 .")
' attribuisco il valore a ciascun campo variabile della struttura
' (qui i valori sono due "costanti" ed uno "variabile"):
 nuovaStruttura.valore1 = 3
 nuovaStruttura.valore2 = 6
 nuovaStruttura.valore3 = variabValor

END


PUBLIC Sub Button1_Click()

' quindi opero con i valori contenuti da "nuovaStruttura"
  With nuovaStruttura
    Print .valore1
    Print .valore2
    Print .valore3
  End With

END