esercizi con visual basic su powerpoint

esci con matevba.htm

gestione archivi-creazione :usa rubrica : rubri.dat

archi3d.ppt (variante)

Option Explicit


Private Sub apri_Click()
Dim archivio As String
archivio = TextBox7.Text
Open archivio 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 = ""
codicetxt.SetFocus
End Sub

Private Sub CommandButton4_Click()
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
ListBox1.Clear
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)
Dim h As String
h = " "
ListBox1.AddItem (p.cognome & h & p.nome & h & p.indirizzo & h & p.cap & h & p.città & h & 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 ListBox1_Click()

End Sub

Private Sub UserForm_Click()

End Sub