作者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