作者rocksan (Rocksan)
看板Visual_Basic
标题Re: [VB6 ] 购票系统
时间Thu Apr 20 17:09:00 2006
: 小弟又有问题
: 如果我在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
1F：推 saintber:能不能使用Val函数？我没用过.NET不太确定，不过应该可 04/20 22:55
2F：→ saintber:以才对。试试看把Text1.text改成Val(Text1.text) 04/20 22:56
3F：推 rocksan:使用Val也是可以，但是要注意的是，TEXTBOX空白时 04/21 00:59
4F：→ rocksan:会变成零，另外就是如果输入文字时，也是一样，比较没辨法 04/21 01:01
5F：→ rocksan:MaskedTextBox，直接限定使用者输入的格式。 04/21 01:03