textbox使用技巧
在使用visual basic開發應用程式時,textbox控制項是最常用的(特別
對於資料庫程式),以下是筆者在開發應用程式時的一些技巧,希望對愛好
vb的朋友有幫助。
1、 限制textbox只能輸入數字。
我們只需要判斷keyascii是否在48-57之間就可以達到目的,但我們還會
要用到退格鍵的,所以必須加上keyascii <> 8。
private sub text1_keypress(keyascii as integer)
if keyascii <> 8 and keyascii < 48 or keyascii > 57 then
beep
keyascii = 0
end if
end sub
2、自動將輸入的英文轉為小寫/大寫。
如果在keypress事件裡使用ucase$和lcase$,那麼當你輸入abc時,text
box裡的結果會是cba(具體原因這裡不多說),我們只好判斷它的keyascii,
剛好大寫與小寫之間是相差32,所以……看下面的程式。
大寫轉小寫
private sub text1_keypress(keyascii as integer)
if keyascii >= 65 and keyascii <= 90 then
keyascii = keyascii + 32
end if
end sub
小寫轉大寫
private sub text2_keypress(keyascii as integer)
if keyascii >= 97 and keyascii <= 122 then
keyascii = keyascii - 32
end if
end sub
3、使兩個textbox同步的方法。
這種方法怎麼解釋呢?第二個等於第乙個就行了:-)。
private sub text1_keypress(keyascii as integer)
text2=text1
end sub
4、按下 enter 鍵之後,游標自動移到下乙個控制項。
當keyascii為13(回車)時,send乙個tab鍵給它就行了。
private sub text1_keypress (keyascii as integer)
if keyascii = 13 then
sendkeys 「」
keyascii = 0
end if
end sub
5、當游標移到textbox時自動選定其中的整串文字。
當物件得到焦點時,從最前面開始選取(selstart=0),選取的
長度為文字長度(len(text1))。
private sub text1_gotfocus()
text1.selstart = 0
text1.sellength = len(text1)
end sub
6、當游標移到textbox時改變其文字顏色。
當textbox得到焦點時(gotfocus)改變文字顏色,失去焦點時(
lostfocus)將還原文字顏色,forecolor是設定文字的前景色。
當游標移到textbox時文字設定為紅色
private sub text1_gotfocus()
text1.forecolor = vbred
end sub
當游標移出textbox時文字設定為黑色
private sub text1_lostfocus()
text1.forecolor = vbblack
end sub
以上**只要將text1.forecolor改為text1.backcolor即可改變textbox
的背景色。
多執行緒使用TextBox控制項
多執行緒使用textbox控制項 宣告乙個委託 public delegate void settextboxvalue string value 委託使用文字框 void setmytextboxvalue string value private delegate void settextbox...
TextBox控制項
1 獲取當前行第乙個索引值 int index textbox1.getfirstcharindexofcurrentline 2 獲取總行數 int line textbox1.lines.length 3 獲取指定字元位置檢索行號 int line textbox1.getlinefromcha...
TextBox控制項
第乙個不能在後台操作 文字框的多種形式 l 單行文字框 textmode singleline l 多行文字框 textmode mulitline l 密碼文字框 textmode password 文字框需要掌握的屬性 text 設定或獲取文字內容 textmode singleline,mul...