以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  InputValue函数  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=146442)

--  作者：hb8888 --  发布时间：2020/2/24 10:09:00 --  InputValue函数 大师：请问InputValue函数有没有？如果输入的值不符合指定值禁止退出的参数或属性？

--  作者：有点蓝 --  发布时间：2020/2/24 10:12:00 --   没有提供这种操作。只能是退出后判断值，如果有问题，重新打开InputValue Dim Val As Integer = 0 Do While True     If InputValue(Val, "增加行", "请输入要增加的行数:") Then         If val< 5 Then            MessageBox.show("太小了")         Else           Exit Do         End If     End If Loop

--  作者：hb8888 --  发布时间：2020/2/24 10:47:00 --   谢谢！蓝导。