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
Posted
vie, jul 21 2000 21:25
by
Maverick