1樓：匿名使用者
**如下：
private sub form_keydown(keycode as integer, shift as integer)
select case keycode
case vbkeynumpad0
command1_click '這段就是按鈕1點選,等價於你在窗體上點了一下按鈕,把它改成你設定的那個代表"0"的按鈕
case vbkeynumpad1
command2_click '把它改成你設定的那個代表"1"的按鈕case vbkeynumpad2
''case vbkeynumpad3
....
end select
end sub
2樓：哎呀沃去
在同一目錄下，放有數字（hscroll1取值範圍）.jpg**檔案private sub hscroll1_change()image1.picture=loadpicture（hscroll1.
3樓：匿名使用者
首先，在窗體上畫乙個textbox ，按f5執行工程，然後滑鼠在text裡面點一下，然後按鍵盤就可以了！
4樓：匿名使用者
我同意前面的朋友的建議-考慮不在介面上放置接受焦點的控制項（或者設定成不接受焦點），以便實施鍵盤事件獲取。例如可通過form_keypress事件獲取使用者所按按鍵的碼，然後根據該碼改變text（當然可以是其它控制項）的內容。**如：
private sub form_keypress(keyascii as integer)
text1.text = text1.text + chr(keyascii)
end sub
5樓：
如果是計算器的話，你搞個計時器，讓焦點一直在text1裡，+—*/的話，用2樓的方法，簡單
6樓：匿名使用者
sendkeys "1"
sendkeys "a"...
怎樣用vb模擬鍵盤輸入
7樓：匿名使用者
ivate declare function findwindow lib "user32" alias "findwindowa" (byval lpclassname as string, byval lpwindowname as string) as long
private declare function findwindowex lib "user32" alias "findwindowexa" (byval hwnd1 as long, byval hwnd2 as long, byval lpsz1 as string, byval lpsz2 as string) as long
private declare function sendmessage lib "user32" alias "sendmessagea" (byval hwnd as long, byval wmsg as long, byval wparam as long, lparam as any) as long
private sub command1_click()
dim hwnd as long, thwnd as long
shell "notepad.exe", 2 '開啟乙個記事本,將它最小化
hwnd = findwindow("notepad", "無標題 - 記事本") '得到記事本控制代碼
thwnd = findwindowex(hwnd, 0, "edit", vbnullstring) '得到記事本控制代碼(就是我們寫字的那裡)
sendmessage thwnd, wm_settext, 0, byval "好了,快給我分" '向記事本寫入文字
end sub
8樓：匿名使用者
set wshell=wscript.createobject("wscript.shell")
wscript.sleep 1000
wshell.sendkeys "c"
wscript.sleep 1000
wshell.sendkeys "b"
vb 實現自動按鍵盤如何寫？？
9樓：尼歐趙
在窗體加command1、command2、timer1控制項。
private sub command1_click() 』開始迴圈按鍵
timer1.interval = 1000 '此處設迴圈時間.
timer1.enabled = trueend sub
private sub command2_click() 』停止迴圈按鍵
timer1.enabled = falseend sub
private sub timer1_timer()sendkeys ""
sendkeys ""
sendkeys ""
end sub
10樓：匿名使用者
新建command1.timer1控制項.複製下面**到**視窗.
private sub command1_click()timer1.enabled = trueend sub
private sub form_load()timer1.interval = 1000'此處設時間.
timer1.enabled = falseend sub
private sub timer1_timer()sendkeys ""
sendkeys ""
sendkeys ""
end sub
測試ok
11樓：
sendkeys ""
sendkeys ""
編在timer裡面
用VB寫小程式可以代替鍵盤輸入，用VB寫乙個小程式可以代替鍵盤輸入
真長啊 private sub command3 click dim i as long 單擊後等同於如下效果 1 按鍵盤的 alt tab 是先按alt然後不鬆開alt按tab 目的就是為了切換 sendkeys 2 按鍵盤的 tab 4下 for i 1 to 4 sendkeys next i...
1 編寫程式實現如下功能 通過鍵盤輸入3 4的整數陣列前3行3列的元素值，將各行的前元素的和放在該
1全部伯盈秀 這位兄台 你的程式 除錯過嗎？include define row num 3 陣列行數 define col num 4 陣列列數 main fprintf infile,15s n the former for i 0 i arr row num 1 col num 1 arr 0...
VB中從鍵盤輸入正整數，然後把該數的每位數字按逆序輸出
設這個數是num int data 10 int count 0 dowhile num 0 int i for i count 1 i 0 i while x 9 while x x 10 len trim str x vb 輸入乙個合法的3位正整數,測試其數值合法性後,逆序輸出並顯示,例如,輸入...
編寫程式實現 從鍵盤輸入數到陣列d2中，求其中偶數的個數並輸出
大概寫寫你的錯誤 你對題的理解不對，要傳值應該也是向zx 傳a陣列你要zx 返回值，那zx 就得有型別，應該是int zx 你要傳值，zx 就得有相應型別的形參，int zx int a 錯誤是不少，你主要是函式的的定義和呼叫不清楚，注意多看看，都是一些小錯誤，就是概念理解的不對，多看吧！以後可以直...
用cubase 5 怎麼使用midi鍵盤輸入 錄音
把midi鍵盤用midi線連線好你的音效卡，開啟軟體，點亮軌道上的小喇叭就能用了 1l正解前提是你得有音源 midi鍵盤在cubase中的使用 那是因為你的cubase現在設定的最小時值是4分音符的時值，你需要修改最小時值的設定 在你的版面上 應該有個黑框裡面寫著1 4 點旁邊的小箭頭改成1 16 ...