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 文字框了!
|