-
匿名使用者2024-02-07部分內容發布要過濾，不完整內容請看**。
private sub cmda click（） 這是 A 命令按鈕的 click 事件，請在此處新增具體處理。
end sub
private sub cmdb click（） 這是 b 命令按鈕的 click 事件，請在此處新增具體處理。
end sub
Private Sub cmdc click（） 這是 C 命令按鈕的 click 事件，請在此處新增具體處理。
end sub
private sub cmdd click（） 這是 d 命令按鈕的 click 事件，請在此處新增具體處理。
end sub
private sub cmda_keyup(keycode as integer, shift as integer) '這是 A 命令按鈕的鍵事件，為了使焦點響應到其他控制項上，您需要在可以獲得焦點的表單中對其他控制項的鍵控事件新增以下呼叫。
keyuptodo keycode, shift '呼叫處理程式。
end sub
private sub keyuptodo(keycode as integer, shift as integer) '這是如何處理它。
select case ucase(chr(keycode))case<>
-
匿名使用者2024-02-06我簡短地寫了它。
有兩個控制項：commanda、commandbprivate 子形式 load（） = true
end sub
private sub commanda_click()msgbox "a"
end sub
private sub commandb_click()msgbox "b"
end sub
private sub form_keydown(keycode as integer, shift as integer)
if keycode = vbkeya thencommanda_click
elseif keycode = vbkeyb thencommandb_click
end if
end sub
希望對你有所幫助。
首先，我們需要乙個非常強大的軟體，藍色
因為這個軟體是用英文安裝的，所以需要一點英文基礎，如果你不懂英文，請繼續點選旁邊的末尾，這裡不建議改預設安裝路徑，因為我之前改過一次，問題很多。 這是安裝完成後的樣子。 >>>More