Warning: file_get_contents(/data/phpspider/zhask/data//catemap/1/vb.net/16.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Vb.net “;使用New关键字创建对象实例”;_Vb.net - Fatal编程技术网

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类。首先,我非常感谢您的宝贵帮助,其次,您解决了我的问题。谢谢,谢谢。