求助：关于Combo1下拉项双击事件！ - VB6论坛

编程论坛 → 开发语言 → 『 VB6论坛』 → 求助：关于Combo1下拉项双击事件！

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

只看楼主

事业男儿

等　级：论坛游民
帖　子：308
专家分：14
注　册：2007-4-25
结帖率：81.69%

楼主

已结贴√ 问题点数：20 回复次数：2

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

Combo1下拉项双击事件问题.rar (2.2 KB)

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

搜索更多相关主题的帖子: Combo1　在线　项目　

2013-11-27 16:14

veketdelphi

等　级：职业侠客
帖　子：67
专家分：374
注　册：2013-4-8

第 2 楼

得分:14

建立一个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:41

事业男儿

等　级：论坛游民
帖　子：308
专家分：14
注　册：2007-4-25

第 3 楼

得分:0

回复 2楼 veketdelphi

谢谢

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

2013-11-28 11:51

参与讨论请移步原网站贴子：https://bbs.bccn.net/thread-424292-1-1.html