Плеяда вопросов

[Роман-вб]

1. Как поменять шрифт в RichTextBox'е. Пишу так:

Код: Выделить всё

richTxt.Font.Name = "Courier New"

-- ошибка.
2. Как установить фокус (или что писать вместо SetFocus)?
3. Что писать вместо richTxt.SelStart, .SelLength?

[ANDLL]

Ладно, может попробовать так.
1. rtb.Font = New Font("Terminal", rtb.Font.Size, rtb.Font.Style)
2. rtb.Focus
3. rtb.SelectionStart, rtb.SelectionLength

[Роман-вб]

Спасибо. И ещё такой вопрос.
Как мне перейти к началу RichTextBox'а, т.е. поставить курсор на начало? Пишу так:

Код: Выделить всё

richTxt.SelectionStart = 0
richTxt.SelectionLength = 0

,
но премещение курсора происходит только после кратковременого (секунд 5) зависания.

[Viper]

Метод перемещения курсора в начало контрола у тебя правильный, а зависет видимо по каким-то другим причинам

[Роман-вб]

Вот такая подпрограммка:

Код: Выделить всё

Private Sub ZarezervirSlova(ByVal richTxt As RichTextBox)
        Dim s As Integer = 1 'Объявляем переменную s для работы с числами
        Dim i As Integer
        For i = 0 To richTxt.Text.Length
            If InStr(s, richTxt.Text, "Sub") <> 0 Then 'Сверяется 2 значения
                richTxt.Focus() 'На RichTxt ставим курсор
                richTxt.SelectionStart = InStr(s, richTxt.Text, "Sub") - 1 'Устанавливаем курсор перед нужным словом
                richTxt.SelectionLength = Len("Sub")
                richTxt.SelectionColor = Color.Blue
                s = InStr(s, richTxt.Text, "Sub") + Len("Sub") ' Изменяем переменную на позицию курсора
            Else ' Если в тексте больше нет искомого слова, то переходим кверху.
                richTxt.SelectionStart = 0
                richTxt.SelectionLength = 0
            End If
        Next i
    End Sub

Может где чево криво?

[Viper]

Код: Выделить всё

InStr(s, richTxt.Text, "Sub")

Это у тебя выполняется 3 раза. стоит сделать один вызов и запомнить позицию

Код: Выделить всё

Len("Sub")

Вычисляешь длину константы - стоит вычислить один раз и присвоить значение константе (вернее переменной только для чтения)


Это все с беглого просмотра

/*И зачем тебе переменная s? Искать начинаешь всяко с 1*/ проглядел, переменная используется

[Роман-вб]

Код: Выделить всё

InStr(s, richTxt.Text, "Sub")

Это у тебя выполняется 3 раза. стоит сделать один вызов и запомнить позицию

Код: Выделить всё

Len("Sub")

Вычисляешь длину константы - стоит вычислить один раз и присвоить значение константе (вернее переменной только для чтения)


Это все с беглого просмотра

И зачем тебе переменная s? Искать начинаешь всяко с 1

Погоди, откуда 3 раза?

А длину строковой константы вычисляю так, для общего случая. Потом я переделаю.

[Viper]

Код: Выделить всё

...
If InStr(s, richTxt.Text, "Sub") <> 0
...
richTxt.SelectionStart = InStr(s, richTxt.Text, "Sub")
...
s = InStr(s, richTxt.Text, "Sub") + Len("Sub")

...

1,2,3?

[Роман-вб]

!Viper!
Если я правильно тебя понял, то

Код: Выделить всё

