listbox3proprietà

per vedere listbox3.ppt

creare 6 pulsanti(inserire testo) 2 textbox(1,2) 1 listbox1, 8 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 valore in lista
Dim nuovo As String
nuovo = "testo sostituito"
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 commandbutton6_Click()
Rem cancella lista
ListBox1.Clear
End Sub

altro esempio con inserimento dati da tastiera