未得到焦点时是文本框，得到焦点后是下拉列表框，请问这怎样实现？（好象在gotfocus事件中不能实现）

Question

Private Sub Text1_GotFocus()
Combo1.SetFocus
Text1.Visible = False
End Sub

Answer 1

或者
Private Sub Form_Load()
combo1.style=2
end sub

Answer 2

使用 Forms 2.0 控件组中的 ComboBox,将属性 ShowDropButtonWhen 设为 1-fmShowdropButtonWhenFocus

Answer 3

那就用： y1g1y1(袁飞☆曾经沧海难为水，除却VB不是云☆) 的方法吧！

Answer 4

将文本框与combox重叠在一起，设置文本框在上其visible为ture,combox的为Fales。然后：
Private Sub Text1_GotFocus()
text1.visible=false
combox1.visible=true
combox1.setfocus
end subPrivate Sub Combox1_LostFocus()
text1.visible=True
combox1.visible=False
end sub