1樓：
'函式申明
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 '釋放按鍵常數
'回車鍵例子
private sub command1_click()text1.setfocus
call keybd_event(13, 0, 0, 0) '按下call keybd_event(13, 0, keyeventf_keyup, 0) '釋放
end sub
鍵碼 常數 值 描述
vbkeylbutton 1 滑鼠左鍵
vbkeyrbutton 2 滑鼠右鍵
vbkeycancel 3 cancel 鍵vbkeymbutton 4 滑鼠中鍵
vbkeyback 8 backspace 鍵vbkeytab 9 tab 鍵
vbkeyclear 12 clear 鍵vbkeyreturn 13 enter 鍵vbkeyshift 16 shift 鍵vbkeycontrol 17 ctrl 鍵vbkeymenu 18 選單鍵
vbkeypause 19 pause 鍵vbkeycapital 20 caps lock 鍵vbkeyescape 27 esc 鍵
vbkeyspace 32 spacebar 鍵vbkeypageup 33 pageup 鍵vbkeypagedown 34 pagedown 鍵vbkeyend 35 end 鍵
vbkeyhome 36 home 鍵
vbkeyleft 37 left arrow 鍵vbkeyup 38 up arrow 鍵vbkeyright 39 right arrow 鍵vbkeydown 40 down arrow 鍵vbkeyselect 41 select 鍵vbkeyprint 42 print screen 鍵vbkeyexecute 43 execute 鍵vbkeysnapshot 44 snap shot 鍵vbkeyinser 45 ins 鍵
vbkeydelete 46 del 鍵
vbkeyhelp 47 help 鍵
vbkeynumlock 144 num lock 鍵vbkeya 65 a 鍵
vbkeyb 66 b 鍵
vbkeyc 67 c 鍵
vbkeyd 68 d 鍵
vbkeye 69 e 鍵
vbkeyf 70 f 鍵
vbkeyg 71 g 鍵
vbkeyh 72 h 鍵
vbkeyi 73 i 鍵
vbkeyj 74 j 鍵
vbkeyk 75 k 鍵
vbkeyl 76 l 鍵
vbkeym 77 m 鍵
vbkeyn 78 n 鍵
vbkeyo 79 o 鍵
vbkeyp 80 p 鍵
vbkeyq 81 q 鍵
vbkeyr 82 r 鍵
vbkeys 83 s 鍵
vbkeyt 84 t 鍵
vbkeyu 85 u 鍵
vbkeyv 86 v 鍵
vbkeyw 87 w 鍵
vbkeyx 88 x 鍵
vbkeyy 89 y 鍵
vbkeyz 90 z 鍵
vbkey0 48 0 鍵
vbkey1 49 1 鍵
vbkey2 50 2 鍵
vbkey3 51 3 鍵
vbkey4 52 4 鍵
vbkey5 53 5 鍵
vbkey6 54 6 鍵
vbkey7 55 7 鍵
vbkey8 56 8 鍵
vbkey9 57 9 鍵
vbkeyf1 112 f1 鍵
vbkeyf2 113 f2 鍵
vbkeyf3 114 f3 鍵
vbkeyf4 115 f4 鍵
vbkeyf5 116 f5 鍵
vbkeyf6 117 f6 鍵
vbkeyf7 118 f7 鍵
vbkeyf8 119 f8 鍵
vbkeyf9 120 f9 鍵
vbkeyf10 121 f10 鍵
vbkeyf11 122 f11 鍵
vbkeyf12 123 f12 鍵
vbkeyf13 124 f13 鍵
vbkeyf14 125 f14 鍵
vbkeyf15 126 f15 鍵
vbkeyf16 127 f16 鍵
2樓：貫心弘建同
將一個或多個按鍵（注意可以是多個）訊息傳送到活動視窗，就如同在鍵盤上進行輸入一樣。
語法sendkeys
string[,
wait]
sendkeys
語句的語法具有以下幾個命名引數：
部分描述
string
必需的。字串表示式，指定要傳送的按鍵訊息。
wait
可選的。指定等待方式的
值。如果為
false（預設值），則控制元件在按鍵傳送出去之後立刻返回到過程。如果為
true，則按鍵訊息必須在控制元件返回到過程之前加以處理。
說明每個按鍵由一個或多個字元表示。為了指定單一鍵盤字元，必須按字元本身的鍵。例如，為了表示字母
a，可以用
"a"作為
string。為了表示多個字元，就必須在字元後面直接加上另一個字元。例如，要表示
a、b及
c，可用
"abcd"
作為string。
對sendkeys
來說，加號
(+)、插入符
(^)、百分比符號
(%)、上劃線
(~)及圓括號()
都具有特殊意義。為了指定上述任何一個字元，要將它放在大括號
({})
當中。例如，要指定正號，可用
表示。方括號
([])
對sendkeys
來說並不具有特殊意義，但必須將它們放在大括號中。在其它應用程式中，方括號有特殊意義，在出現動態資料交換
(dde)
的時候，它可能具有重要意義。為了指定大括號字元，請使用
及{}}。
為了在按下按鍵時指定那些不顯示的字元，例如
enter
或tab
以及那些表示動作而非字元的按鍵，請使用下列**：
按鍵**
backspace,,
或break
caps
lock
delor
delete
或down
arrow
endenter或~
eschelp
home
insor
insert
或left
arrow
numlock
page
down
page
upprint
screen
right
arrow
scroll
lock
tabup
arrow
f1f2
f3f4
f5f6
f7f8
f9f10
f11f12
f13f14
f15f16
為了指定那些與
shift、ctrl
及alt
等按鍵結合的組合鍵，可在這些按鍵碼的前面放置一個或多個**，這些**列舉如下：
按鍵**
shift
+ctrl
^alt
%為了說明在按下其它按鍵時應同時按下
shift、ctrl、及
alt的任意組合鍵，請把那些按鍵的碼放在括號當中。例如，為了說明按下e與
c的時候同時按下
shift
鍵，請使用
"+(ec)"。為了說明在按下
e的時候同時按下
shift
鍵，但接著按
c而不按
shift，則使用
"+ec"。
為了指定重複鍵，使用
的形式。必須在
key與
number
之間放置一個空格。例如，
意指42
次按下left
arrow
鍵；則是指
10次按下h鍵。
注意不能用
sendkeys
將按鍵訊息傳送到這樣一個應用程式，這個應用程式並沒有被設計成在
microsoft
windows
中執行。sendkeys
也無法將
screen
按鍵傳送到任何應用程式。
vb鍵盤問題，高手們來
有那麼複雜嗎？那麼長的 在窗體上新增一timer 新增 private declare function getasynckeystate lib user32 byval vkey as long as integer private function myhotkey vkeycode as b...
如上圖，在vb中，怎樣定使用鍵盤方向鍵令游標上下左右自由移動呢
假設這9個文字框是控制元件陣列，名字為text1，index從0 8，輸入如下 private sub text1 keydown index as integer,keycode as integer,shift as integer dim temp as integer temp index ...
用VB,,用VB，用VB將123456789這數字分成三位數，各個數字之間比例是
private sub command1 click dim tmpstr as string,tmpstr1 as string dim mpstr2 as string,tmpstr3 as string dim a as integer,b as integer,c as integer di...