tipo variabile utentex

esercitazione a livello ddattico con variabili create da utente
in visual basic su powerpoint

Option Explicit
Rem creazione di tipo da parte dell'utente
Rem Type.....End Type con variabili di tipo integer e string
Private Type utente
codice As Integer
cognome As String
nome As String
sesso As String
qualifica As String
città As String
nazionalità As String
End Type


Private Sub CommandButton1_Click()
Rem creazione tipo utente
Call datiutente
End Sub



Public Sub datiutente()
Rem utilizzo di variabili di tipo creato da utente
Rem assegnazione di valore a variabili tipo utente
Dim u As utente
u.codice = TextBox1.Value
u.cognome = TextBox2.Text
u.nome = TextBox3.Text
u.sesso = TextBox4.Text
u.città = TextBox5.Text
u.nazionalità = TextBox6.Text
u.qualifica = TextBox7.Text
Call visualizza(u)
End Sub

Private Sub visualizza(u As utente)
ListBox1.AddItem "codice = " & (u.codice)
ListBox1.AddItem "cognome = " & (u.cognome)
ListBox1.AddItem "nome = " & (u.nome)
ListBox1.AddItem "sesso = " & (u.sesso)
ListBox1.AddItem "città = " & (u.città)
ListBox1.AddItem "nazione = " & (u.nazionalità)
ListBox1.AddItem "qualifica = " & (u.qualifica)
ListBox1.AddItem ("--------------------------------")

End Sub


Private Sub CommandButton2_Click()
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
End Sub

vedi utentex.ppt