2013-05-07 53 views
0

我不确定程序的这部分有什么问题。我每次运行它有一个错误消息说:“使用新关键字创建对象实例”

对象引用不设置到对象

的实例就行了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 
+1

似乎'cc'或'cc.RawDataString'为空。 – 2013-05-07 04:54:12

+0

这看起来不像VBA。你的意思是VB.NET吗? – michaelb958 2013-05-07 04:57:19

+0

在窗口顶部显示“Microsoft Visual Studio” – 2013-05-07 04:58:29

回答

3

它看起来像您引用cc.RawDataString将其设置为某件事之前。

+0

我在posB = cc.RawDataString.IndexOf(“B”)上悬停了箭头,并说“cc.RawDataString Nothing”。可能这就是问题了吗? – 2013-05-07 05:01:57

+0

是的,这是问题所在。您稍后设置'cc.RawDataString'几行。 – jdigital 2013-05-07 05:04:40

+0

我的第一堂课。我非常感谢你的宝贵帮助,第二个解决了我的问题。谢谢谢谢。 – 2013-05-07 05:07:42

相关问题