VB6.0限制鍵盤輸入

文章目錄

• VB6.0限制鍵盤輸入

VB6.0限制鍵盤輸入 1、只能輸入數字
Private Sub TxtId_KeyPress(KeyAscii As Integer)

  If KeyAscii < Asc(0) Or KeyAscii > Asc(9) Then
    KeyAscii = 0
  End If

End Sub
2、限制 '
If KeyAscii = 39 Then
KeyAscii = 0
End If

 

 

'///////////////////////////////////////////////////////////////////////////////////////////////////////////////

'//////////////////////////////////////////////////////////////////////////////////////////////////////////////

 

這個例子，也可以看作是使用類別模組的入門級的示範。
　　建立一個工程，在form1中添加3個文字框。我們希望對這三個文字框中輸入的字元進行限制，第一個只允許輸入數字，第二個只允許輸入字母，第三個只允許輸入大寫字母。
　　一般的做法，可以在這三個文字框的keypress事件程序中分別寫檢查代碼。好一點的方案，是把檢查代碼寫成一個共用的過程，讓這三個文字框的keypress事件去各自進行調用。
　　現在，我們用物件導向的思想來解決這個問題。
　　在工程中添加一個類別模組，命名為cTxt。添加下面的代碼到其代碼視窗：
　　Public WithEvents textbox As textbox '添加一個textbox，這隻是一個示範，所以簡單地把它寫成public成員，在實際的工程中，一般是私人的。
　　Public isDecimal As Boolean ' 簡單地用public表示此類的一個屬性。值為“是”，則只能輸入數字，“否”，則只能輸入字母
　　Private Sub textbox_keypress(KeyAscii As Integer)
　　 Select Case KeyAscii
　　 Case 0 To 31
　　 Case 48 To 57 '按鍵為數字
　　 If Not isDecimal Then KeyAscii = 0
　　 Case 65 To 90, 97 To 122 '按鍵為字母
　　 If isDecimal Then KeyAscii = 0
　　 Case Else
　　 KeyAscii = 0
　　 End Select
　　End Sub
　　類別模組完成了。
　　在form1代碼視窗，添加下面的代碼：
　　Option Explicit
　　Dim deciText As cTxt, letterText As cTxt, UCaseText As cTxt
　　Private Sub form_load()
　　 Set deciText = New cTxt
　　 Set deciText.textbox = Text1 ' deciText.textbox指向text1
　　 deciText.isDecimal = True ' 設定deciText的isDecimal屬性，使Text1隻能輸入數字。
　　 Set letterText = New cTxt
　　 Set letterText.textbox = Text2
　　 letterText.isDecimal = False
　　 Set letterText = New cTxt
　　 Set letterText.textbox = Text3
　　 letterText.isDecimal = False
　　
　　End Sub
　　按F5運行，在三個文字框中隨便輸入一些字元試試。哈哈，我們在form1視窗中，沒有寫任何的檢查代碼，就讓這三個文字框工作得很好了。
　　現在，我們需要讓Text3有cTxt不具備的特性，即只允許輸入大寫字母。簡單地添加下面幾行代碼到form1的代碼表單中：
　　Private Sub Text3_KeyPress(KeyAscii As Integer)
　　 If KeyAscii > 96 And KeyAscii < 123 Then
　　 KeyAscii = 0
　　 End If
　　End Sub
　　F5運行看看。Text3能準確地控制按鍵了。在這裡，我們注意到，Text3既能響應form1表單中的事件程序。作為類的成員，又能響應類中的同一事件的過程。
　　是不是很簡單？
　　這就是類。