如何解决这个简单的问题?

Question

做一个简单的类似下拉框的控件，使用commandButton和msflexgrid,在点击button时显示msflexgrid（就像下拉框），下拉后如何实现，点击任何窗体上的其它控件msflexgrid便隐藏起来了（还是像下拉框一样，不要通过在其它控件的Click事件中加代码）。或者哪位大侠有类似控件源码，能给我发一个或贴上来，谢谢大家了。问题解决立即结贴

Answer 1

Private Sub UserControl_LostFocus()    msflexgrid1.visible=falseEnd Sub

Answer 2

不是这样，是要实现像comboBox拟的（只要点击任何其它区域均收回即隐藏）,我觉得好像可通过API实现吧?大家帮帮忙!!!!!!

Answer 3

http://www.easthot.net/dl_info.asp?id=7
色彩选择ComboBox   提交人：Bardo 
大小 点击数 授权 
9K  183  FREE  
平台 发行人 语言 
Windows  Bardo  中文  
添加日期 投票 报告失效链接 
2002-12-5  投票此文件 报告失效链接 
描述： 
用VB做ComboBox好象很难，不过，如果有人给你一个例子可能一切都好办了这原本是一个国外的代码。但Bardo作了修改！注意：本站还有此源码的新版（2.0）  

Answer 4

写一个过程:
        MSFCodeList0.Left = InputText0(Index).Left
        MSFCodeList0.Top = InputText0(Index).Top + InputText0(Index).Height
        MSFCodeList0.ColWidth(0) = Col0Width
        MSFCodeList0.ColWidth(1) = Width
        MSFCodeList0.Width = Col0Width + Width
        MSFCodeList0.RowHeightMin = 255
        MSFCodeList0.Height = IIf(tmpRec.RecordCount * 277 <               MSFCodeList0.RefreshPrivate Sub UserControl_LostFocus()
       MSFCodeList0.Visible=false
End SubMSFCodeList0为msflexgrid

Answer 5

应该可以的呀，我上面的代码只是没有加上命令按钮的单击事件：Private Sub UserControl_LostFocus()    msflexgrid1.visible=falseEnd Sub
private sub command1_click()    msflexgrid1.visible=not msflexgrid1.visibleend sub

Answer 6

不好意思，改一下，应该是在exitfocus事件里写代码：Private Sub UserControl_ExitFocus()    msflexgrid1.visible=falseEnd Sub
private sub command1_click()    msflexgrid1.visible=not msflexgrid1.visibleend sub

Answer 7

你的代码，我试了ExitFocus也不行，点击窗体上空白地方不起作用