| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 4217 人关注过本帖
标题:求教inputbox和msgbox的问题
只看楼主 加入收藏
fenghaofan
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2016-3-21
结帖率:100%
收藏
 问题点数:0 回复次数:3 
求教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
xiangyue0510
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:86
帖 子:938
专家分:5244
注 册:2015-8-10
收藏
得分:0 
Case后面必然会有一句代码的,除非是不执行任何操作。不清楚你想要精简到什么层度
另外,你这段是retry之后重新输入,还是需要判断的,用input= inputbox("请输入内容")就不能判断了
建议改成

dim input as string
TRYAGAIN:
input= inputbox("请输入内容")

……
case 0     msgboxresult.retry=true
Goto TRYAGAIN
case 1   msgboxresult.cancle=true
 exit sub
2016-04-01 16:22
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
不说也罢
Rank: 13Rank: 13Rank: 13Rank: 13
等 级:贵宾
威 望:39
帖 子:1481
专家分:4989
注 册:2007-10-7
收藏
得分:0 
二楼和你讲得很清楚啦:
程序代码:
        Dim statusbox As String
TRYAGAIN:
        statusbox = InputBox("请扫描二维码", "二维码字符串输入框", 1)
        If statusbox = "" Then
            Select Case MsgBox("请输入有效的二维码字符串", MsgBoxStyle.OkCancel)
                Case MsgBoxResult.Ok
                    GoTo TRYAGAIN
                Case MsgBoxResult.Cancel
                    Exit Sub
            End Select

        End If



当然也可以写成其他形式

===================================================
讨厌C#的行尾的小尾巴;和一对大括号{ }
===================================================
2016-04-02 19:22
快速回复:求教inputbox和msgbox的问题
数据加载中...
 
   



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

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