作者ymzk (山崎翔太)
看板Visual_Basic
标题Re: [.NET] inputbox的取消键如何按了就跳出
时间Sat Oct 27 15:30:45 2012
※ 引述《tfg09730820 (猴)》之铭言：
: Public Class Form1
: Dim num1, num2, input, times As Integer
: Dim rnd As New Random
: Dim result As MsgBoxResult
: Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
: System.EventArgs) Handles MyBase.Load
: Do
: num1 = rnd.Next(10, 100)
: num2 = rnd.Next(10, 100)
: times = 0
: Do
: times += 1
: input = InputBox(num1 & "+" & num2 & "= ?", "第" & times & "次
: 作答")
: If Str(input) = "" Then MsgBox("是否继续", 4)
: Loop Until input = num1 + num2
: result = MsgBox("是否继续", 4)
: If result = MsgBoxResult.No Then Exit Do
: Loop
: End
: End Sub
: End Class
: 请问标红的那边要怎麽改
if str(input)="" and msgbox("是否继续",MsgBoxStyle.OkCancel)=MsgBoxResult.Ok then
end
end if
这样不知道 有没有帮助到你吼ZZ
就是讯息视窗 按下确定後... 就结束了程式=___=
不知道我是否变成了达非所问-.-? ((因为我题目不是看的很懂XD
--
┌──┐
│山玉│
│崎印│
└──┘
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 180.177.2.7
1F：推 fumizuki:应该是要用Exit Sub，而不是End @@? 10/27 20:47
2F：→ ymzk:哈哈 那我误以为他要跳出程式罗?XD 不然 这位大大两个都 10/27 22:39
3F：→ ymzk:Try 看哪一个是贵方要的效果罗 :) 10/27 22:39
4F：→ ymzk:也许我真的误解了XDD 10/27 22:40
5F：→ MOONRAKER:VB.NET没有End，这好像是我开始玩时注意到的第一件事 10/27 23:15
6F：→ MOONRAKER:不对，还是有…总之那时我改用form.close()就不想end了 10/27 23:16
7F：→ ymzk:M大 可是我打End程式依然关闭也@@? 10/28 10:03
8F：→ MOONRAKER:我忘了 好像有一段时间没有 反正现在有了 >"< 10/28 10:34
9F：推 fumizuki:还是有End的啊，不过应该用Application.Exit会比较好 10/28 12:57
10F：→ fumizuki:End是无条件终止程式，但在类别专案、网站专案中不能使用 10/28 12:57
11F：→ ymzk:原来如此 3Q版主大大 10/28 13:31