标题:求教inputbox和msgbox的问题
取消只看楼主
fenghaofan
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2016-3-21
结帖率:100%
 问题点数:0 回复次数:1 
求教inputbox和msgbox的问题
我用inputbox输入内容,判断值是否为空,若空,则msgbox警告不能为空值。接下来的步骤是我想msgboxresult为retry,则返回到inputbox,若为cancel则exit sub
程序代码:
dim input as string
input= inputbox"请输入内容"if input ="" then 
msgbox("内容不能为空"5)
..........
end if

......省略号部分我再网上找了个select case的语句,
case 0     msgboxresult.retry=true
input= inputbox("请输入内容")
case 1   msgboxresult.cancle=true
 exit sub


请高手帮我看看能不能改进下,总感觉比较繁琐。特别是红字的部分不能用什么函数直接返回到inputbox界面。虚心请教各位,谢谢
搜索更多相关主题的帖子: cancel 
2016-03-31 12:27
fenghaofan
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2016-3-21
得分:0 
程序代码:
Dim statusbox As String
        statusbox = InputBox("请扫描二维码", "二维码字符串输入框", 1)
        If statusbox = "" Then
            Select Case MsgBox("请输入有效的二维码字符串", MsgBoxStyle.OkCancel)
                Case MsgBoxResult.Ok
                    GoTo 。。。。。。
                Case MsgBoxResult.Cancel
                    Exit Sub
            End Select

        End If

我该怎么修改才能goto到inputbox让重新输入呢?
2016-04-01 21:10



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-463124-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.127496 second(s), 8 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved