VBasicFacil

Principal - Enlaces - Código - Controles - API

Función FindWindow

Declaración

Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Plataformas

Descripción

Busca en la lista de ventanas, aquella de nivel superior que coincide con el nombre de clase y el título indicado en los parametros. No busca ventanas hijas.

Parámetros

lpClassName Nombre de la clase de la ventana a buscar. Si no se va a pasar el nombre de la clase ponga una cadena nula (vbNullString)

lpWindowName Texto del titulo de la ventana a buscar. Si no se pasa el título, debe pasar una cadena nula (vbNullString).

Valor devuelto

Si encuentra la ventana devuelve el manipulador de la misma, sino devuelve un o.

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: RemoveMenu, GetSystemMenu

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