1樓：
private sub text1_keyup(keycode as integer, shift as integer)
text2 = text1.seltextend sub
private sub text1_mouseup(button as integer, shift as integer, x as single, y as single)
text2 = text1.seltextend sub
起作用的就是 ：text2 = text1.seltext關鍵要看在什麼時候執行，文字框本身沒有提供選中部分變化的事件，所以利用滑鼠選中或鍵盤選中時的抬起事件時處理，如果還不滿意，可以加乙個timer，不停地執行。
2樓：塞莉
'樓上的是只保留第乙個文字框中選中的字元，第二個文字框中顯示剩餘字元
'這個是刪除第乙個文字框中選中的字元，並在第二個文字框中顯示剩餘字元數
private sub command1_click()
text1.text = replace(text1.text, mid(text1.
text, text1.selstart + 1, text1.sellength), "")
text2.text = len(text1.text)
end sub
'這個是第乙個文字框中內容不變，第二個文字框中顯示刪掉選中字元後的剩餘字串
private sub command1_click()
text2.text = left(text1.text, text1.
selstart) & right(text1.text, len(text1.text) - text1.
selstart - text1.sellength)
end sub
'不知道你是要的哪一種
vb的select語句問題，VB6 0中select語句使用問題
函式語法錯了，case後面不用加變數，應該這樣修改 private sub command1 click dim a as integer dim b as integer text1.text a select case a case is 1000 print b 10000 case is 2...
vb6 0編寫程式讀取excel檔案 在電腦沒有裝excel軟體的情況下
用ado開啟excel的 關鍵在於連線字串 dim cnxl as new adodb.connection dim rsxl as new adodb.recordset cnxl.connectionstring provider microsoft.jet.oledb.4.0 data sou...
VB6 0中如何在Text4的255的時候向前進1到Text3，還有如何入寫文字
你的 缺少的部分，我幫你補上了 private sub text1 change if val text1.text n thentimer1.enabled falseend if end sub private sub text2 change if val text2.text n thent...