2

シンタックスハイライトを使用してを作成してRichTextBoxいます。実際のコードでは、スペースを含む、またはそのステートメントを含まない他の単語から分離されている単語をチェックできます。 

        If RichTextBox1.SelectedText = " " Or RichTextBox1.SelectedText = Nothing Then

したがって、「test」（強調表示された単語）を入力するRichTextBoxと、すべての場合に機能します。ただし、「test」と入力すると、青になり、Enterキーを押すと、再び黒になります。単語の後の文字。
改行は上の文字で表されていると思いますRichTextBox。そのため、「テスト」としてのみ再認識されないので、チェックできる場合は、文字を何を付けなければなりませんでしたか？

私はこの方法を試しました： 

If  RichTextBox1.SelectedText = "\n" Then

と： 

If RichTextBox1.SelectedText = VbNewLine Then

しかし、両方とも機能しませんでした。「ここに新しい行がある」という意味の文字を誰もが知っていますか？

4

1 に答える 1

3

chr(10)、改行文字です。各行を個別に処理する場合は、RichTextBox1.Lines を使用することもできます。

RichTextBox 内の 1 バイト文字を調べる 1 つの方法を次に示します。

For i = 1 To Len(rtext1.text)
  s = s & Asc(Mid(rtext1.text, i, 1)) & "  "
  Next i
MsgBox(s)
于 2013-01-24T00:58:23.530 に答える