1樓：匿名使用者
比如下面的**：private sub command1_click()
dim data() as byte
dim i, h1, h2 as long
i = 0
data = strconv("測試", vbfromunicode)
h1 = findwindow(vbnullstring, "form1")
h2 = findwindowex(h1, 0, "thundertextbox", "")
while i <= ubound(data)
postmessage h2, wm_char, data(i), 0
doevents
i = i + 1
wend
end sub以上**是給form1視窗的文字框傳送「測試」兩個字，注意要用postmessage函式，因為用sendmessage時要等待響應後才返回，所以很容易卡死，postmessage是直接返回結果的
2樓：匿名使用者
如果可以的話，先採納我吧，我要用分數參加比賽.
vb程式題急謝謝編寫程式從文字框輸入與
設text1和text2分別為x和y的輸入框，text3輸出結果，另有 mand1是計算按鈕。在窗體代版碼 通權用 段編寫函式過程 private function f byval x as double,byval y as double as double select case x case ...
在vb程式中如何測試文字框輸入次數的返回值（就行輸入銀行密碼一樣，只能輸入三次錯誤密碼就自動鎖住了）
輸入到記事本，儲存為form1.frm即可 每行 均寫了註釋，應該知道意思了 version 5.00 begin vb.form form1 caption form1 clientheight 3840 clientleft 60 clienttop 450 clientwidth 5625 l...
vb 文字框顯示通用對話方塊開啟文字檔案內容
jbp22d5f90f0a，你究竟是何方神聖？以jbp打頭的名字上百個，財富值794710，提問數122627，回答數0，提問永遠匿名，從不加分，很少採納，每次一提問就是幾十個問題一起發，舉報管理員也不受理，你是管理員他爹？這個肯定要用到檔案操作的相關知識了.vb 怎樣開啟檔案並把檔案內容顯示在文字...