UC知道VB 如果事件未完成，不显示窗体
来源：百度知道 编辑：UC知道 时间：2024/05/10 02:50:36
我做了一个程序，当Text为某个数值时在WebBrowser显示一些数据。
1.请问加入什么代码当Text1为空的时候出现MsgBox,并使WebBrowser控件不显示.
If Text1.Text = "" Then
MsgBox "请输入数字"
下面要加什么
2.怎样才能使Text1中只能填写数字(或当Text1填入非数字时也返回一个Msgbox)并且限制为10个字符
我刚学VB有些地方不懂，请朋友帮帮忙。谢谢
谢谢52xenos
如果加WebBrowser.Visible = False Form2还是会显示，我想当Text1为空的时候只出现MsgBox
另外IsNumeric(Text1.Text)=True在哪加入，因为本人是新手，请详细说下。
如果全解决另加分。谢谢
1.请问加入什么代码当Text1为空的时候出现MsgBox,并使WebBrowser控件不显示.
If Text1.Text = "" Then
MsgBox "请输入数字"
下面要加什么
2.怎样才能使Text1中只能填写数字(或当Text1填入非数字时也返回一个Msgbox)并且限制为10个字符
我刚学VB有些地方不懂，请朋友帮帮忙。谢谢
谢谢52xenos
如果加WebBrowser.Visible = False Form2还是会显示，我想当Text1为空的时候只出现MsgBox
另外IsNumeric(Text1.Text)=True在哪加入，因为本人是新手，请详细说下。
如果全解决另加分。谢谢
1,
If Text1.Text = "" Then
MsgBox "请输入数字"
'WebBrowser.Visible = False
'隐藏form2
Form2.Hide
...
2,
长度用text box的maxlength设置
在需要判断是不是数字的地方
If IsNumeric(Text1.Text)
msgbox "text1是数字"
else
msgbox "text1不是数字"
看看我的如何~呵呵~
Option Explicit
Private Sub Form_Load()
'文本框最大支持输入10个数字
Text1.MaxLength = 10
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Const xStr As String = "0123456789"
'退格键不受限制
If KeyAscii = 8 Then Exit Sub
'只能输入规定的字符
KeyAscii = IIf(InStr(xStr, Chr(KeyAscii)), KeyAscii, 0)
If InStr(xStr, Chr(KeyAscii)) Then
KeyAscii = KeyAscii
Else
KeyAscii = 0: MsgBox "请输入数字"
End If
End Sub
Private Sub Text1_Change()
If L