Модераторы: Akina
  

Поиск:

Закрытая темаСоздание новой темы Создание опроса
> Номер строки, номер столбца, символ, юникод. 
:(
    Опции темы
Jr13san
Дата 26.9.2008, 11:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 174
Регистрация: 29.7.2008
Где: г. Павлово

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



Привет всем, кто на форуме.

По стандарту...
На форме имеется text1, text2, Richtextbox1, Label1.

Мне нужно узнать у text1.text: номер строки, номер столбца по положению курсора(т.е. там, где мигает вот такая палочка "|"). И полученный номер строки и номер столбца записать в text2.text через тире "-".
У Richtextbox1 и Label1 тоже самое(если код один и тот же, то писать не нужно...я пойму.)

Помогите на языке Basic написать вот эту строчку:
Номер символа = номер символа + 1

Далее нужно бы вставить в Richtextbox1 юникод. Как это сделать я пока не знаю. Пробовал просто через копировать и вставить, получается вот такой символ: "?". А Microsoft Equation я пока вызывать не умею.
Кто знает что-то,- напишите.
PM MAIL WWW ICQ   Вверх
Akina
Дата 26.9.2008, 11:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


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

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



В текстбоксе нет номера столбца. А номер строки определяется по количеству vbCR до местоположения курсора.


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

PM MAIL WWW ICQ Jabber   Вверх
Jr13san
Дата 30.9.2008, 12:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 174
Регистрация: 29.7.2008
Где: г. Павлово

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



а как например сделано в AkelPad?
PM MAIL WWW ICQ   Вверх
neic
Дата 30.9.2008, 16:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



Вот держи:

Код

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

'qw - кол-во символов до того места где стоит курсор
'qt - определяем, есть ли переход на след. строчку, если qt>0 тогда переход есть
'last_qt - симол на котором было последнее распределение

'i - строчка, j - столбец

qw = Text1.SelStart ' определяем кол-во символов от начала, т.е. смотрим где стоит курсор

If qw > 0 Then
    qt = 1
End If

Do While qt > 0
    qt = InStr(qt, Text1, vbCrLf)
    If qt > 0 Then
        qt = qt + 2 ' к найденному прибавляем +2, за переход
        last_qt = qt 
        i = i + 1
    Else
        j = (qw - last_qt) + 1
    End If
Loop

Label1.Caption = "Строка:" & i & vbCrLf & "Стобец:" & j
End Sub


Это сообщение отредактировал(а) neic - 30.9.2008, 16:39
PM MAIL WWW ICQ Skype   Вверх
Jr13san
Дата 30.9.2008, 17:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 174
Регистрация: 29.7.2008
Где: г. Павлово

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



Спасибо дружище=)
Буду пробовать.
PM MAIL WWW ICQ   Вверх
Jr13san
  Дата 13.10.2008, 17:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 174
Регистрация: 29.7.2008
Где: г. Павлово

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



neic, этот код не очень корректно работает...
Попробуй написать несколько строк и поперемещай курсор сначала вниз, а потом вверх...
У меня получаются "-48" "-26" и т. д. строки...
Я попробую что-нибудь придумать, но не думаю, что у меня получится...
Если что, можешь сам подредактировать получше...
Но идея не плохая.
PM MAIL WWW ICQ   Вверх
Akina
Дата 13.10.2008, 22:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


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

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



Jr13san, упорство - штука, конечно, похвальная. Но не всегда.


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

PM MAIL WWW ICQ Jabber   Вверх
  
Закрытая темаСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.

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


 




[ Время генерации скрипта: 0.1474 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.