1樓:匿名使用者
private declare function getasynckeystate lib "user32" (byval vkey as long) as integer '宣告
function getkey() as stringdim addkey as string
keyresult = getasynckeystate(32) '回車鍵
if keyresult = -32767 thenaddkey = "[enter]"
goto keyfound
end if
keyfound: '顯示鍵的資訊
if addkey = "" then
exit function
else
getkey = addkey
'-------------------------end if
end function
private sub timer1_timer() '顯示按鍵static a as string
a = getkey
if a <> "" then label1.caption = aend sub
按enter就可以了.
2樓:匿名使用者
在datagrid _keypress事件中加上call form_keypress
請教用VB定義外部程序快捷鍵,請教用VB定義外部程式快捷鍵
option explicit private declare function getasynckeystate lib user32 byval vkey as long as integer private sub timer1 timer 新增乙個時鐘控制項,並且把interval 屬性設定...
求ps快捷鍵,PS常用快捷鍵
新鍵ctrl n 開啟ctrl o 開啟為。ctrl shift alt o 關閉 ctrl w,關閉全部alt ctrl w,儲存ctrl s,另存為。alt ctrl s,恢復f12,還原 重做 ctrl z 前進一步ctrl shift z 後退alt ctrl z 剪下 ctrl x,複製c...
PS的快捷鍵 ps常用快捷鍵
整個介面快捷鍵 工具箱 選區 m 移動 v 套索 l 魔術棒 w裁切 c 注意不是剪下 修復畫筆 j 畫筆 b 橡皮圖章 s 歷史記錄畫筆 y 橡皮 e 漸變 g 模糊 r 減淡 o 路徑選擇 a 文字 t 鋼筆 p 矩形 u 注釋 n 吸管 i 抓手 平移 h 空格鍵宜可 縮放 z 前景 背景 默...