我不确定程序的这部分有什么问题。我每次运行它有一个错误消息说:“使用新关键字创建对象实例”
对象引用不设置到对象
的实例就行了cc.RawDataString.IndexOf("B")
。
代码:
Private Sub btnSubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSubmit.Click
Dim cc As New CreditCard
Dim posB, posC1, posC2, posBlackSlash As Integer
posB = cc.RawDataString.IndexOf("B")
posC1 = cc.RawDataString.IndexOf("^")
posC2 = cc.RawDataString.IndexOf("^", posC1 + 1)
posBlackSlash = cc.RawDataString.IndexOf("/")
cc.RawDataString = txtRawData.Text
lblCCNumber.Text = cc.Number
lblCCNumber.Text = cc.RawDataString.Substring(posB + 1, posC1 - posB - 1)
lblLname.Text = cc.RawDataString.Substring(posC1 + 1, posBlackSlash - (posC1 + 1))
lblFName.Text = cc.RawDataString.Substring(posBlackSlash + 1, posC2 - (posBlackSlash + 1))
lblYear.Text = cc.RawDataString.Substring(posC2 + 1, 2)
lblMonth.Text = cc.RawDataString.Substring(posC2 + 3, 2)
End Sub
似乎'cc'或'cc.RawDataString'为空。 – 2013-05-07 04:54:12
这看起来不像VBA。你的意思是VB.NET吗? – michaelb958 2013-05-07 04:57:19
在窗口顶部显示“Microsoft Visual Studio” – 2013-05-07 04:58:29