esercizi con visual basic su powerpoint

esci con matevba.htm

gestione archivi-creazione :usa rubrica : rubri3b.dat

archi3.ppt

apertura con :chiudi-apri-umero record 9-su unica riga

numero 11-leggi

numero 2-leggi e cambia-sostituire i dati con nuovi(informazioni)-modifica(salva)

numero 2 - leggi :verifico avvenuta registrazione
(nota differenza in ultimi testi per eccessiva lunghezza...)

Option Explicit

rem modulo per variabile persona
Private Type persona
cognome As String * 20
nome As String * 20
indirizzo As String * 20
cap As String * 5
città As String * 20
telefono As String * 20
End Type


Private Sub apri_Click()
Open "rubri3b.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()
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
cognometxt = ""
nometxt = ""
indirizzotxt = ""
cittàtxt = ""
captxt = ""
Telefonotxt = ""
codicetxt.SetFocus
End Sub

Private Sub CommandButton5_Click()
codicetxt = ""
End Sub

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

Private Sub leggicambia_Click()
Dim p As persona
Get #1, codicetxt, p
Call preleva(p)
End Sub

Private Sub modifica_Click()
Dim p As persona
Call registra(p)
Put #1, codicetxt, p

End Sub




Private Sub registra(ByRef p As persona)
p.cognome = cognometxt
p.nome = nometxt
p.indirizzo = indirizzotxt
p.cap = captxt
p.città = cittàtxt
p.telefono = Telefonotxt
End Sub

Private Sub preleva(p As persona)
Frame1.Visible = True
Frame2.Visible = True
cognometxt = p.cognome
nometxt = p.nome
indirizzotxt = p.indirizzo
captxt = p.cap
cittàtxt = p.città
Telefonotxt = p.telefono
codicetxt.SetFocus
End Sub

Private Sub preleva1(p As persona)
Frame1.Visible = True
Frame2.Visible = True
TextBox1 = p.cognome
TextBox2 = p.nome
TextBox3 = p.indirizzo
TextBox4 = p.cap
TextBox5 = p.città
TextBox6 = p.telefono
Rem codicetxt.SetFocus
End Sub

Private Sub UserForm_Click()

End Sub