vb 是怎么做到的 双击该按钮以执行该命令，而不是单击执行命令。

private sub command1_click()static t as single

if timer - t < then '这里设置为在一秒钟内双击双击。

print "afsdf" '放置所需的**。

t = 0else

t = timer

end if

end sub

1.单击VB中的命令按钮，触发单击事件，即表单的单击事件。

2. 单击VB中的命令按钮以触发失焦事件，当焦点不在按钮上时发生。

3.单击VB中的命令按钮触发键盘按下事件，然后按任意键盘触发事件。

4.点击VB中的命令按钮触发鼠标按下事件，以及按下鼠标时可以触发的事件，无论是左键还是右键。

5. 单击VB中的命令按钮以触发鼠标移动事件，该事件可能在鼠标移动到键盘上时发生。

怎么做：

1）在当前窗口中按钮的单击事件中，执行表单的按钮的 value 属性被分配给 true 项目。

value 属性，则 CommandButton 控件返回或设置一个值，该值指示按钮是否可选; 在设计时不可用。

private sub command1_click()

trueend sub

2）在VB中，你只需要在另一个窗体中添加一个定时器控件，并调用窗体的定时器控件来更改它以当前窗体。

enabled 属性或 interval 属性。

定时器控制，可以通过引发定时器事件来定期执行。

Enabled 属性，该属性返回或设置一个值，该值确定窗体或控件是否能够对用户生成的事件做出反应。

interval 属性，该属性返回或设置对 Timer 控件的 Timer 事件的调用之间的毫秒数。

下面是更改计时器控件的 enabled 属性的示例：

form2**：

option explicit

dim i as long

private sub command1_click()

i = i + 1

iend sub

private sub form_load()

1= false

end sub

private sub timer1_timer()

command1_click

falseend sub

form1**：

option explicit

dim i as long

private sub command1_click()

trueend sub

private sub form_load()

end sub

private sub timer1_timer()

command1_click

end sub

private sub command1_click() '按下了 command1 按钮中的窗体。

在按下事件时调用形式 b 的 command1 按钮。

end sub

写在表格 a 的命令按钮 ** 中。

b 表单名称。 bForm 命令按钮。 click()

使用命令的 value 属性，例如：

private sub command1_click() '按下了 command1 按钮中的窗体。

通过按事件结束子调用形式 b 的 command1 按钮

form 1 form2

在 命令1 的 click 事件中执行，形式为 A。

在线上。

我似乎不知道这个。

一个按钮只能执行两个命令：

通过改变标题属性，可以实现多种命令，即每次按下标题时都会改变标题，根据不同的标题执行不同的命令;

至少可以根据mousemove、mousedown、mouseup等事件以及移位值执行21种不同的操作;

定义一个全局变量，该变量在每次按下按钮时递增，然后根据其值执行不同的操作;

关于如何响应其他事件，请参考VB中CODE模块右上角事件列表框中的提示。

不同的按键操作类似于鼠标操作，可以实现许多不同的命令。