小男孩‘自慰网亚洲一区二区,亚洲一级在线播放毛片,亚洲中文字幕av每天更新,黄aⅴ永久免费无码,91成人午夜在线精品,色网站免费在线观看,亚洲欧洲wwwww在线观看

分享

TextBox的技巧

 barbarossia 2006-10-06
49、已將 TextBox 的 Alignment 屬性設(shè)為「1-靠右對」(1-RightJustify),但文字卻未向右靠?
欲將 TextBox 內(nèi)的文字向右靠,除了將 Alignment 屬性設(shè)為「1-靠右對 」之外,亦 將 MultiLine 屬性設(shè)為 True。
但是若您希望只有單行,不要多行,則必須判斷 User 是否按了 Enter Key,那只好在 TextBox 的 KeyPress 中加入以下程序碼,以去除 Enter 的作用:
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
KeyAscii = 0
End If

50、在 TextBox 中如何限制只能輸入數(shù)字?
參考下列程序:
Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then
KeyAscii = 0
End If
End Sub

51、我希望 TextBox 中能不接受某些特定字符,例如 ‘@#$%",有沒有簡單一點(diǎn)的寫法?
方法有好幾種, 以下列舉二種:
方法1: 可以使用 IF 或 Select Case 一個個判斷, 但如果不接受的字符多時, 較麻煩!
方法2: 將要剔除的字符統(tǒng)統(tǒng)放在一個字串中,只要一個 IF 判斷即可 !! 如下:
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim sTemplate As String
sTemplate = "!@#$%^&*()_+-=" ‘用來存放不接受的字符
If InStr(1, sTemplate, Chr(KeyAscii)) > 0 Then
KeyAscii = 0
End If
End Sub

52、如何讓鼠標(biāo)進(jìn)入 TextBox 時自動選定 TextBox 中之整串文字?
這個自動選定反白整串文字的動作,會使得輸入的資料完全取代之前在 TextBox 中的所有字符。
Private Sub Text1_GotFocus()
Text1.SelStart = 0
Text1.SelLength = Len(Text1)
End Sub

53、如何讓 TextBox 由 Insert 模式變成 Overwrite 模式?
Windows 的 TextBox 一直都只支援 Insert Mode,而不支援 OverStrike(OverWrite) Mode,其實(shí),只要在 Key_Press 事件中加上幾行指令,就可以做到 OverStrike 功能 !!
以下的程式碼中,只設(shè)定 SelLength=1,而 SelStart 若未指定則會一直跟著滑鼠的游標(biāo)所在處,設(shè)定 SelLength=1 會反白游標(biāo)所在處的下一個字,但是由于您輸入的字元會直接取代該反白的字元(都同時在 Key_Press 發(fā)生),所以您并不會看到字符被選定反白 (Marked),若是游標(biāo)已在字串的最后面,則會直接忽略這個動作。
以下的程式碼中同時也作了以下的錯誤判斷及預(yù)防:
1. 當(dāng)輸入的是退格符,也就是 Backspace (character 8)。
2. 當(dāng)輸入的是 return 鍵 (character 13)。
3. 事先已作了選定動作 (Marked)。
Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii <> 8 And KeyAscii <> 13 And Text1.SelLength = 0 Then
Text1.SelLength = 1
End If
End Sub

54、如何使 TextBox 變成只讀,卷動桿可卷動,但是不出現(xiàn)游標(biāo),也不可被選定反白?
在 Form 中放一個 TextBox,設(shè)定 Locked = True,MultiLine = True,ScrollBar = 2 - Vertical。另外再放一個 CommandButton (或其他任何可接受 Focus 的物件),此物件可由您自行作其他用途,否則
設(shè)定 Command1.left = -1000 將其移到 Form 的外面。
程式碼如下:
Private Sub Text1_GotFocus()
‘馬上將 Text1 的 focus 轉(zhuǎn)移到 Command1 或其他物件上
Command1.SetFocus
End Sub

55、文字框可以設(shè)定快捷鍵嗎?
不行,要設(shè)定快捷鍵的先決條件,是該物件必須有 Caption 屬性,但是 TextBox (文字框) 只有 Text 屬性,并無 Caption 屬性,所以文字框本身是不能設(shè)定快捷鍵的!完全沒辦法嗎?
但是還是有辦法的!人家說山不轉(zhuǎn)路轉(zhuǎn),文字框本身不能設(shè)定快捷鍵,一般我們在文字框的左方都會放置說明用的 Label,那我們就借用 Label 來做到這個功能,作法如下:
1、將文字框的 TabIndex 設(shè)成說明用的 Label 物件的下一個。
2、設(shè)定 Label 物件的快捷鍵,奇怪嗎?Label 物件沒有 Focus 好像不要快捷鍵!沒錯,我們就是要利用 Label 物件不要快捷鍵的特性來達(dá)到我們的要求!
當(dāng)您輸入了 Label 物件的快捷鍵,由于 Label 物件沒有 Focus 不接受快捷鍵,于是它立刻將 Focus 送到下一個 TabIndex 的物件,也就是 TextBox 文字框了!

    本站是提供個人知識管理的網(wǎng)絡(luò)存儲空間,所有內(nèi)容均由用戶發(fā)布,不代表本站觀點(diǎn)。請注意甄別內(nèi)容中的聯(lián)系方式、誘導(dǎo)購買等信息,謹(jǐn)防詐騙。如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容,請點(diǎn)擊一鍵舉報。
    轉(zhuǎn)藏 分享 獻(xiàn)花(0

    0條評論

    發(fā)表

    請遵守用戶 評論公約

    類似文章 更多