Hi,
Ich will eine Such-Funktion einrichten. Ich benutze das CodeEditorControl1.
Da hab ich jedoch ein fehler...
Alles, wo nach dem Control1 eine Selection kommt, ist als Falsch markiert. Option Strict on hat auch nix gewusst...
Wie kann ich nun jedoch die wörter finden, oder wenigstens unterstreichen?
mfg
gfcwfzkm
Ich will eine Such-Funktion einrichten. Ich benutze das CodeEditorControl1.
Da hab ich jedoch ein fehler...
VB.NET-Quellcode
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- Dim Sought() As String = {TextBox1.Text} 'Wörter, die markiert werden
- Dim Signalizers As String = " " & Chr(13) & Chr(10) 'Zeichen, bei denen überprüft wird
- For Each Str As String In Sought
- If Form1.CodeEditorControl1.SelectionStart > Str.Length Then
- If Signalizers.ToLower.Contains(Mid(Form1.CodeEditorControl1.Document.Text, Form1.CodeEditorControl1.SelectionStart, 1).ToLower) Then
- If Mid(Form1.CodeEditorControl1.Document.Text, Form1.CodeEditorControl1.SelectionStart - Str.Length, Str.Length).ToLower = Str.ToLower Then
- Dim SelStart As Integer = Form1.CodeEditorControl1.SelectionStart
- Form1.CodeEditorControl1.SelectionStart = Form1.CodeEditorControl1.SelectionStart - Str.Length - 1
- Form1.CodeEditorControl1.SelectionLength = Str.Length
- Form1.CodeEditorControl1.SelectionColor = Color.Red
- Form1.CodeEditorControl1.SelectionStart = SelStart
- End If
- End If
- End If
- Next
- End Sub
- End Class
Alles, wo nach dem Control1 eine Selection kommt, ist als Falsch markiert. Option Strict on hat auch nix gewusst...
Wie kann ich nun jedoch die wörter finden, oder wenigstens unterstreichen?
mfg
gfcwfzkm