Private Sub Command1_Click()
Dim b As String
b = InputBox("请输入")
If Len(b) > 1 Then
MsgBox ("格式错误")
End If
End Sub本回答被提问者采纳
你不妨考虑自己做一个窗体 模仿inputbox 然后弹出来 直接在textbox属性中限定字符数量追问
不行的。我用的是inputbox函数。不是方法！(我要用几个变量来控制inputbox.这样的话 要我制作多少个这样的窗体？(复制多少个？。。）我有100多个变量！
ll:
If LenB(InputBox("请输入一位数字")) > 1 Then GoTo ll
End Sub
vb中如何限制inputbox只能输入正整数 代码如下
一种是输入后判断是否为正整数（可以用 Int后与原值比较来确定有没有小数），若否则出错重来。另一种是直接在键入时就加以判断（可以用 MaskEdit控件，或者直接截获KeyDown事件）。
vb中inputbox函数怎么用
首先启动vb6，新建一个标准exe文件，进入窗体主界面。在工具箱里双击按钮控件，在窗体上创建一个按钮对象。双击按钮控件进入代码编写区域，选择对象为conmmand1，过程为click。接着输入代码： Dim a, b As Integer a = InputBox("请输入整数值
VB 关于如何在inputbox里输入任意个数
1、原因：inputbox函数输入的是一个字符串。你对这个字符串做a < 0 Or a > 100 判断是无效的！！！2、你的要求是依次输入多个数值，自动按照数组处理。不知道我说的对不对？3、解决方法：使用数组。代码如下：Private Sub Command1_Click()Dim 数组, a As String, 个数 As Integer, 成绩() ...
VB中怎样将Inputbox中要求输入的字符变为***号?
建议你使用自己做的窗体来当这个密码验证的窗口。密码输入框用textbox，只要把它的passwordchar属性设为 "*"就可以了。你可以让密码等于txetbox的值来判断 if mima=textq.text then 登录 else 提示 endif
vb的inputbox函数怎么用?玩转inputbox函数
点击取消时，inputbox会返回一个空字符串（即null）。 当点击确定时，inputbox会把输入框内的内容作为返回值。 有一点很值得注意，如果输入框内的内容为空，用户点击确定之后，那返回值同样是空字符串。我们没有办法判断用户点击的是确定还是取消。这其实是一个盲点，inputbox函数很致命的一个盲点。 我...
VB中使用inputbox函数后 在对话框点取消按钮报错该如何解决?
那就不要把InputBox的返回值直接赋值给整数变量x 因为InputBox的返回值是字符串型，即文本型，所以你要先把InputBox的值赋值给文本型变量，然后用StrPtr函数转化一下，如果用StrPtr函数转化后的值为0，说明点了取消或叉号，如果用StrPtr函数转化后的值大于0，说明点了确定按钮，Sub test()Dim s$, ...
VB 中 inputbox函数 要使提示显示多行 句末要怎么加 chr(10) chr(13...
Private Sub Command1_Click()Dim a As String a = InputBox("aaaaaaaaaaaaaaaaaa" & Chr(10) & "bbbbbbbbbbbbbbbbbb", "标题")End Sub
VB中的inputbox函数的输入框输入中文什么是乱码?什么解决?
这是你的不是正式的SP6补丁包 你可以重新找一个SP6企业版的VB装一下，就可以了，虽然显示是乱码但如1楼所说，只是障眼法，让你看着不是，实际还是
VB6.0中,如何调用INPUTBOX函数?
dim s as string s=inputbox("Inpuut a string: ")
VB 中的inputbox,怎么让文本框中的内容不处于选中状态,而是让光标位 ...
Private Sub Command1_Click()Dim a As String SendKeys "{home}"a = InputBox("xxxxxxx", , "111111111")End Sub
