esercizi con visual basic su powerpoint

esci con matevba.htm

gestione archivi-creazione :usa rubrica : rubri3c.dat

archi3c.ppt (variante più semplice di archi3b.pp)

Option Explicit


Private Sub apri_Click()
Open "rubri3c.dat" For Random As #1 Len = 105
codicetxt.SetFocus
End Sub

Private Sub chiudi_Click()
Close #1
End Sub


Private Sub CommandButton2_Click()
Dim p As persona
Get #1, codicetxt, p
Call preleva1(p)
codicetxt.Text = ""
End Sub



Private Sub CommandButton3_Click()
codicetxt = ""
End Sub

Private Sub CommandButton4_Click()
ListBox1.Clear
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
codicetxt.SetFocus
End Sub

Private Sub leggi_Click()
Dim p As persona
Get #1, codicetxt, p
Call preleva(p)
codicetxt.Text = ""
End Sub



Private Sub preleva(p As persona)

ListBox1.AddItem ("cognome....." & p.cognome)
ListBox1.AddItem ("nome........" & p.nome)
ListBox1.AddItem ("indirizzo..." & p.indirizzo)
ListBox1.AddItem ("cap........." & p.cap)
ListBox1.AddItem ("città......." & p.città)
ListBox1.AddItem ("telefono...." & p.telefono)
ListBox1.AddItem ("--------------")
codicetxt.SetFocus
End Sub

Private Sub preleva1(p As persona)

TextBox1 = p.cognome
TextBox2 = p.nome
TextBox3 = p.indirizzo
TextBox4 = p.cap
TextBox5 = p.città
TextBox6 = p.telefono
codicetxt.SetFocus
End Sub

Private Sub TextBox2_Change()

End Sub

Private Sub UserForm_Click()

End Sub