VB和VB.NET 文本框的输入控制
有时候为了某种需求,要控制用户的输入。可以通过控制输入法状态 或 输入按键来控制。 以下介绍通过对输入按键控制输入 VB6.0 SAMPLE '只能允许输入数字和字母 Private Sub Text1_KeyPress(KeyAscii As Integer) MsgBox KeyAscii '查看按下键的ASCII码 Select Case KeyAscii Case 48 To 57 '数字 Case 65 To 90 '字母大写 Case 97 To 122 '字母小写 Case 13 SendKeys "{tab}" Case Else KeyAscii = 0 '无效按键 End Select End Sub
'VB.NET SAMPLE '' 按回车键相当于Tab 键 Private Sub txtPassword_KeyPress(ByVal sender As Object,ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtPassword.KeyPress 'MsgBox(e.KeyChar) '查看按下键的字符 If e.KeyChar = Chr(Keys.Enter) Then e.Handled = True SendKeys.Send("{Tab}") End If End Sub VB.NET 通过以下步骤来确保用户输入数据的正确性:
Private Sub TextBox1_KeyPress(ByVal sender As Object,ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Textbox1.KeyPress If Char.IsDigit(e.KeyChar) Or e.KeyChar = Chr(8) Then e.Handled = False Else e.Handled = True End If End Sub 其中e.KeyChar是键盘输入的键对应的字符,IsDigit函数可以判断是否为0到9的数字,Chr(8)为退格键,当e.Handled为True时,程序认为该KeyPress事件已经被处理过了,文本框的内容也就不会发生变化了。从以上程序中不难看出,此时文本框只能接受数字和退格键,也就是说这个文本框是用来输入整数的。 输入为非负的数值(可输入小数): 如果文本需要输入小数的话,就要能够输入小数点".",而且小数点只能输入一次,此时可以将上面的函数改为下面的格式:
Private Sub TextBox1_KeyPress(ByVal sender As Object,ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Textbox1.KeyPress If Char.IsDigit(e.KeyChar) or e.KeyChar = Chr(8) or e.KeyChar = "." Then If e.KeyChar = "." And InStr(TextBox1.Text,".") > 0 Then e.Handled = True Else e.Handled = False End If Else e.Handled = True End If End Sub 其中函数InStr返回指定字符在字符串中的位置,当字符串中不含此字符时,返回一个负数。这时文本框可以用来输入正整数及小数。 输入为数值(含小数和负数) 如果文本需要输入负数的话,就要能够输入负号"-",而且只能是文本框输入的第一个字符,此时又可以将上面的函数改为下面的格式: Private Sub TextBox1_KeyPress(ByVal sender As Object,ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Textbox1.KeyPress Dim ObjText As TextBox = sender If Char.IsDigit(e.KeyChar) Or e.KeyChar = Chr(8) Then '整数和退格控制(可输入) e.Handled = False Else If e.KeyChar = "." AndAlso InStr(ObjText.Text,".") <= 0 Then '输入小数点控制 e.Handled = False ElseIf e.KeyChar = "-" AndAlso InStr(ObjText.Text,"-") <= 0 AndAlso ObjText.SelectionStart = 0 Then '输入负号控制(负号只能输入的最前面) e.Handled = False Else '其他字符全部禁止输入 e.Handled = True End If End If End Sub 当有多个文本框需要做输入限制时,可以在以上代码Handles后面加上多个文本框的KeyPress事件,各事件之间用逗号隔开,例如
Private Sub TextBox1_KeyPress(ByVal sender As Object,Textbox3.KeyPress Dim ObjText As TextBox = sender If Char.IsDigit(e.KeyChar) Or e.KeyChar = Chr(8) Then '整数和退格控制(可输入) e.Handled = False Else If e.KeyChar = "." AndAlso InStr(ObjText.Text,"-") <= 0 AndAlso ObjText.SelectionStart = 0 Then '输入负号控制 e.Handled = False Else '其他字符全部禁止输入 e.Handled = True End If End If End Sub (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |