esercizi con visual basic su powerpoint
esci con matevba.htm
gestione archivi
apertura programma e inserimento
file.dat
chiudi archivio-apri archivio
numero 2 : mostra tabella
numero 2 : mostra scheda
numero 1 : leggi su riga
numero 2 :leggi lista
numero 2: modifica: nuovi dati (da Alvise a Puccini): registra
numero 2: mostra tabella (record 2 sostituito)
Option Explicit
Private Sub CommandButton1_Click()
Dim archivio As String
archivio = TextBox1.Text
Open archivio For Random As #1 Len = 100
codice.SetFocus
End Sub
Private Sub CommandButton10_Click()
Label13.Visible = True
End Sub
Private Sub CommandButton11_Click()
Label13.Visible = False
End Sub
Private Sub CommandButton2_Click()
Close #1
End Sub
Private Sub CommandButton3_Click()
Dim p As persona
Get #1, codice, p
Call prelevaleggischeda(p)
codice.Text = ""
End Sub
Private Sub CommandButton4_Click()
Dim p As persona
Get #1, codice, p
Call prelevalista(p)
codice.Text = ""
codice.SetFocus
End Sub
Private Sub CommandButton5_Click()
Dim p As persona
Get #1, codice, p
Call prelevariga(p)
codice.Text = ""
codice.SetFocus
End Sub
Private Sub CommandButton6_Click()
Dim p As persona
Call registra(p)
Put #1, codice, p
End Sub
Private Sub CommandButton7_Click()
ListBox1.Visible = True
ListBox1.Clear
codice.SetFocus
End Sub
Private Sub prelevatabella(p As persona)
Frame1.Visible = False
ListBox1.Visible = False
Dim h As String
h = " "
ListBox2.Visible = True
ListBox2.AddItem ("record n." & codice)
ListBox2.AddItem (p.cognome & h & p.nome & h &
p.qualifica & h & p.paese & h & p.anni)
End Sub
Private Sub CommandButton8_Click()
Dim k As Integer
Dim p As persona
For k = 1 To 5
Get #1, codice, p
Call prelevatabella(p)
codice = codice + 1
Next k
codice.Text = ""
codice.SetFocus
End Sub
Private Sub CommandButton9_Click()
ListBox2.Clear
codice.SetFocus
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub prelevaleggischeda(p As persona)
Frame1.Visible = True
ListBox1.Visible = False
ListBox2.Visible = False
cognometxt = p.cognome
nometxt = p.nome
qualificatxt = p.qualifica
paesetxt = p.paese
annitxt = p.anni
codice.SetFocus
End Sub
Private Sub prelevariga(p As persona)
Label8.Caption = p.cognome
Label9.Caption = p.nome
Label10.Caption = p.qualifica
Label11.Caption = p.paese
Label12.Caption = p.anni
End Sub
Private Sub prelevalista(p As persona)
Frame1.Visible = False
ListBox2.Visible = False
ListBox1.Visible = True
ListBox1.AddItem ("record = " & codice)
ListBox1.Visible = True
ListBox1.AddItem (p.cognome)
ListBox1.AddItem (p.nome)
ListBox1.AddItem (p.qualifica)
ListBox1.AddItem (p.paese)
ListBox1.AddItem (p.anni)
ListBox1.AddItem ("---------")
codice.SetFocus
End Sub
Private Sub registra(ByRef p As persona)
p.cognome = cognometxt
p.nome = nometxt
p.qualifica = qualificatxt
p.paese = paesetxt
p.anni = annitxt
End Sub