Private Sub ZarezervirSlova(ByVal richTxt As RichTextBox)
        Dim s As Integer = 1 'Объявляем переменную qw для работы с числами
        Dim i As Integer, ss As Integer
        For i = 0 To richTxt.Text.Length
            ss = InStr(s, richTxt.Text, "Sub")
            If ss <> 0 Then 'Сверяется 2 значения
                richTxt.Focus() 'На RichTxt ставим курсор
                richTxt.SelectionStart = ss - 1 'Устанавливаем курсор перед нужным словом
                richTxt.SelectionLength = Len("Sub")
                richTxt.SelectionColor = Color.Blue
                s = ss + Len("Sub") ' Изменяем переменную на позицию курсора
            Else ' Если в тексте больше нет искомого слова, то переходим кверху.
                richTxt.SelectionStart = 0
                richTxt.SelectionLength = 0
            End If
        Next i
    End Sub

Но это не помогает

[Viper]

Вопрос номер раз: а что вообще вышеуказанный код должен сделать?
Вопрос номер два: зачем все это делается в цикле от 0 до длины текста? Если надо найти все вхождения определенного слова (в данном случае Sub), то имеет смысл найти первое, и искать после него следующее вхождение. У тебя же поиск повторяется столько раз, сколько символов в тексте. Зачем?

Ну и наконец, а чем тебе не понравился метод Find имеющий место быть в контроле (классе) RichTexBox?

[Роман-вб]

!Viper!
1) Пока ищется подстрока в строке и перекрашивается
2) В цикле, потому что вызывается эта подпрограмма 1 раз
3) Если можешь, приведи пример более эффективного решения

[Viper]

Ну вот например:

Код: Выделить всё


Private Sub OnFind(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFind.Click
        FindAndMark("Sub", rtb)
End Sub
Public Sub FindAndMark(ByVal sFind As String, ByVal rtb As RichTextBox)
        Dim nLen As Integer = sFind.Length
        Dim sText As String = rtb.Text
        Dim nLenTxt As Integer = sText.Length
        If nLen = 0 OrElse nLenTxt = 0 Then
            Return
        End If
        Dim iPos As Integer = 1
        Do
            iPos = InStr(iPos, sText, sFind)
            If iPos = 0 Then
                Return
            End If
            With rtb
            .SelectionStart = iPos - 1
            .SelectionLength = nLen
            .SelectionColor = Color.Red
            .Focus()
            End With
            iPos += nLen
        Loop
End Sub


предполагается, что у тебя есть форма с RichTextBox с именем rtb и кнопкой btnFind

З.Ы. Оно конечно надо еще проверять аргументы на Nothing

[Viper]

2) В цикле, потому что вызывается эта подпрограмма 1 раз

и какая связь использования цикла с тем фактом, что подпрограмма вызывается один раз? Все что внутри цикла будет вызываться столько раз сколько у тебя символов в тексте. Причем независимо от количества вхождений искомого слова

[Роман-вб]

!Viper!
Спасибо за пример! Это как раз то что мне нужно. Теперь не виснет.

[Роман-вб]

!Viper!
А как сделать, чтобы находились только такие подстроки, каоторые являются отдельным словом и не входят в состав другого слова?

[Роман-вб]

Задался вопросом, как искать несколько слов. Стал юзать ParamArray:

Код: Выделить всё

Public Sub FindAndMark(ByVal rtb As RichTextBox, ByVal ParamArray sFind() As String)
        Dim nLen As Integer = sFind.Length
        Dim nLenTxt As Integer = rtb.Text.Length
        If nLen = 0 OrElse nLenTxt = 0 Then
            Return
        End If
        Dim iPos As Integer = 1
        Do
            iPos = InStr(iPos, rtb.Text, sFind(7))
            If iPos = 0 Then
                Return
            End If
            rtb.SelectionStart = iPos - 1
            rtb.SelectionLength = nLen
            rtb.SelectionColor = Color.Blue
            iPos += nLen
        Loop
    End Sub

Но ничего хорошего из этого не получилось. Что посоветуете?
P.S. Конечно можно отдельно для каждого слова вызывать эту подпрограмму, но хотелось бы услышать про ParamArray

[Nord777]

Код: Выделить всё

Imports System.Text.RegularExpressions

