Re: [VB6 ] 購票系統
: 小弟又有問題
: 如果我在textbox1跟textbox2都有打數字的話
: 程式就沒錯
: 如果我其中一格什麼都沒打
: 系統就會出錯
: 是因為空白不能*任何東西嘛?
: 如果是這樣
: 那該如何修改?
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim X As MsgBoxResult
Dim Y As String
Dim Z, C As Double
If IsNumeric(TextBox1.Text) = False Or IsNumeric(TextBox2.Text) =
False Then
MsgBox("請輸入正確格式")
'如果不是數字的話，就不正確
Exit Sub
End If
Z = (CDbl(TextBox1.Text) * 500 + CDbl(TextBox2.Text) * 300)
C = Z * 0.8
X = MsgBox("你是會員嗎？", MsgBoxStyle.YesNo)
If X = MsgBoxResult.No Then
MsgBox("票價為" & Z, , "謝謝你的購買")
Else
Y = InputBox("請輸入會員帳號")
End If
End Sub
End Class
在前面加上一個判斷式，去判斷Textbox.text的值是否為數值型態，不是的話就不執行下面的程式。
這樣應該就可以了!!
IsNumeric(Object)傳回 Boolean 值，指出Objec是否可以評估為數字。
謝謝收看
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.112.94.115
推
04/20 22:55, , 1F
04/20 22:55, 1F
→
04/20 22:56, , 2F
04/20 22:56, 2F
推
04/21 00:59, , 3F
04/21 00:59, 3F
→
04/21 01:01, , 4F
04/21 01:01, 4F
→
04/21 01:03, , 5F
04/21 01:03, 5F
討論串 (同標題文章)
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
