Ejemplos usando el Api de windows para Visual basic

157 - Obtener Texto asociado a una ventana

Volver al Listado Api - Anterior - Siguiente

Ejemplo para recuperar el texto asociado a una ventana con el Api SendMessage

En este caso la función SendMessage se utiliza dos veces. En la primera llamada, se envía el mensaje WM_GETTEXTLENGTH. Al hacer esto, SendMessage retorna el tamaño ( cantidad de caracteres del caption ).

Con este valor se crea un buffer, y luego en la segunda llamada, se le envía el mensaje WM_GETTEXT con el buffer anterior para retorna el texto asociado a la misma. El buffer que retorna el caption, se envía en el último parámetro

Nota: Hay una función de ajuste de tipo String que se le debe enviar el HWND de la ventana a consultar el texto, por ejemplo para llamar a la función:

MsgBox Get_Caption_Ventana(PASAR_El_HWND)

Código fuente:

'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 ' Constantes para usar con SendMessage Private Const WM_GETTEXTLENGTH = &HE ' Mensaje que Retorna el tamaño del texto Private Const WM_GETTEXT = &HD ' Mensaje que Retorna el texto de la ventana Public Function Get_Caption_Ventana(El_HWND As Long) As String Dim Size_Text As Long Dim texto As String ' Si el HWND de la ventana es 0 salimos If El_HWND = 0 Then Get_Caption_Ventana = vbNullString Exit Function End If 'Retorna el tamaño del caption ( los caracteres ) Size_Text = SendMessage(El_HWND, WM_GETTEXTLENGTH, 0, 0) ' Si el retorno es 0 salimos ya que no hay caption If Size_Text = 0 Then Exit Function End If 'Buffer para almacenar el valor devuelto por SendMessage texto = Space$(Size_Text + 1) 'Recupera el texto en la variable "Texto", con el mensaje WM_GETTEXT Size_Text = SendMessage(El_HWND, WM_GETTEXT, Size_Text + 1, ByVal texto) 'Retorna el caption de la ventana a la función. _ ( Se eliminan los espacios nulos ) Get_Caption_Ventana = Replace(texto, Chr(0), vbNullString) End Function

Enlaces relacionados

Buscar en Recursos vb