listbox4

per vedere listbox4.ppt,

simile a precedente,listbox3.htm con inserimento codici e testo da sostituire, mediante tastiera

creare 7 pulsanti(inserire testo), 4 textbox, 1 listbox, 11 label

Private Sub commandbutton1_Click()
Rem inserimento dati da tastiera
ListBox1.AddItem (TextBox1)
TextBox1.SetFocus
TextBox1 = ""
End Sub


Private Sub commandbutton2_Click()
Rem aggiornamento situazione in lista
Label1.Caption = ListBox1.ListCount 'numero dati in lista
Label2.Caption = ListBox1.ListIndex 'codice elemento selezionato o -1 se nessuno
End Sub


Private Sub commandbutton3_Click()
Rem mostra elemento codificato da numerocodice
dato = ListBox1.List(ListBox1.ListIndex)
Label3.Caption = dato


End Sub


Private Sub commandbutton4_Click()
Rem sostituzione dato selezionato in lista con nuovo inserito da tastiera
Dim nuovo As String
nuovo = TextBox3
ListBox1.List(ListBox1.ListIndex) = nuovo
Label6.Caption = nuovo
End Sub


Private Sub commandbutton5_Click()
Rem cancellazione dato selezionato con richiesta di conferma
Dim k As Integer
k = ListBox1.ListIndex
If k = -1 Then
MsgBox ("devi selezionare un dato")
Else
Label7.Caption = "scrivi s o n e poi clicca ancora pulsante 5"
End If
If TextBox2.Text = "s" Then
ListBox1.RemoveItem (k)
End If
End Sub

Private Sub commandbutton8_Click()
Rem cancella lista
ListBox1.Clear
End Sub


Private Sub commandbutton6_Click()
Rem cancella dato da indicare con codice numerico da tastiera
Dim g As Integer
g = TextBox4
ListBox1.ListIndex = g
ListBox1.RemoveItem (g)
TextBox4 = ""
End Sub