VBasicFacil

Principal - Enlaces - Código - Controles - API

Función FindWindowEx

Declaración

Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Plataformas

Descripción

La función busca entre las ventanas hijas de la ventana especificada, una cuya clase y nombre cumplan las condiciones especificadas.

Parámetros

hWndParentA Manejador de la ventana madre de la que buscamos sus ventanas hijas. Si ponemos 0, consideramos el escritorio como ventana madre y se buscarán todas las ventanas de nivel superior que son las hijas del escritorio.

hWndChildAfterA Manejador de la ventana hija a partir de la cual comienza la busqueda. La busqueda comienza con la busqueda de la ventana hija inmediata en el Z-order. Si ponemos 0, la busqueda comienza con la ventana hija que esta de primera en el Z-order.

lpszClass Nombre de clase de la ventana que buscamos. Indicar una cadena nula para ignorar la clase.

lpszWindow Texto de la barra de titulo de la ventana buscada. Poner una cadena nula para ignorar el título de la ventana.

Valor devuelto

Si encuentra una ventana hija devuelve el manipulador de la misma; sino, devuelve 0.

Ejemplo

Este ejemplo permite quitar el botón de Inicio de windows y volver a ponerlo

Formulario (Crear solo el formulario)

Option Explicit


Dim retval As Long


Const ESCRITORIO = "Progman"
Const BARRATAREAS = "Shell_TrayWnd"

Private Sub Form_Load()
    Dim Hndl As Long
    'Obtenemos el manejador de la barra de tareas
    Hndl = FindWindow(BARRATAREAS, vbNullString)
    'Obtenemos el manejador del botón de la barra de tareas
    Hndl = FindWindowEx(Hndl, 0, "Button", vbNullString)
    'Ocultamos el botón
    retval = ShowWindow(Hndl, SW_HIDE)
    MsgBox "Pulse aceptar para volver a ver el botón inicio.", _
                vbExclamation, "Ejemplos Silared, s.l."
    'Mostramos el botón
    retval = ShowWindow(Hndl, SW_SHOWNORMAL)
End Sub

Modulo 

Option Explicit


Public Declare Function ShowWindow _
        Lib "user32" _
       (ByVal hwnd As Long, _
        ByVal nCmdShow As Long) As Long

Public Declare Function FindWindow _
        Lib "user32" _
        Alias "FindWindowA" _
       (ByVal lpClassName As String, _
        ByVal lpWindowName As String) As Long
        
Public Declare Function FindWindowEx _
        Lib "user32" _
        Alias "FindWindowExA" _
       (ByVal hWnd1 As Long, _
        ByVal hWnd2 As Long, _
        ByVal lpsz1 As String, _
        ByVal lpsz2 As String) As Long

Public Const SW_HIDE = 0
Public Const SW_SHOWNORMAL = 1
Public Const SW_SHOWMINIMIZED = 2
Public Const SW_MAXIMIZE = 3
Public Const SW_SHOWMAXIMIZED = 3
Public Const SW_SHOWNOACTIVATE = 4
Public Const SW_SHOW = 5
Public Const SW_MINIMIZE = 6
Public Const SW_SHOWMINNOACTIVE = 7
Public Const SW_SHOWNA = 8
Public Const SW_RESTORE = 9
Public Const SW_SHOWDEFAULT = 10
Public Const SW_MAX = 10
Descargar código : ShowWindow.zip

 

Aplicaciones:

Ver también:

Categoría: Window

Ultima actualización : 8 de diciembre de 2001
Copyright © 2001 Silared, s.l.
correo-e : vbasicfacil@silared.com
Site : www.vbasicfacil.com