Public Class Form1

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

        Dim Rgx As New Regex("\w+", RegexOptions.Multiline)

        If Rgx.IsMatch(Rtb.Text) Then

            'Перебор всех слов
            For Each M As Match In Rgx.Matches(Rtb.Text)
                Rtb.SelectionBackColor = Rtb.BackColor
                Rtb.SelectionStart = M.Index
                Rtb.SelectionLength = M.Length
                Rtb.SelectionBackColor = Color.Blue

                Application.DoEvents()
                Threading.Thread.Sleep(1000)
            Next

        End If
    End Sub
End Class

[Viper]

!Viper!
А как сделать, чтобы находились только такие подстроки, каоторые являются отдельным словом и не входят в состав другого слова?

думай в сторону RichTextBox.Find

[Роман-вб]

Nord777
Что это делает?

[Роман-вб]

Интересно было бы ещё услышать про ParamArray
Если кто знает.

[Viper]

а в чем трабла то с ParamArray?

[Роман-вб]

!Viper!
Посмотри топик выше, я писал раньше. Что-то я делаю не так. А вот что?

[Viper]

А что не так делает код в топике? А есть ли в массиве полученном через ParamArray элемент с нумером 7?

[Роман-вб]

!Viper!
Да, есть. Но с семёркой -- это не выход. Мне нужно, чтобы все слова, которые чя буду передавать при вызове, перекрасились. И как это сделать?

[Viper]

Используй либо

Код: Выделить всё


Dim s As String
For Each s in sFind
...
Next


либо

Код: Выделить всё


Dim i As Integer
For i = 0 To sFind.Length - 1
...
Next


А внутри реализовывай поиск и перекраску... Вряд ли есть способ сделать поиск и перекраску сразу же для всего набора слов...

[Роман-вб]

Вот вызов

Код: Выделить всё

Call FindAndMark(richTxt, "Sub", "Function", "Private", "Public")

Вот процедура:

Код: Выделить всё

Public Sub FindAndMark(ByVal rtb As RichTextBox, ByVal ParamArray sFind() As String)
        Dim nLen As Integer = sFind.Length
        Dim nLenTxt As Integer = rtb.Text.Length
        If nLen = 0 OrElse nLenTxt = 0 Then
            Return
        End If
        Dim iPos As Integer = 1
        Do
            iPos = InStr(iPos, rtb.Text, sFind())
            If iPos = 0 Then
                Return
            End If
            rtb.SelectionStart = iPos - 1
            rtb.SelectionLength = nLen
            rtb.SelectionColor = Color.Blue
            iPos += nLen
        Loop
    End Sub

И куда вставлять этот цикл?

[Viper]

Как то так

Код: Выделить всё


Public Sub FindAndMark(ByVal rtb As RichTextBox, ByVal ParamArray sFind() As String)
        Dim nLenTxt As Integer = rtb.Text.Length
        If nLenTxt = 0 Then
            Return
        End If
        Dim s As String
        For Each s In sFind
             Dim nLen As Integer = s.Length
             If nLen > 0 Then
                  Dim iPos As Integer = 1
                  Do
                     iPos = InStr(iPos, rtb.Text, s)
                     If iPos <> 0 Then
                          rtb.SelectionStart = iPos - 1
                          rtb.SelectionLength = nLen
                          rtb.SelectionColor = Color.Blue
                          iPos += nLen
                     End If
                 Loop
             End If
        Next
    End Sub


[Роман-вб]

!Viper!
При твоём коде и при таком вызове

Код: Выделить всё

Call FindAndMark(richTxt, "Sub", "Function", "Private", "Public")

Красится только "Sub"...

[Viper]

Попробуй пройти пошагово, мож где что странное обнаружишь... Я сам это не запускал, ибо сижу за компом без VB, а поскольку человеку свойственно оштибаться... Хотя на первый взгляд должно работать

[Роман-вб]

Жму как дурак на К8. Зачем они кнопку поменяли традиционную