variautente2

gestione variabilidi tipo creato da utente

Option Explicit
Private Type socio
codice As Integer
cognome As String
nome As String
sesso As String * 1
nascita As Date
città As String
provincia As String * 2
End Type


Private Sub CommandButton1_Click()
Call creasocio
End Sub



Public Sub creasocio()
Dim nuovosocio As socio
nuovosocio.codice = TextBox1.Text
nuovosocio.cognome = TextBox2.Text
nuovosocio.nome = TextBox3.Text
nuovosocio.sesso = TextBox4.Text
nuovosocio.nascita = TextBox5.Text
nuovosocio.città = TextBox6.Text
nuovosocio.provincia = TextBox7.Text
Label1.Caption = nuovosocio.codice
Label2.Caption = nuovosocio.cognome
Label3.Caption = nuovosocio.nome
Label4.Caption = nuovosocio.sesso
Label5.Caption = nuovosocio.nascita
Label9.Caption = nuovosocio.città
Label10.Caption = nuovosocio.provincia
Call tessera(nuovosocio)
End Sub

Private Sub tessera(nuovosocio As socio)
ListBox1.AddItem "codice    = " & (nuovosocio.codice)
ListBox1.AddItem "cognome   = " & (nuovosocio.cognome)
ListBox1.AddItem "nome      = " & (nuovosocio.nome)
ListBox1.AddItem "sesso     = " & (nuovosocio.sesso)
ListBox1.AddItem "nascita   = " & (nuovosocio.nascita)
ListBox1.AddItem "città     = " & (nuovosocio.città)
ListBox1.AddItem "provincia = " & (nuovosocio.provincia)
ListBox1.AddItem ("------------")
End Sub

Private Sub UserForm_Click()

End Sub

ritorna