'看看是不是這個(gè)效果
網(wǎng)站設(shè)計(jì)制作過程拒絕使用模板建站；使用PHP+MYSQL原生開發(fā)可交付網(wǎng)站源代碼;符合網(wǎng)站優(yōu)化排名的后臺(tái)管理系統(tǒng)；網(wǎng)站制作、成都網(wǎng)站制作收費(fèi)合理；免費(fèi)進(jìn)行網(wǎng)站備案等企業(yè)網(wǎng)站建設(shè)一條龍服務(wù).我們是一家持續(xù)穩(wěn)定運(yùn)營(yíng)了10余年的成都創(chuàng)新互聯(lián)公司網(wǎng)站建設(shè)公司。
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal Scan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const KEYEVENTF_KEYUP = H2 '釋放按鍵常數(shù)
Private Sub Command1_Click()
Call keybd_event(9, 0, 0, 0) '按下
Call keybd_event(9, 0, KEYEVENTF_KEYUP, 0) '釋放
'9表示TAB，是ASCII
End Sub
F1 幫助
F2 對(duì)象瀏覽器
Shift+F2 定義
Ctrl+Shift+F2 最后位置
F3 查找下一個(gè)
F4 屬性窗口
Shift+F4 屬性頁(yè)
F5 啟動(dòng)
Ctrl+F5 全編譯執(zhí)行
Shift+F5 重新啟動(dòng)
F6 也是屬性窗口
F7 代碼窗口
Shift+F7 對(duì)象窗口
F8 逐語句
Shift+F8 逐過程
Ctrl+Shift+F8 跳出
Ctrl+F8 運(yùn)行到光標(biāo)處
F9 切換斷點(diǎn)
Shift+F9 快速監(jiān)視
Ctrl+Shift+F9 清除所有斷點(diǎn)
Ctrl+F9 設(shè)置下一條語句
Shift+F10 快捷菜單
1． F12：轉(zhuǎn)到定義；Shift+F12：轉(zhuǎn)到引用
2． F5：?jiǎn)?dòng)；Ctrl+F5：開始執(zhí)行（不調(diào)試）；Shift+F5：停止調(diào)試
3． F7：查看代碼；Shift+F7：查看視圖設(shè)計(jì)器
4． Ctrl+Alt+L：解決方案資源管理器
5． Ctrl+Alt+J：對(duì)象瀏覽器
6． F4：顯示屬性窗口
7． Ctrl+Alt+X：工具箱
8． Ctrl+Alt+C類視圖
9． Alt+Enter：查看屬性
10．F10：逐過程調(diào)試
11．F11：逐語句調(diào)試
12．Ctrl+B：新斷點(diǎn)
13．Ctrl+Shift+F9：清除所有斷點(diǎn)
14．Ctrl+Shift+B生成解決方案
15．Shift+Alt+Enter：全屏
16．大綱顯示：Ctrl+M, Ctrl+M：切換大綱顯示展開；Ctrl+M, Ctrl+L：切換所有大綱顯示；Ctrl+M,Crtl+P停止大綱顯示；Ctrl+M, Ctrl+O：折疊到定義
17．智能感知：Ctrl＋J：列出成員；Ctrl+Shift+空格：參數(shù)信息； Ctrl+K,Ctrl+I：快速信息；Alt+右箭頭鍵：完成單詞
自己做個(gè)試驗(yàn)就行了：
Public?Class?Form1
'?在窗體上放個(gè)?Label1
Private?Sub?Form1_KeyDown(ByVal?sender?As?Object,?ByVal?e?As?System.Windows.Forms.KeyEventArgs)?Handles?Me.KeyDown
Lable1.Text?=?"KeyCode=?"??e.KeyCode.ToString??vbCrLf
Lable1.Text?=?"KeyData=?"??e.KeyData.ToString??vbCrLf
Lable1.Text?=?"KeyValue=?"??e.KeyValue.ToString
End?Sub
End?Class
運(yùn)行起來，自己按鍵盤試試就知道了。
F1－F12的keyCode分別為112-123 用VBS的Sendkeys方法
set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "{F1}"
WshShell.SendKeys "{F2}"
WshShell.SendKeys "{F3}"
WshShell.SendKeys "{F4}"
WshShell.SendKeys "{F5}"
WshShell.SendKeys "{F6}"
WshShell.SendKeys "{F7}"
WshShell.SendKeys "{F8}"
WshShell.SendKeys "{F9}"
WshShell.SendKeys "{F10}"
WshShell.SendKeys "{F11}"
WshShell.SendKeys "{F12}"
SendKeys 方法
請(qǐng)參閱
WshShell 對(duì)象 | Run 方法
將一個(gè)或多個(gè)鍵擊發(fā)送到活動(dòng)窗口（仿佛是在鍵盤上擊鍵一樣）。
object.SendKeys(string)
參數(shù)
object
WshShell 對(duì)象。
string
表示要發(fā)送的鍵擊（一個(gè)或多個(gè)）的字符串值。
說明
使用 SendKeys 方法可以將鍵擊發(fā)送到無自動(dòng)化界面的應(yīng)用程序中。多數(shù)鍵盤字符都可用一個(gè)鍵擊表示。某些鍵盤字符由多個(gè)鍵擊組合而成（例如，CTRL+SHIFT+HOME）。要發(fā)送單個(gè)鍵盤字符，請(qǐng)將字符本身作為 string 參數(shù)發(fā)送。例如，要發(fā)送字母 x，則請(qǐng)發(fā)送 string 參數(shù) "x"。
注意 要發(fā)送空格，則請(qǐng)發(fā)送字符串 " "。
可使用 SendKeys 同時(shí)發(fā)送多個(gè)鍵擊。為此，可將每個(gè)鍵擊按順序排列在一起，以此來創(chuàng)建表示一系列鍵擊的復(fù)合字符串參數(shù)。例如，要發(fā)送鍵擊 a、b 和 c，則需要發(fā)送字符串參數(shù) "abc"。SendKeys 方法將某些字符用作字符的修飾符（而不使用其本身的含義）。這組特殊的字符可包括圓括號(hào)、中括號(hào)、大括號(hào)，以及：
加號(hào) "+"、
插入記號(hào) "^"、
百分號(hào) "%"、
和“非”符號(hào) "~"。
用大括號(hào) "{}" 括起這些字符可以發(fā)送它們。例如，要發(fā)送加號(hào)，請(qǐng)使用字符串參數(shù) "{+}"。SendKeys中使用的中括號(hào) "[ ]" 無任何特殊含義，但是必須把它們括在大括號(hào)中，以便容納確實(shí)要賦予其特殊含義的應(yīng)用程序（例如，對(duì)于動(dòng)態(tài)數(shù)據(jù)交換 (DDE) 就是這樣）。
要發(fā)送左中括號(hào)字符，請(qǐng)發(fā)送字符串參數(shù) "{[]"；要發(fā)送右中括號(hào)字符，請(qǐng)發(fā)送字符串參數(shù) "{]}"。
要發(fā)送左大括號(hào)字符，請(qǐng)發(fā)送字符串參數(shù) "{{}"；要發(fā)送右大括號(hào)字符，請(qǐng)發(fā)送字符串參數(shù) "{}}"。
某些鍵擊不生成字符（如 ENTER 和 TAB）。某些鍵擊表示操作（如 BACKSPACE 和 BREAK）。要發(fā)送這些類型的鍵擊，請(qǐng)發(fā)送下表中列出的參數(shù)：
鍵 參數(shù)
退格鍵 {BACKSPACE}、{BS} 或 {BKSP}
BREAK {BREAK}
CAPS LOCK {CAPSLOCK}
DEL 或 DELETE {DELETE} 或 {DEL}
向下鍵 {DOWN}
END {END}
ENTER {ENTER} 或 ~
ESC {ESC}
HELP {HELP}
HOME {HOME}
INS 或 INSERT {INSERT} 或 {INS}
向左鍵 {LEFT}
NUM LOCK {NUMLOCK}
PAGE DOWN {PGDN}
PAGE UP {PGUP}
PRINT SCREEN {PRTSC}
向右鍵 {RIGHT}
SCROLL LOCK {SCROLLLOCK}
TAB {TAB}
向上鍵 {UP}
F1 {F1}
F2 {F2}
F3 {F3}
F4 {F4}
F5 {F5}
F6 {F6}
F7 {F7}
F8 {F8}
F9 {F9}
F10 {F10}
F11 {F11}
F12 {F12}
F13 {F13}
F14 {F14}
F15 {F15}
F16 {F16}
要發(fā)送由常規(guī)鍵擊和 SHIFT、CTRL 或 ALT 組合而成的鍵盤字符，請(qǐng)創(chuàng)建表示該鍵擊組合的復(fù)合字符串參數(shù)?？赏ㄟ^在常規(guī)鍵擊之前添加一個(gè)或多個(gè)以下特殊字符來完成上述操作：
鍵 特殊字符
SHIFT +
CTRL ^
ALT %
注意 這樣使用時(shí)，不用大括號(hào)括起這些特殊字符。
要指定在按下多個(gè)其他鍵時(shí)，按下 SHIFT、CTRL 和 ALT 的組合，請(qǐng)創(chuàng)建復(fù)合字符串參數(shù)，用括號(hào)括起其中的組合鍵。例如，要發(fā)送的組合鍵指定：
如果在按 e 和 c 的同時(shí)按 SHIFT 鍵，則發(fā)送字符串參數(shù) "+(ec)"。
如果在按 e 時(shí)只按 c（而不按 SHIFT），則發(fā)送字符串參數(shù) "+ec"。
可使用 SendKeys 方法發(fā)送一種在一行內(nèi)重復(fù)按鍵的鍵擊。為此，要?jiǎng)?chuàng)建復(fù)合字符串參數(shù)，以指定要重復(fù)的鍵擊，并在其后指定重復(fù)次數(shù)?？墒褂?{鍵擊 數(shù)字} 形式的復(fù)合字符串參數(shù)來完成上述操作。例如，如果要發(fā)送 10 次 "x"，則需要發(fā)送字符串參數(shù) "{x 10}"。請(qǐng)確保在鍵擊和數(shù)字之間有一個(gè)空格。
注意 只可以發(fā)送重復(fù)按一個(gè)鍵的鍵擊。例如，可以發(fā)送 10 次 "x"，但不可發(fā)送 10 次 "Ctrl+x"。
注意 不能向應(yīng)用程序發(fā)送 PRINT SCREEN 鍵 {PRTSC}。
示例
下面的示例演示如何將一個(gè) .wsf 文件用于以不同腳本語言（VBScript 和 Jscript）寫成的兩個(gè)作業(yè)。每個(gè)作業(yè)都運(yùn)行 Windows 計(jì)算器并將它發(fā)送給鍵擊以執(zhí)行簡(jiǎn)單的計(jì)算。
package
job id="vbs"
script language="VBScript"
set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "calc"
WScript.Sleep 100
WshShell.AppActivate "Calculator"
WScript.Sleep 100
WshShell.SendKeys "1{+}"
WScript.Sleep 500
WshShell.SendKeys "2"
WScript.Sleep 500
WshShell.SendKeys "~"
WScript.Sleep 500
WshShell.SendKeys "*3"
WScript.Sleep 500
WshShell.SendKeys "~"
WScript.Sleep 2500
/script
/job
job id="js"
script language="JScript"
var WshShell = WScript.CreateObject("WScript.Shell");
WshShell.Run("calc");
WScript.Sleep(100);
WshShell.AppActivate("Calculator");
WScript.Sleep(100);
WshShell.SendKeys ("1{+}");
WScript.Sleep(500);
WshShell.SendKeys("2");
WScript.Sleep(500);
WshShell.SendKeys("~");
WScript.Sleep(500);
WshShell.SendKeys("*3");
WScript.Sleep(500);
WshShell.SendKeys("~");
WScript.Sleep(2500);
/script
/job
/package
一樓的方法比較巧妙,不過樓上的好像不行
最完善的方法當(dāng)然做鍵盤勾子
簡(jiǎn)單點(diǎn)的,就在Form的KeyDown屬性里做就OK了
也要把窗口的keypreview設(shè)為True,然后粘貼下面的代碼:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
if keycode=vbkeyf3 then check1.value=check1.value xor 1
End Sub
就一句
重慶分公司
重慶分公司
