1樓：匿名使用者
我認為沒有什麼方法，有專家稱vb自帶的字串連線符 「&」在進行大字元連線時效率低下
而且你每一毫秒要執行一次，而且每一次連線字串都需要對物件進行操作，因此vb的系統弊端體現出來，如果沒有特殊要求，可以將顯示輸出頻率調小些
2樓：難得糊塗
dim k as string
private sub timer1_timer()k = k & "a"
text1.text = k
end sub
』使用函式** text1.text =text1.text & "a"
『速度會快點
'請採納，謝謝！
vb sendkey可以向指定視窗傳送訊息嗎？如果可以，怎麼實現？
3樓：匿名使用者
private sub form_load()
dim x
x = shell("notepad.exe", vbnormalfocus)
sendkeys "這是一個文字檔案的測試程式.", true ' 模擬輸入英文字串
sendkeys "", true ' 兩次回車
waittime (2) ' 延時 2 秒
sendkeys "自動輸入文字", true
sendkeys "", true
waittime (2)
sendkeys "既不是病毒，也不是木馬!", true
sendkeys "", true
waittime (2)
sendkeys "開始退出... 看選單項f...", true
sendkeys "%", true 'alt 鍵啟用選單條
waittime (1)
sendkeys "(f)", true '按字母 "f"，選擇"檔案(f)"選單
waittime (1)
sendkeys "(x)", true '按字母 "x"， 選擇"退出(x)"
waittime (2)
sendkeys "(n)", true '彈出一個對話方塊，詢問檔案是否存檔，按 "n" 不存檔
end '結束本模擬程式
end sub
private sub waittime(delay as single)
dim starttime as single
starttime = timer
do until (timer - starttime) > delay
loop
end sub
4樓：匿名使用者
這個主意不錯，分享了
vb sendkey可以向指定視窗傳送訊息嗎 如果可以 怎麼實現
5樓：匿名使用者
private sub form_load()
dim x
x = shell("notepad.exe", vbnormalfocus)
sendkeys "這是一個文字檔案的測試程式.", true ' 模擬輸入英文字串
sendkeys "", true ' 兩次回車
waittime (2) ' 延時 2 秒
sendkeys "自動輸入文字", true
sendkeys "", true
waittime (2)
sendkeys "既不是病毒，也不是木馬!", true
sendkeys "", true
waittime (2)
sendkeys "開始退出... 看選單項f...", true
sendkeys "%", true 'alt 鍵啟用選單條
waittime (1)
sendkeys "(f)", true '按字母 "f"，選擇"檔案(f)"選單
waittime (1)
sendkeys "(x)", true '按字母 "x"， 選擇"退出(x)"
waittime (2)
sendkeys "(n)", true '彈出一個對話方塊，詢問檔案是否存檔，按 "n" 不存檔
end '結束本模擬程式
end sub
private sub waittime(delay as single)
dim starttime as single
starttime = timer
do until (timer - starttime) > delay
loop
end sub
6樓：匿名使用者
只要先使該視窗獲得焦點就可以
vb呼叫鍵盤輸入sendkeys
7樓：匿名使用者
在formload事件中可能不能用,你試試在formactivate事件中加sendkeys看看
8樓：匿名使用者
有時一些程式可以過濾sendkeys的，如系統，大部分遊戲。建議你們用winio
9樓：匿名使用者
對著哪按呢？ 使用sendmessage
vb中sendkeys的具體用法？
10樓：匿名使用者
sendkeys "+a"
就表示shift+a
shift = +
ctrl = ^
alt = %
vb中的sendkeys用法
11樓：
sendkeys 語句
[編輯本段]描述
將一個或多個按鍵訊息傳送到活動視窗，就如同用鍵盤進行輸入一樣。
[編輯本段]語法
sendkeys string[, wait]
引數意義：
string部分必需的，字串表示式，指定要傳送的按鍵訊息。
wait可選的，指定等待方式的值。如果為 false（預設值），則控制元件在按鍵傳送出去之後立刻返回到過程；如果為 true，則按鍵訊息必須在控制元件返回到過程之前加以處理。說明每個按鍵由一個或多個字元表示。
[編輯本段]用法
1）為了指定單一鍵盤字元，必須按字元本身的鍵。例如，為了表示字母 a，可以用 "a" 作為 string。為了表示多個字元，就必須在字元後面直接加上另一個字元。
例如，要表示 a、b 及 c，可用 "abc" 作為 string。
2）對 sendkeys 來說，加號+ 、插入符^ 、百分號% 、上劃線~ 及圓括號( ) 都具有特殊意義。為了指定上述任何一個字元，要將它放在大括號{}當中。例如，要指定正號，可用 表示。
為了指定大括號字元，請使用 及 {}}。方括號 [ ] 對 sendkeys 來說並不具有特殊意義，但必須將它們放在大括號中。在其它應用程式中，方括號有特殊意義，在出現動態資料交換 (dde) 的時候，它可能具有重要意義。
3）為了在按下按鍵時指定那些不顯示的字元，例如 enter 或 tab 以及那些表示動作而非字元的按鍵，請使用下列**：
按鍵 **
backspace , 或
break
caps lock
del or delete 或
enter 或 ~
escnum lock
scroll lock
up arrow
down arrow(下箭頭)
left arrow
right arrow
endhome
ins or insert 或
page down
page up
print screen
win ^
tabhelp
f1f2f3f4f5f6f7f8f9f10f11f124）為了指定那些與 shift、ctrl 及 alt 等按鍵結合的組合鍵，可在這些按鍵碼的前面放置一個或多個**，這些**列舉如下：
鍵 **
shift +
ctrl ^
alt %
5）為了說明在按下其它按鍵時應同時按下 shift、ctrl、及 alt 的任意組合鍵，請把那些按鍵的碼放在括號當中。例如，為了說明按下 e 與 c 的時候同時按下 shift 鍵，請使用 "+(ec)"。為了說明在按下 e 的時候同時按下 shift 鍵，但接著按 c 而不按 shift，則使用 "+ec"。
6）為了指定重複鍵，使用 的形式。必須在 key 與 number 之間放置一個空格。例如， 意指 42 次按下 left arrow 鍵； 則是指 10 次按下 h 鍵。
注意 不能用 sendkeys 將按鍵訊息傳送到這樣一個應用程式——這個應用程式並沒有被設計成在 microsoft windows 中執行。
注意：sendkeys 也無法將 print screen 按鍵傳送到任何應用程式。
[編輯本段]示例
set wshshell = wscript.createobject("wscript.shell") '呼叫
wscript.sleep 100 '延時0.1秒
wshshell.sendkeys "abcd" '順序傳送abcd四個鍵
vb向一個外部程式傳送一條字元到指定視窗的指定文字框
12樓：小李無刀
網上有這樣的例項的，就是傳送資訊到其他程式，但簡單的可以用sendkey,複雜的要用鉤子，甚至要用驅動
vb怎麼獲取文字框裡的字串，VB怎麼獲取文字框裡的字串
先定義一個變數，然後將變數設定為文字框的內容即可。如下 以獲取text1控制元件為例 dim str1 as string 定義字元變數private sub text1 change 當text1字元改變時 str1 text1.text 設定為文字框的字串end sub dim a as str...
裡文字框怎麼透明，word裡文字框怎麼透明？
以wps 2019版為例 開啟文件，選中已插入的文字框，滑鼠右鍵選擇 設定物件格式 2.在右側彈出框，選擇 形狀選項 填充與線條 透明度 3.根據需要調整透明度即可 你好！首先選中文字框 四周出現虛線 將滑鼠放在文字框邊緣 出現四個箭頭時 右鍵單擊文字框，選擇 設定文字框格式 在彈出的 設定文字框格...
VB中如何輸入文字框文字輸入字元，在這字元後加上
private sub text1 change if len text1.text 4 then text1.text text1.text end sub 我精心寫了一段哦！現在針對的是text1這個控制元件只需要放一個text1控制元件在窗體上在複製這段 貼上執行就可以了。我想了3種方法，一個...