variautente1

uso di variabile 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 = 1
nuovosocio.cognome = "rossi"
nuovosocio.nome = "paolo"
nuovosocio.sesso = "M"
nuovosocio.nascita = #12/15/76#
nuovosocio.città = "padova"
nuovosocio.provincia = "PD"
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)

End Sub

Private Sub UserForm_Click()

End Sub

ritorna