combobox
casella
combinata ComboBox
gestione Autosize-MaxLength
per vedere combinata.ppt
Private Sub CommandButton1_Click()
ComboBox1.AutoSize = False
ComboBox1.AddItem "rosso"
ComboBox1.AddItem "rosso nero"
ComboBox1.AddItem "rosso verde"
ComboBox1.AddItem "rosso giallo"
ComboBox1.AddItem "rosso azzurro"
ComboBox1.AddItem "rosso blu"
ComboBox1.AddItem "rosso arancione"
End Sub
Private Sub CommandButton2_Click()
ComboBox2.AutoSize = True
ComboBox2.AddItem "rosso"
ComboBox2.AddItem "rosso nero"
ComboBox2.AddItem "rosso verde"
ComboBox2.AddItem "rosso giallo"
ComboBox2.AddItem "rosso azzurro"
ComboBox2.AddItem "rosso blu"
ComboBox2.AddItem "rosso arancione"
End Sub
Private Sub CommandButton3_Click()
ComboBox3.AutoSize = False
ComboBox3.MaxLength = 5
ComboBox3.AddItem "rosso"
ComboBox3.AddItem "rosso nero"
ComboBox3.AddItem "rosso verde"
ComboBox3.AddItem "rosso giallo"
ComboBox3.AddItem "rosso azzurro"
ComboBox3.AddItem "rosso blu"
ComboBox3.AddItem "rosso arancione"
End Sub
Private Sub CommandButton4_Click()
ComboBox4.AutoSize = True
ComboBox4.MaxLength = 5
ComboBox4.AddItem "rosso"
ComboBox4.AddItem "rosso nero"
ComboBox4.AddItem "rosso verde"
ComboBox4.AddItem "rosso giallo"
ComboBox4.AddItem "rosso azzurro"
ComboBox4.AddItem "rosso blu"
ComboBox4.AddItem "rosso arancione"
End Sub
per vedere combinata2.ppt
Private Sub CommandButton1_Click()
ComboBox1.Style = fmStyleDropDownList
ComboBox1.AutoSize = True
ComboBox1.AddItem ("rossini")
ComboBox1.AddItem ("rossi")
ComboBox1.AddItem ("verdi")
ComboBox1.AddItem ("bassi")
ComboBox1.AddItem ("zanella")
ComboBox1.AddItem ("pascoli")
ComboBox1.AddItem ("romano")
End Sub
Private Sub CommandButton2_Click()
ComboBox2.Style = fmStyleDropDownList
ComboBox2.AutoSize = False
ComboBox2.AddItem "rossini"
ComboBox2.AddItem "rossi"
ComboBox2.AddItem "verdi"
ComboBox2.AddItem "bassi"
ComboBox2.AddItem "zanella"
ComboBox2.AddItem "pascoli"
ComboBox2.AddItem "romano"
End Sub
Private Sub CommandButton3_Click()
ComboBox3.Style = fmStyleDropDownCombo
ComboBox3.AutoSize = True
ComboBox3.AddItem "rossini"
ComboBox3.AddItem "rossi"
ComboBox3.AddItem "verdi"
ComboBox3.AddItem "bassi"
ComboBox3.AddItem "zanella"
ComboBox3.AddItem "pascoli"
ComboBox3.AddItem "romano"
End Sub
Private Sub CommandButton4_Click()
ComboBox4.Style = fmStyleDropDownCombo
ComboBox4.AutoSize = False
ComboBox4.AddItem "rossini"
ComboBox4.AddItem "rossi"
ComboBox4.AddItem "verdi"
ComboBox4.AddItem "bassi"
ComboBox4.AddItem "zanella"
ComboBox4.AddItem "pascoli"
ComboBox4.AddItem "romano"
End Sub