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
4

1 に答える 1

3

cc.RawDataString何かに設定する前に参照しているようです。

于 2013-05-07T04:57:25.947 に答える