Conocer el nombre de la ventana activa actual

Con esta función puedes obtener el nombre de la ventana que tiene el foco actualmente.

Este ejemplo para un uso más apropiado deberías crear un Timer y mostrar el valor cada segundo (por ejemplo).

Tienes que crear un CommandButton llamado ‘Command1’:

Option Explicit
Private Declare Function GetActiveWindow Lib "user32" () As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, _
             ByVal lpString As String, ByVal cch As Long) As Long
Private Sub Form_Click()
    Dim LongitudNomVentana As Long, NomVentana As String, Manejador As String
    NomVentana = Space$(255)
    Manejador = GetActiveWindow()
    LongitudNomVentana = GetWindowText(GetActiveWindow(), NomVentana, 255)
    MsgBox Left(NomVentana, LongitudNomVentana)
End Sub
Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión /  Cambiar )

Google photo

Estás comentando usando tu cuenta de Google. Cerrar sesión /  Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión /  Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión /  Cambiar )

Conectando a %s