prubrica1

esempio di VBA con powerpoint per confrontare con VBA su excel
esci con vbavarie.htm

prubrica1.ppt

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


Public Sub creasocio(n As Integer)
Dim nuovosocio(2) As socio
nuovosocio(n).codice = TextBox1.Text
nuovosocio(n).cognome = TextBox2.Text
nuovosocio(n).nome = TextBox3.Text
nuovosocio(n).sesso = TextBox4.Text
nuovosocio(n).nascita = TextBox5.Text
nuovosocio(n).città = TextBox6.Text
nuovosocio(n).provincia = TextBox7.Text
visualizza.SetFocus
Call tessera(nuovosocio())
End Sub

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

Private Sub cancella_Click()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox1.SetFocus
End Sub


Private Sub UserForm_Click()

End Sub

Private Sub visualizza_Click()
Dim n As Integer
Call creasocio(n)
End Sub

prubrica2.ppt

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 CommandButton2_Click()

Label1.Caption = ""
Label2.Caption = ""
Label3.Caption = ""
Label4.Caption = ""
Label5.Caption = ""
Label9.Caption = ""
Label10.Caption = ""
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""

End Sub

Private Sub CommandButton3_Click()
ListBox1.Clear
End Sub

Private Sub TextBox7_Change()

End Sub

Private Sub UserForm_Click()

End Sub