1樓：
select case keyas
case 70
keyname = "f1"
'增加你的執行**，例如：
text1.forecolor= hff
'文字框字型顏色，每個判斷下面都應該有執行**的'或文字框顯示內容,下同。
text1.text ="f1"
case 71
keyname = "f2"
case 72
keyname = "f3"
case 73
keyname = "f4"
case 74
keyname = "f5"
case 75
keyname = "f6"
case 76
keyname = "f7"
case 77
keyname = "f8"
case 78
keyname = "f9"
case 79
keyname = "10"
end select
2樓：微標科技
那乾脆這樣算了
'新增窗體form1,文字框text1,按鈕command1,然後新增如下**:
private sub form_load()text1.enabled = falseend sub
private sub form_keydown(keycode as integer, shift as integer)
keyas = hex(keycode)
select case keyas
case 71
command1_click
case 70
text1.text = "123"
end select
end sub
關於VB中MDI窗體的問題，關於VB中MDI窗體的一個問題
private sub menclose click picture1.print i do until i 0 exit click i i 1 要有迴圈結束條件 loop end sub 1 private sub menclose click for i forms.count 1 to 0 ...
VB如何使窗體及部件浮在螢幕上而不能被選中
option explicit 宣告這兩個 api private declare function getwindowlong lib user32 alias getwindowlongw byval hwnd as long,byval nindex as long as long priva...
VB裡的mousemove事件舉例
這是滑鼠移動時發生的事件，如 private sub label1 mousemove button as integer,shift as integer,x as single,y as single msgbox 你點到我啦！end sub 當滑鼠移動到這個標籤控制元件的時候，就彈出對話方塊 ...