Ejemplos usando el Api de windows para Visual basic

209 - Api SetForeGroundWindow - ventanas en primer plano

Ejemplo de la función api SetForeGroundWindow para poner una ventana en primer plano

Esta función solo requiere del Hwnd de la ventana a poner en primer plano. Ojo, no confundir el uso de esta función , con poner una ventana siempre visible - AlwaysOnTop

Nota: Al llamar a la función para establecer en primer plano la ventana, no quiere decir que siempre colocará la ventana al frente, es decir si la ventana está minimizada, seguirá minimizada en la barra de tareas pero se pondrá en primer plano, si está en modo maximizada o normal, se traerá la ventana al frente

El siguiente ejemplo, lista todas las ventanas visibles de windows en un ListView ( función api Api EnumWindows ), mostrando en una columna el caption y en otra columna su Hwnd. Luego al hacer clic en un item , se llama a la función SetForegroundWindow pasándole el Hwnd, es decir el valor del SubItem(1)

Formulario

vista del formulario de ejemplo en visual basic para establecer una ventana en primer plano mediante el api

Nota: la función contraria a SetForegroundWindow se llama GetForegroundWindow

Controles para el ejemplo

Agregar un control Listview
Un CommandButton
Un módulo bas

Código fuente en el formulario

Option Explicit Private Sub Command1_Click() Erase Info Procesos = 0 'Callback : Ejecuta Enumwindows para listar las ventanas de windows EnumWindows AddressOf Listar_Ventanas, 0 Call Obtener_Ventanas End Sub Sub Obtener_Ventanas() Dim i As Integer Dim LItem As ListItem 'variable para los subitems del listview ListView1.ListItems.Clear ' Recorre los procesos de windows abiertos For i = 1 To Procesos With Info(i) If .captionWin <> "Program Manager" And _ .captionWin <> vbNullString And _ .captionWin <> "Project1" Then ' Verifica si la ventana es visible If IsWindowVisible(.HwndWin) Then 'Agrega el título de la ventana y el hwnd Set LItem = ListView1.ListItems.Add(, , .captionWin) ' Hwnd LItem.SubItems(1) = .HwndWin End If End If End With Next End Sub Private Sub Form_Load() With ListView1 'vista de reporte para el Listview .View = lvwReport ' Agrega dos columnas , una para el titulo y otra para el hwnd .ColumnHeaders.Add , , " Título de la ventana ", 5000 .ColumnHeaders.Add , , " Hwnd " End With Me.Caption = " Api SetForegroundWindow " Command1.Caption = " Refrescar ventanas " SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, _ SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE End Sub Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem) Dim ret As Long ' Pone la ventana en primer plano, pasándole el Hwnd ret = SetForegroundWindow(CLng(Item.SubItems(1))) End Sub

Código fuente en el módulo bas

Option Explicit 'Udt para guardar el texto de la barra de titulo y el hwnd ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Type t_Info HwndWin As Long captionWin As String End Type Public Const HWND_TOPMOST = -1 Public Const HWND_NOTOPMOST = -2 Public Const SWP_NOSIZE = &H1 Public Const SWP_NOMOVE = &H2 Public Const SWP_NOACTIVATE = &H10 Public Const SWP_SHOWWINDOW = &H40 Declare Sub SetWindowPos Lib "User32" ( _ ByVal hWnd As Long, _ ByVal hWndInsertAfter As Long, _ ByVal X As Long, _ ByVal Y As Long, _ ByVal cx As Long, _ ByVal cy As Long, _ ByVal wFlags As Long) 'Declaraciones Api ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Declare Function IsWindowVisible Lib "User32" (ByVal hWnd As Long) As Long Declare Function EnumWindows Lib "User32" (ByVal lpEnumFunc As Any, ByVal _ lParam As Long) As Long Declare Function GetWindowText Lib "User32" Alias "GetWindowTextA" _ (ByVal hWnd As Long, ByVal lpString As String, _ ByVal cch As Long) As Long Declare Function SetForegroundWindow Lib "User32" (ByVal hWnd As Long) As Long 'Variables ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Public Info() As t_Info Public Procesos As Integer 'Función que enumera las ventanas visibles de windows '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Public Function Listar_Ventanas(ByVal Handle As Long, _ ByVal lParam As Long) As Boolean ' Buffer para el captionde la ventana Dim buffer As String * 256 Dim l As Long Procesos = Procesos + 1 'redimensiona el vector ReDim Preserve Info(1 To Procesos) With Info(Procesos) ' Guarda el Handle .HwndWin = Handle ' Recupera el título de la ventana l = GetWindowText(Handle, buffer, Len(buffer)) .captionWin = Replace(buffer, Chr(0), vbNullString) End With ' Sigue listando las demás ventanas Listar_Ventanas = 1 End Function

Enlaces relacionados

Buscar en Recursos vb