VB6鼠标用途

表示您的 ** 是正确的，但我没有使用旋钮控件，所以我不知道事件的触发顺序。

因此，也有可能你的**不会成功玄牛点击（按钮为整数，shift为整数，x为单，y为单）。

这个事件的参数语句我不保证它能存在，但是存在的概率很小【地球上人人都知道，点击事件只有在完成点击动作后才能触发，而且没有参数。

关键是要多练习，其实以后你会发现这个旋钮对程序可能没有多大意义。

因为它不一定与程序的整个界面集成，所以会有拖累整个界面设计的负面影响。

其他都没问题，事件有点问题，建议事件（也要）改成玄牛点击

另外，还需要再写一个玄牛 dblclick 事件。

用于在双击时重新激活按钮。

private sub xuanniu_click(button as integer, shift as integer, x as single, y as single)

if button = 2 then

end if

end sub

private sub xuanniu_dblclick(button as integer, shift as integer, x as single, y as single)

if button = 2 then

end if

end sub

第一段是锁定。

第二部分是解锁。

这是我的文本框 text1，它符合您的要求。

dim bj as integer

private sub text1_click()if bj = 1 then exit submsgbox "文本框现在接收 click 事件。 "

end sub

private sub text1_dblclick()bj = 0

end sub

private sub text1_mousedown(button as integer, shift as integer, x as single, y as single)

if button = 2 then bj = 1end sub

你只是尝试知道，你必须自己练习，你很快就会忘记别人说的话。 所以我还是不会告诉你。