求助：关于Combo1下拉项双击事件！

veketdelphi2013-11-28 11:41

建立一个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-28 11:51

回复 2楼 veketdelphi

谢谢

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

求助：关于Combo1下拉项 双击事件！