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模組右上角事件列表框中的提示。

不同的按鍵操作類似於滑鼠操作，可以實現許多不同的命令。