 |
问题在于 COMBOBOX 的属性Style 应该设置为:0-Dropdown Combo。例子:
Private Sub Combo1_Click()
Combo1.Text = Left(Combo1.Text, 5)
End Sub
Private Sub Form_Load()
Combo1.AddItem "S1101 厦门"
Combo1.AddItem "S1102 XXX"
End Sub
watson yin的意见:
我提供一个很笨的方法:在combobox上放置一个无边框的textbox,使其大小恰好覆盖combobox的白色区域,点击combobox时,将值写入textbox即可。
此问题由唐劲松回答。
附加关键字:编程, 源程序, programming, source code, Visual Basic, VB, 标准控件, screen, button, combo, checkbox, listbox。
|