dfkt.net
当前位置:首页 >> vB控制文本框数字 >>

vB控制文本框数字

新建一个窗体,在窗体上面放一个Text1,并设置Text1的Index属性为0,同时在窗体上面放置一个Command1,单击Command1的事件,在Text1中输入数值,点击command按钮将在界面生成对应数量的TextPrivate Sub Command1_Click() Dim i

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

使用函数 mid(strin,start[,length])返回指定长度的字符串string的子串.取出text1.text = "第3页"中的3,vb中一个汉字占一个字符,所以vb语句如下: mid(text1.text, 2, 1)

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 Then e

双击文本框输入以下代码: If Text1.Text > 999999 Then Text1.Text = Text1.Text

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() If Len(Trim(Text1.Text)) = 0 Then MsgBox "不能为空!" Text1.SetFocus Exit Sub End If If Trim(Text1.Text) = 0 Then MsgBox "不能为零!" Text1.SetFocus Exit Sub End If'这里写你要执行的代码 End Sub

用NumericUpDown 或者MaskedTextBox设置Mask = 9999.99

Private Sub Text1_KeyPress(KeyAscii As Integer) Dim tMsg As String Select Case KeyAscii Case Asc(0) To Asc(9) tMsg = "输入的是数字" Case Is < 0 tMsg = "输入的是汉字或双字节字符" Case Asc("@"), Asc("$") tMsg = "输入的是

VB里面没有所谓的字符变量 有的就是字符串 string 没单引号的,一个字符也是"+" Text4= x & "+" & y & "i"

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