有没有办法让文本框显示下拉列表？在线等，在线给分。

Question

就是文本框或类似文本框的控件，点击一下出现组合框那样的下拉列表。我把ComboBox的Style属性设为1，变成文本框了，可下拉列表没有了。各位大侠有没有办法解决这个问题呢？

Answer 1

Private Sub Form_Load()
    Text1.ZOrder 0
    Text1.Move Combo1.Left, Combo1.Top, Combo1.Width, Combo1.Height
    Dim i%
    For i = 0 To 10
        Combo1.AddItem i
    Next
End Sub
Private Sub Combo1_Click()
    Text1.Text = Combo1.Text
    Text1.SetFocus
End Sub
Private Sub Text1_Click()
    Combo1.SetFocus
    SendKeys "{F4}"
End Sub