dfkt.net
当前位置:首页 >> 怎样为VB窗体中的所有文本框限制只输入数字? >>

怎样为VB窗体中的所有文本框限制只输入数字?

text1.visible=false是不可见text1.enabled=false是不可用至于第一个,我不懂你说的意思运行时要输入数据,应该用inputbox()函数,可以自查.输出,text1.text=你要输出的内容如dim x as integer x=100text1.text=x或text1.text="x的值为:"+x

Private Sub Command1_Click()Dim x as double[或其它整型数字变量类型] x=Text1.text End Sub 这样就行了,当你输入任意非数字类型字符时就会拒绝执行.

Dim 输入限制 As String = "0123456789.abcdefghijklmnopqrstuvwxyz" Dim 输入字符复制 As Char = e.KeyChar If InStr(输入限制, 输入字符) <> 0 Or e.KeyChar = ChrW(8) Then If 输入字符 = "." And InStr(TextBox1.Text, 输入字符) <> 0

用NumericUpDown 或者MaskedTextBox设置Mask = 9999.99

使用正规表达式 以js脚本为例:this.value=this.value.replace(/[^0-9]\D*$/,"")

VB中文本框要限制输入字符数,可以选中这个文本框后,在它的“属性”面板中设置它的MaxLength属性为10,就设定了这个文本框中最多可以输入10个字符.也可以用代码进行这项设置:Text1.MaxLength=10 如果设置MaxLength属性为0(默认值),就是不人为限制它的最多字符数,其最大值由VB系统确定:在MaxLength不设定的默认情况下,单行TextBox和多行TextBox分别能输入的最大字符数是: 单行:2048,多行:32K

Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 8 ThenKeyAscii = 8Exit SubEnd IfIf KeyAscii 58 Then KeyAscii = 0End IfEnd Sub

添加以下事件即可.Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0End Sub

Private Sub Text1_Change() If Text1.Text <> "" And IsNumeric(Text1.Text) = False Then MsgBox "只能输入数字!" Text1.Text = "" Exit Sub End If End Sub

以下是只能输入数字和小数点,并且小数点只能输入一次Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Textbox1.KeyPressIf Char.IsDigit(e.KeyChar) or e.KeyChar =

网站首页 | 网站地图
All rights reserved Powered by www.dfkt.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com