请问Combo1在下拉选中项目时，怎么自动产生双击事件，比如我选择Combo1列表中的1月 在窗体上就出现1月的按钮（事先隐藏了的）。在线等，谢谢。

建立一个command控件数组
'请用单击事件
Private Sub Combo1_Click()
    Dim i As Integer
    For i = 0 To Combo1.ListCount - 1
        If i = Combo1.ListIndex Then
            Command1(i).Visible = True
        Else
            Command1(i).Visible = False
        End If
    Next
End Sub
Private Sub Form_Load()
    Dim i As Integer
    For i = 0 To 11
        Combo1.AddItem Str(i + 1) & "月"
        Command1(i).Caption = "按钮" & Str(i + 1)
        Command1(i).Visible = False
    Next
End Sub

谢谢

[ 本帖最后由 事业男儿 于 2013-11-29 19:45 编辑 ]