Re: [.NET] inputbox的取消鍵如何按了就跳出

看板Visual_Basic作者 (山崎翔太)時間13年前 (2012/10/27 15:30), 編輯推噓2(209)
留言11則, 3人參與, 最新討論串2/2 (看更多)
※ 引述《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

10/27 20:47, , 1F
應該是要用Exit Sub,而不是End @@?
10/27 20:47, 1F

10/27 22:39, , 2F
哈哈 那我誤以為他要跳出程式囉?XD 不然 這位大大兩個都
10/27 22:39, 2F

10/27 22:39, , 3F
Try 看哪一個是貴方要的效果囉 :)
10/27 22:39, 3F

10/27 22:40, , 4F
也許我真的誤解了XDD
10/27 22:40, 4F

10/27 23:15, , 5F
VB.NET沒有End,這好像是我開始玩時注意到的第一件事
10/27 23:15, 5F

10/27 23:16, , 6F
不對,還是有…總之那時我改用form.close()就不想end了
10/27 23:16, 6F

10/28 10:03, , 7F
M大 可是我打End程式依然關閉也@@?
10/28 10:03, 7F

10/28 10:34, , 8F
我忘了 好像有一段時間沒有 反正現在有了 >"<
10/28 10:34, 8F

10/28 12:57, , 9F
還是有End的啊,不過應該用Application.Exit會比較好
10/28 12:57, 9F

10/28 12:57, , 10F
End是無條件終止程式,但在類別專案、網站專案中不能使用
10/28 12:57, 10F

10/28 13:31, , 11F
原來如此 3Q版主大大
10/28 13:31, 11F
文章代碼(AID): #1GYusfQf (Visual_Basic)
文章代碼(AID): #1GYusfQf (Visual_Basic)