Question

VB中能否用文本框加列表框实现组合框的功能？

如题，谢谢！
如何操作？谢谢！

Answer 1

可以的
在text后面画个command
text下面画个list
首先list的visible属性改为false不可见
Private Sub Command1_Click()
If List1.Visible = True Then List1.Visible = False Else List1.Visible = True
End Sub

Private Sub List1_Click()
Text1.Text = List1.List(List1.ListIndex) '或Text1.Text = List1.Text
List1.Visible = False
End Sub

当然，只能大概模拟，如果要完全模拟的话，需要的代码就太长了，比如你还要加上在其他任意位置点击时list1.visible=FALSE，还有鼠标移动时list中的蓝条一起移动等等……