1樓:匿名使用者
如果用按鈕的話,不好實現,因為如果窗體中間有按鈕的話,窗體不接受方向鍵的巨集鋒哪事件,可以用標籤來代替按鈕。
給窗體兩個標籤,分別是label1,label2,輸入如下**看看:
private sub form_keydown(keycode as integer, shift as integer)
if keycode = 38 then label1_clickif keycode = 40 then label2_clickend sub
private sub label1_click()print "向上"
end sub
private sub label2_click()print "向下"
end sub
如果想做的好看一點,可以用**框來代替按鈕,不過如果用蔽碼picture控制項的話,必須把窗體的keypreview屬基輪性設定為true才行。
拋磚引玉,但願高手有更好的解決辦法。
用api監控鍵盤事件也可以實現按鈕的看盤控制,但是太麻煩了。
2樓:匿名使用者
private sub form_keydown(keycode as integer, shift as integer)
if keycode = 38 then label1_clickif keycode = 40 then label2_clickend sub
private sub n1_click()msgbox "上"
end sub
private sub n2_click()msgbox "下"
end sub
private sub n1_keydown(keycode as integer, shift as integer)
form_keydown keycode, 0end sub
private sub n2_keydown(keycode as integer, shift as integer)
form_keydown keycode, 0end sub
這樣子不管焦點在什麼控制項上都可以了。
3樓:匿名使用者
沒有人啊 ! 我也需要這種**, 實在不行就用滑鼠點吧!
4樓:匿名使用者
在按鈕的keydown事件裡邊判斷按下的是哪個鍵,然後引發按鈕單擊事件就可以了。
5樓:匿名使用者
每乙個控制項都清悉敬有鍵盤陸歷點選事件的 比如keydown keypress keyup 事件都是觸發鍵答慎盤的。
vb如何加清除文字框內容的按鈕,vb如何加一個清除文字框內容的按鈕
具體操作步驟如下 1 首先,在視窗中新增一個文字框,如下圖所示,然後進入下一步。2 其次,單擊文字框,在屬性視窗中設定文字框的屬性,清除文字,如下圖所示,然後進入下一步。3 接著,將文字框的enabled屬性設定為false,如下圖所示,然後進入下一步。4 然後,在表單上新增一個命令按鈕,如下圖所示...
gateway筆記本如何更換鍵盤上的按鍵
鍵盤更換是一個複雜繁複的工作,可以找到附近專業維修點,提前與修理人員進行溝通。通過修理人員定製所需要的型號,方便後期的更換。因為筆記本鍵盤一般修理店並不具備存貨。修理鍵盤並不能單獨換某一個按鍵或者某幾個按鍵,都是一整套進行更換的。更換鍵盤一般需要用到一些特殊裝置,所以,即使有配件也不建議自己修理。錯...
買的雷蛇機械鍵盤髒了就是按鍵和按鍵之前那些地方對這方面也
水洗是一定不行的,機械鍵盤中95 以上都是不防水的,少量防水的也只是防滴落,不防水沖洗,你可以用帶杆的醫用棉團加少量水擦一下,鍵帽下面的要拆下鍵帽再清理,有頭髮要用鑷子夾出來。買了個雷蛇的拔鍵器送了個這個東西不知道是幹什麼的好像是按在按鍵裡面的求告訴我這個東西有什麼用謝謝 消音器 裝載鍵帽裡面的 保...