Question

关于vb Combo1控件在选择项目时自动点击

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

Answer 1

可以在combo1的单击事件中调用双击事件过程不就可以嘛。
Private Sub Combo1_Click()
Command1.Caption = Combo1.Text '只要把按钮标题根据选择项目改一下名就可以了。
Command1.Visible = True
Combo1_DblClick
End Su

追问

Private Sub Form_Load()
Command1.Visible = False
Combo1.AddItem "1月"

For i = 0 To Combo1.ListCount - 1
ReDim Preserve Tmpstr$(i)
Tmpstr(i) = Combo1.List(i)
Next

End Sub

追答

Private Sub Form_Load()
    Command1.Visible = False
    Dim i As Integer
    For i = 1 To 12
        Combo1.AddItem i & "月"
        Combo1.ItemData(Combo1.NewIndex) = i '这个属性存储一个数值，不需要再另外存储到数组
    Next
End Sub
Private Sub Combo1_Click()
    Command1.Caption = Combo1.Text '只要把按钮标题根据选择项目改一下名就可以了。
    Command1.Visible = True
    
    On Error Resume Next '事件如没写会发生错误
    Combo1_DblClick
End Sub
Private Sub Combo1_DblClick()
    Select Case Val(Combo1.ItemData(Combo1.ListIndex)) '根据不同月份进行处理
        Case 1
        Case 2
        Case 3
        Case 4
        Case 5
        Case 6
        Case 7
        Case 8
        Case 9
        Case 10
        Case 11
        Case 12
        MsgBox "十二月"
    End Select
End Sub
Private Sub Command1_Click()
    Select Case Val(Command1.Caption) '根据不同月份进行处理
        Case 1
        Case 2
        Case 3
        Case 4
        Case 5
        Case 6
        Case 7
        Case 8
        Case 9
        Case 10
        Case 11
        Case 12
        MsgBox "十二月"
    End Select
End Sub

Answer 2

这个当然可以实现，但是能不能把你的具体要求说一下？