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 =