在vb6.0下,我想用鼠标来实现对旋钮控件的锁定功能,比如在鼠标单击右键,锁定旋钮的数值;鼠标双击后又能激活旋钮调节。假设旋钮控件的名称为xuanniu,那么代码是下面这样么?
Private Sub xuanniu_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
xuanniu.enable=false
End If
Private Sub xuanniu_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
xuanniu.enable=false
End If
xuanniu.enable=true
假设它根本没有dblclick方法或谋mousedown方法 那你写的xuanniu_MouseDown就不可能得到执行。
那我要用鼠标来控制锁定,是不是就不能实现了?
Private Sub Label1_DblClick()
Option1.Enabled = True
End SubPrivate Sub Option1_DblClick()
Option1.Enabled = FalseEnd Sub