0

リストボックスからテキストを削除しようとしていますが、このエラーが発生し続けます。

Error   1   Reference to a non-shared member requires an object reference.

エラーの原因となっているコードは次のとおりです。

ListBox1.Items.Add(Match.ToString.Replace("color: 0863BB;", "").Replace("</span>", "").Replace(">", "").Replace("""", ""))

これは以下の私の完全なコードです。何が間違っているのかわかりません。助けてください。

Imports System.Text.RegularExpressions

パブリック クラス Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Dim Regex As New Regex("color: 0863BB;" & Chr(34) & ">(.*?)</span></span>")
    Dim Matches As MatchCollection = Regex.Matches(RichTextBox1.Text)

    For Each Match As Match In Matches

        ListBox1.Items.Add(Match.ToString)

    Next

End Sub

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
    'RichTextBox1.Text = WebBrowser1.DocumentText

End Sub

Private Sub RichTextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles RichTextBox1.TextChanged
    ListBox1.Items.Add(Match.ToString.Replace("color: 0863BB;", "").Replace("</span>", "").Replace(">", "").Replace("""", ""))
End Sub

Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
    If ListBox1.Items.Contains("<span>") Then

    End If
End Sub

Private Sub ListBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
    '  (Match.ToString.Replace("color: 0863BB;", "").Replace("</span>", "").Replace(">", "").Replace("""", ""))
End Sub

クラス終了

4

1 に答える 1

1

コンパイラは について不平を言っていMatch.ToStringます。ToStringインスタンスメソッドですMatchが、型です。

于 2012-11-23T03:53:25.410 に答える