combinata2

combobox - casella combinata

assegnazioe proprietà a combobox1 direttamente da finestra

per vedere combinata2.ppt

Private Sub CommandButton1_Click()
ComboBox1.ShowDropButtonWhen = fmShowDropButtonWhenAlways
ComboBox1.AddItem "rossini"
ComboBox1.AddItem "rossini"
ComboBox1.AddItem "rossini"
ComboBox1.AddItem "rossini"
ComboBox1.AddItem "rossini"
ComboBox1.AddItem "rossini"
End Sub

Private Sub CommandButton2_Click()
ComboBox2.ShowDropButtonWhen = fmShowDropButtonWhenFocus
ComboBox2.SpecialEffect = fmSpecialEffectBump
ComboBox2.DropButtonStyle = fmDropButtonStylePlain
ComboBox2.ControlTipText = "casella combinata2"
ComboBox2.AddItem "rossini"
ComboBox2.AddItem "rossini"
ComboBox2.AddItem "rossini"
ComboBox2.AddItem "rossini"
ComboBox2.AddItem "rossini"
ComboBox2.AddItem "rossini"
End Sub

Private Sub CommandButton3_Click()
ComboBox3.SpecialEffect = fmSpecialEffectBump
ComboBox3.ControlTipText = "casella combinata3"
ComboBox3.AddItem "rossini"
ComboBox3.AddItem "rossini"
ComboBox3.AddItem "rossini"
ComboBox3.AddItem "rossini"
ComboBox3.AddItem "rossini"
ComboBox3.AddItem "rossini"
ComboBox3.Style = fmStyleDropDownList
ComboBox3.DropButtonStyle = fmDropButtonStyleEllipsis
End Sub

Private Sub CommandButton4_Click()
ComboBox4.ControlTipText = "casella combinata4"
ComboBox4.BackColor = vbCyan
ComboBox4.BackStyle = fmBackStyleOpaque
ComboBox4.BorderColor = vbRed
ComboBox4.ForeColor = vbBlue
ComboBox4.Height = 20
ComboBox4.MaxLength = 50
ComboBox4.Text = "testo inserito"
ComboBox4.TextAlign = fmTextAlignCenter
ComboBox4.AddItem "rossini"
ComboBox4.AddItem "rossini"
ComboBox4.AddItem "rossini"
ComboBox4.AddItem "rossini"
ComboBox4.AddItem "rossini"
ComboBox4.AddItem "rossini"

End Sub