Resumen Título de la ventana a partir del nombre de clase

>¿ es posible saber el nombre de la ventana a partir de el Nombre de clase ?

Podríamos "darle la vuelta" (y cambiar algo, claro :-D ) al código para
obtener el nombre de clase a partir de la ventana :

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

Public Sub GetTitleFromClassName()

   Dim sInput As String
   Dim hwnd As Long
   Dim lpWindowText As String
   Dim nMaxCount As Long
   Dim lresult As Long

   ' pad the return buffer for WindowText
   nMaxCount = 256
   lpWindowText = Space(nMaxCount)
   ' Note: must be an exact match
   sInput = InputBox("Enter the exact class name:")
   ' No validation is done as this is a debug window utility
   hwnd = FindWindow(sInput, vbNullString)
   ' Get the window title, again, no validation
   lresult = GetWindowText(hwnd, lpWindowText, nMaxCount)
   Debug.Print "Class name: " & sInput
   Debug.Print "Window: " & Left$(lpWindowText, lresult)

End Sub

PD: como la original estaba en inglés la "vuelta" la dejé también en
"extranjero".

Un saludo.

_________________________________________________
José Rubí de la Vega
E-mail : jrubi@arrakis.es
WWW : http://www.arrakis.es/~jrubi
Podrás encontrar información sobre VB, la lista
VB-ESP y un resumen de los mensajes de la misma



Resumen Resumen

Visual Basic Página de Visual Basic

Página principal Página principal

www.jrubi.com