Ejemplos usando el Api de windows para Visual basic

135 - Obtener con SendMessage la posición de un caracter

Volver al Listado Api - Anterior - Siguiente

Contenido

Ejemplo 1
Ejemplo 2
Enlaces relacionados

Ejemplo 1

Retornar medianete el Api SendMessage en conjunto con el mensaje EM_CHARFROMPOS, la posición de un caracter de un RichTextBox a partir de la coordenada del mouse

El ejemplo , que se ejecuta en el MouseMove de un RichtextBox, a partir de la posición de mouse ( X e Y ) se obtiene el caracter en donde está situado el cursor.

Este ejemplo asi como está no tiene utilidad, pero agregando algunas líneas de código, se puede obtener por decir alguna utilidad, la palabra completa en la que está ubicado el puntero del mouse, para visualizarla en un StatusBar, para remarcar con color ciertas frases etc..

Código fuente en un formulario con un RichTextBox

'Declaración de constante para SendMessage Private Const EM_CHARFROMPOS& = &HD7 'Type para las coordenadas del mouse en la pantalla Private Type POINTAPI x As Long y As Long End Type 'Declaración del Api SendMessage Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _ (ByVal hWnd As Long, _ ByVal wMsg As Long, _ ByVal wParam As Long, _ lParam As Any) As Long 'Variable para la estructura POINTAPI Private Cursor As POINTAPI Private Sub Form_Load() ' Se agrega algún texto al Richtextbox RichTextBox1.Text = "Una Linea " & _ vbNewLine & vbNewLine & "Otra línea" & _ vbNewLine & vbNewLine & "Otra mas" RichTextBox1.MousePointer = 1 RichTextBox1.Font.Size = 12 End Sub Private Sub RichTextBox1_MouseMove(Button As Integer, _ Shift As Integer, _ x As Single, _ y As Single) 'Posición del puntero del mouse With Cursor .x = x / Screen.TwipsPerPixelX .y = y / Screen.TwipsPerPixelY End With 'REcibe la posción del caracter en donde se encuentra el mouse pos = SendMessage(RichTextBox1.hWnd, EM_CHARFROMPOS, 0&, Cursor) If pos = 0 Then Exit Sub Else 'Visualiza en el caption del form el caracter Me.Caption = Mid(RichTextBox1.Text, pos, 1) End If End Sub

Ejemplo 2

Obtener la palabra completa.

Este código fuente de muestra es similar al anterior , pero retorna la palabra o frase completa cuando pasamos el mouse sobre una frase del RichTextBox

Código fuente en el form con un control Richtextbox1

Option Explicit ' declaración de SendMessage, la constante para obtener el caracter _ y la estructura POINTAPI para obtener las coordenadas ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Const EM_CHARFROMPOS& = &HD7 Private Type POINTAPI x As Long y As Long End Type Private Declare Function SendMessage _ Lib "user32" _ Alias "SendMessageA" ( _ ByVal hWnd As Long, _ ByVal wMsg As Long, _ ByVal wParam As Long, _ lParam As Any) As Long ' función que retorna un String con la palabra ''''''''''''''''''''''''''''''''''''''''''''''''''''''' Public Function Palabra( _ RichTextBox As RichTextBox, _ x As Single, y As Single) As String Dim pt As POINTAPI Dim pos As Integer Dim start_pos As Integer Dim end_pos As Integer Dim Letra As String Dim txt As String Dim txtlen As Integer ' coordenadas del mouse a pixeles With pt .x = x \ Screen.TwipsPerPixelX .y = y \ Screen.TwipsPerPixelY End With ' obtiene la letra a partir de la posición del mouse pos = SendMessage(RichTextBox.hWnd, EM_CHARFROMPOS, 0&, pt) If pos <= 0 Then Exit Function End If ' Almacena todo el contenido del Richtextbox txt = RichTextBox.Text ' Verifica la palabra desde el caracter posicionado hacia la izquierda. _ Si encuentra un caracter de espacio, o un caracter no imprimible , sale For start_pos = pos To 1 Step -1 Letra = Mid$(RichTextBox.Text, start_pos, 1) If (Letra = " ") Or (Asc(Letra) <= 32) Or (Asc(Letra) >= 256) Then Exit For 'If Or Letra = Chr(10) Or Letra = Chr(13) Then Exit For Next start_pos = start_pos + 1 txtlen = Len(txt) ' Verifica igual que antes pero hacia la derecha For end_pos = pos To txtlen Letra = Mid$(txt, end_pos, 1) 'If Letra = " " Or Letra = Chr(10) Or Letra = Chr(13) Then Exit For If (Letra = " ") Or (Asc(Letra) <= 32) Or (Asc(Letra) >= 256) Then Exit For Next end_pos = end_pos - 1 ' obtiene la palabra a partir de la posición de los valores almacenados _ (desde el primer caracter de la palabra hasta el último If start_pos <= end_pos Then Palabra = Mid$(txt, start_pos, end_pos - start_pos + 1) End If End Function Private Sub Form_Load() Dim i As Integer ' carga texto en el RichTextbox With RichTextBox1 .Text = "" For i = 1 To 12 .Text = .Text & FormatDateTime(Date + i, vbLongDate) & _ vbNewLine & vbNewLine Next End With End Sub Private Sub RichTextBox1_MouseMove( _ Button As Integer, _ Shift As Integer, _ x As Single, _ y As Single) ' le pasa los valores a la función Me.Caption = Palabra(RichTextBox1, x, y) End Sub

Enlaces relacionados

Buscar en Recursos vb