1樓：
private sub text1_keypress(index as integer, keyascii as integer)
on error resume next
if keyascii = 13 thendim i as integer
for i = 0 to index - 1if text1(i).text = "" thentext1(i).text = text1(index).
texttext1(i + 1).setfocustext1(index).text = ""
exit for
end if
next
text1(index + 1).setfocusend if
end sub
vb文字框1中的字元反序顯示在文字框2中
網海1書生 text2.text strreverse text1.text private sub command1 click dim m as long,t as long,n as integer m val inputbox 輸入大於1的正整數m 輸入資料 n 1 t 0 do while...
中怎麼刪除文字框，而不刪除文字框中的文字
格式 文字框樣式 形狀輪廓 無輪廓，有圖可以看，這位主要是把輪廓刪除了 由穎 您的目的好像是要插入文字但卻不顯示文字框。可以右擊文字框，設定形狀格式 線條顏色 無線條。這樣的話，文字框就看不見啦 a真相背後 樓主的意思是，文字框中的文字可見，而文字框的邊界不可見，對不對呢？其實，那不叫刪除，而是隱藏...
VB將文字框中的漢字按拼音排序
首先將漢字轉為ascii碼陣列，然後對ascii碼陣列排序。再將ascii碼陣列轉換為字元，大功告成了。以下 經測試完全正確。dim lasc j as long private sub command1 click dim i as long,j as long,k as long dim r a...