作者brominelove (流连)
看板Visual_Basic
标题[.NET] inputbox "不输入"和"取消"的差别
时间Mon Mar 29 15:22:03 2010
请输入专案类型(网站专案或者应用程式专案)：
windows form
各位好，我想写个inputbox的指令，
是要输入一组数字，
如果是：1. 输入数字 --- 那就没问题
2. 不输入或输入非数字 --- 出现错误视窗
3. 按取消 --- 不出现错误视窗 直接exit sub
爬文之後，大致上是解决了，
碰到唯一一个问题，就是无法判断"不输入"和"取消"，
code如下：
Sc_string = InputBox("Choose a coil span between 1 to " & S,
"Coil Span", S)
If Val(Sc_string) = 0 And Sc_string <> "" Then
MsgBox("Error, Coil span must be an Integer.",
MsgBoxStyle.Critical, "Error")
Exit Sub
ElseIf Sc_string = "" Then
Exit Sub
Else
Sc = CInt(Sc_string)
End If
我的想法是先判断val之後是不是零，
如果是零而且Sc_string<>""，表示Sc_string不是数字，则错误。
如果Sc_string = ""，那表示按取消，就直接跳出。
问题在於… Sc_string = "" 包含了不输入的情况，所以不输入的话不会跳错误视窗。
想请问一下该怎麽修改呢？谢谢。
--
▎◣◢▊ ▎◣◢
▊ "He kept working on his game, he kept
▎ ▊ ▎ ★▊ believing every day."
◢ Sonics ◣ ◢
Ｓonιcs◣
-- DOC RIVERS on RAY ALLEN --
￣￣￣ ﹌﹌﹌﹌
bromine34 bromine 34 ⊕brominelove⊕
love love http://www.wretch.cc/album/brominelove
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.112.46.38
1F：→ nobody1:If Val(Sc_string) = 0 And Sc_string <> "" Then 03/29 22:53
2F：→ nobody1:判断上 比较会有暇疪 sc_string是0时 一定不为"" 03/29 22:54
3F：→ nobody1:你把第一个elseif 和 if 对调看看 也许就ok了吧? 03/29 22:55
4F：→ nobody1:sc_string <>"" 就是多的了 ^^ 试试debug mode 03/29 22:56