forma30

in arrivo...

 gestione Combobox e Listbox


Private Sub CommandButton1_Click()
ComboBox1.AddItem "marco"
ComboBox1.AddItem "luigi"
ComboBox1.AddItem "anna"

End Sub

Private Sub CommandButton2_Click()
ListBox1.AddItem "marco"
ListBox1.AddItem "carlo"
ListBox1.AddItem "alberto"
End Sub

Private Sub CommandButton1_Click()
ListBox1.RemoveItem 1
End Sub

Private Sub CommandButton2_Click()
ListBox1.Clear
End Sub

Private Sub CommandButton3_Click()
ListBox1.ListIndex = 1
End Sub

Private Sub CommandButton4_Click()
ListBox1.RemoveItem ListBox1.ListIndex
End Sub

Private Sub CommandButton5_Click()
ListBox1.ListIndex = 1
MsgBox ListBox1.List(1)
End Sub

Private Sub CommandButton6_Click()
ListBox1.AddItem "anna"
ListBox1.AddItem "luigi"
ListBox1.AddItem "carlo"
ListBox1.AddItem "luisa"
ListBox1.AddItem "alberto"
End Sub


Private Sub CommandButton3_Click()
ListBox1.RemoveItem 2
End Sub

Private Sub CommandButton4_Click()
ListBox1.Clear
End Sub

Private Sub UserForm_Click()

End Sub

ritorna