Имя пользователя:
Пароль:
 

Название темы: Visual Basic 2008
Показать сообщение отдельно

Ветеран


Сообщения: 3320
Благодарности: 916

Профиль | Отправить PM | Цитировать


А ну это другое дело, только тогда в этом случаи терминологически надо говорить про положения каретки, а не курсора (координаты которого передаёт e.)
Код: Выделить весь код
  Private Sub RichTextBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
        Dim Position As Integer = Me.RichTextBox1.SelectionStart
        Dim Line As Integer = Me.RichTextBox1.GetLineFromCharIndex(Position)
        Dim Col As Integer = Position - Me.RichTextBox1.GetFirstCharIndexOfCurrentLine
        Label1.Text = Position & " " & Line & " " & Col
    End Sub
А насчёт глобальной отловки курсора, то теперь (в отличии от VB6) не надо никакого Хука (по видимому он уже в нёдрах НЕТА), так что отловить его возможно, даже когда окно не активно или когда его и вовсе нет
Код: Выделить весь код
Label1.Text = MousePosition.X & " " & MousePosition.Y
Это сообщение посчитали полезным следующие участники:

Отправлено: 17:04, 10-06-2008 | #113

Название темы: Visual Basic 2008