Vb.net “;使用New关键字创建对象实例”;
我不确定这部分程序有什么问题。每次我运行它时,都会显示一条错误消息: 对象引用未设置为对象的实例 在Vb.net “;使用New关键字创建对象实例”;,vb.net,Vb.net,我不确定这部分程序有什么问题。每次我运行它时,都会显示一条错误消息: 对象引用未设置为对象的实例 在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,
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.RawDataString
。它看起来像是在你设置它之前引用了cc.RawDataString
。看起来要么cc
要么cc.RawDataString
是空的。这看起来不像VBA。你是说VB.NET吗?窗口顶部显示的“Microsoft Visual Studio”似乎是cc
或cc。RawDataString
为空。这看起来不像VBA。你是说VB.NET吗?窗口顶部显示“Microsoft Visual Studio”,我将箭头悬停在posB=cc.RawDataString.IndexOf(“B”)上,并显示“cc.RawDataString Nothing”。也许这就是问题所在,对吧?是的,这就是问题所在。几行之后,您设置了cc.RawDataString
。我的第一个VB类。首先,我非常感谢您的宝贵帮助,其次,您解决了我的问题。谢谢,谢谢。我将箭头悬停在posB=cc.RawDataString.IndexOf(“B”)上,并说“cc.RawDataString Nothing”。也许这就是问题所在,对吧?是的,这就是问题所在。几行之后,您设置了cc.RawDataString
。我的第一个VB类。首先,我非常感谢您的宝贵帮助,其次,您解决了我的问题。谢谢,谢谢。