VPF::Выделение строки - Форум программистов

DenageS

Дата 3.11.2006, 13:34 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 81
Регистрация: 29.9.2006

Репутация: нет
Всего: нет

1.Подскажите как в textbox допустим выделить 6-ую строку?
2. Как возвратить номер строки, на которой стоит курсор/выделение?

Akina

Дата 3.11.2006, 14:14 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

В TextBox нет строк. Вернее, строки на экране и строки в Value не обязаны совпадать (разве только если нет автопереноса строк).

А местоположение курсора тебе поможет определить SelStart

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

mihanik

Дата 3.11.2006, 15:35 (ссылка)

(нет голосов)

Загрузка ...

-=Белый Медведь=-

Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 11
Всего: 109

Вот так можно узнать, на какой строке стоим

Код


Private Sub Command1_Click()
Dim I As Long
Dim L As Long
Dim S As String
    
    L = 1
    S = Text1.Text
    
    For I = Text1.SelStart To 0 Step -1
        If Mid(S, I + 1, 1) = vbCr Then L = L + 1
    Next I
    
    MsgBox L
End Sub

Добавлено @ 15:49
А вот так можно выделитьтекущую строку, где стоит курсор...

Код


Private Sub Command2_Click()
Dim L As Long
Dim St, En As Long
Dim S As String
    
    S = Text1.Text
    L = Len(S)
    
    St = Text1.SelStart
    If St = 0 Then St = 1
    En = St
    
    While St > 1 And Mid(S, St, 1) <> vbCr
        St = St - 1
    Wend
    
    While En < L And Mid(S, En, 1) <> vbCr
        En = En + 1
    Wend

    
    Text1.SetFocus
    Text1.SelStart = St - 1
    Text1.SelLength = En - St + 1

End Sub

Это сообщение отредактировал(а) mihanik - 3.11.2006, 15:50

--------------------

Программистами не рождаются, - это родовая травма...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »