vb combo1的 Enabled 用法 大家幫幫手!謝謝!

[kennychik]

鼠標單擊選了後將Combo1 不給予選取,將其disable (Combo1.Enabled = False).
Private Sub Combo1_Click()
Combo1.Enabled = False
End Sub

鼠標雙擊後將Combo1 開啟可以選取,將其Enabled (Combo1.Enabled = true).(但是不能實現不知道怎樣寫?)
Private Sub Combo1_DblClick()
Combo1.Enabled = true
End Sub

Private Sub Form_Load()
Combo1.AddItem ""
Combo1.AddItem "11"
Combo1.AddItem "22"
Combo1.AddItem "33"
Combo1.AddItem "44"
Combo1.AddItem "55"
End Sub

不知道功能如何可以實現,請大家幫幫手!好急在現等!謝謝!

[jhone99]

Enabled = False就不再作用，应该用其他方法解禁

[神马都能聊]

1、鼠标在窗体上移动时获取鼠标的坐标，看是否在combo的上面；
2、因为combo.enabled = FALSE，所以双击事件是被窗体截获了。

private sub form_dbclick()

if point 满足条件 then combo.enabled = true
end sub

[jhone99]

Private Sub Form_DblClick()
    Combo1.Enabled = True

End Sub

这个效果较好

[kennychik]

多謝曬各位啊!還有無其他更好的建議啊!

[king06]

这是什么需求啊,既然双击了还可以选择,那么不如把它的style属性设置成2哦

[kennychik]

我雙擊只是可以對其進行修改啊!

[king06]

style不是1的情况下不会发生双击事件

[hanvan]

在前面加一个CheckBox多好

[伍哥的传说]

我只能讲一句话你太牛了，控件已经不能用了，你还写在单击里边有什么用咯，几乎是不可能完成的事了，须得借助别外控件的事件来完成操作