VBasicFacil: GetWindowText

Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

Busca la ventana activa. La ventana activa es aquella en la que esta trabajando el usuario, la que esta de primera en el Z-Orden (Solo ventanas o cajas de dialogo). La función devuelve 0 si se produce un error, en caso contrario devuelve el manejador de la ventana activa.

Con este ejemplo vamos a hacer moverse (rotar) un texto en un botón.

Formulario (Contiene un TextBox y un ControlButton)

Option Explicit


'Mostrar el titulo de la ventana activa


Dim Handle As Long      'Manejador de la ventana activa
Dim Longitud As Long    'Longitud del título de la ventana activa
Dim Texto As String     'Buffer para el texto de la barra de título
Dim Retorno As Long     'Valor de retorno


Private Sub Form_Load()
    Handle = GetForegroundWindow()     'Devuelve el manejador de la ventana activa
    Longitud = GetWindowTextLength(Handle) + 1    'Longitud del título de la ventana
    Texto = Space(Longitud)     'Almacena espacio en el buffer para recibir el texto
    Retorno = GetWindowText(Handle, Texto, Longitud)     'Obtiene el título
    Texto = Left(Texto, Longitud - 1)     'Borra el carácter nulo al final del texto
    Text1.Text = Texto
End Sub


Private Sub Command1_Click()
    Unload Me
End Sub

Modulo (Implementado solo por claridad, podría ir en el formulario)

Option Explicit


Public Declare Function GetForegroundWindow Lib "user32" () As Long
Public Declare Function GetWindowTextLength Lib "user32" _
            Alias "GetWindowTextLengthA" _
           (ByVal hwnd As Long) As Long
Public Declare Function GetWindowText Lib "user32" _
            Alias "GetWindowTextA" _
           (ByVal hwnd As Long, _
            ByVal lpString As String, _
            ByVal cch As Long) As Long

Descargar Codigo : GetForegroundWindow.zip

Función GetWindowText

VB.NET