1樓：匿名使用者
private sub text1_click()
text2.text = text1.seltext
end sub
2樓：匿名使用者
vb一般是通過事件來「感受」你的操作的，所以當你選中t1文字框中內容的時候，有以下辦法來獲取這個操作：
檢測文字框的選擇長度，用sellength屬性private sub text1_click()if text1.sellength > 0 thentext2 = text1.seltextend if
end sub
private sub text1_keyup(keycode as integer, shift as integer)
if text1.sellength > 0 thentext2 = text1.seltextend if
end sub
這時候無論你用鍵盤選中文字，或者用滑鼠選中文字，都觸發了滑鼠單擊或鍵盤按鍵彈起事件，文字內容就傳遞給了第二個文字框
請幫我解決VB作業，請幫我解決一個VB作業
private sub command1 click dim i as integer,s as integer,a 1 to 10 as integer,max as integer,min as integer max 30 min 100 for i 1 to 10 randomize a i...
問求有關寫作業的古風句子，要形容對於作業的頭疼，頭髮都被自己抓亂了，要搞笑一點，符合下面圖的，原創
舉頭望明月，低頭寫作業 不用採納 好棒的cos！夜明友眠風蕭瑟，獨坐窗前醉書中。執筆繾綣還再嘆，拾衣棄文問周公。有哪些關於學習的名言？百川東到海,何時復西歸？漢樂府 長歌行 少壯不努力,老大徒傷悲。岳飛 百學須先立志。朱熹 寶劍鋒從磨礪出,梅花香自苦寒來。筆落驚風雨,詩成泣鬼神。杜甫 別裁偽體親風雅...
英語作業題目不會，英語作業題目
1.to introduce yourself 2.success 3.will you please not open the door.need 與need to的區別 1.do you think the boy need to make green tea?2.zengnan need ma...