 Autor
|
Tema: Ocultar una X ventana!!! (Leído 1,323 veces)
|
Pitoniso
 Desconectado
Mensajes: 118
|
Hola tengo un codigo con el cual logro ocultar una X ventana, ahora que sucede que la dicha ventana puede demorarse en mostrarse por X motivos, si yo quisiera que mi Soft al dectetarla la ocultara podria hacerlo con un Timer verdad...
Alguna otra idea...
|
|
|
|
|
En línea
|
|
|
|
|
jrhomer
|
Perdona, pero no entiendo lo que quieres hacer.
|
|
|
|
|
En línea
|
ups!!
|
|
|
SheKeL_C$
Desconectado
Mensajes: 549
_-=[Sh3K3L_C$]=-_
|
creo q es esto lo q pides... Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Const SW_SHOWNORMAL = 1
Const SW_SHOWHIDE = 0
Private Sub Form_Load()
Dim hWnd As Long
hWnd = FindWindow(vbNullString, "Mi PC")
If hWnd <> 0 Then
'ShowWindow hWnd, SW_SHOWHIDE 'esto lo oculta
'ShowWindow hWnd, SW_SHOWNORMAL ' y esto lo muestra
End If
End Sub
|
|
|
|
|
En línea
|
|
|
|
Pitoniso
Desconectado
Mensajes: 118
|
creo q es esto lo q pides... Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Const SW_SHOWNORMAL = 1
Const SW_SHOWHIDE = 0
Private Sub Form_Load()
Dim hWnd As Long
hWnd = FindWindow(vbNullString, "Mi PC")
If hWnd <> 0 Then
'ShowWindow hWnd, SW_SHOWHIDE 'esto lo oculta
'ShowWindow hWnd, SW_SHOWNORMAL ' y esto lo muestra
End If
End Sub
Bueno lo meti en el ciclo de un Timer e inmediantamente que mande a llamar al Soft se oculto espero que no me de mas problemas..aunque sigo con la duda aqui hacemos la busqueda por el nombre de la ventana no seria mas como por el Proceso, o sea saber si un X proceso tiene alguna ventana abierta, yo lo tenia realizado asi buscando la ventana..solo quiero saber si es posible..
|
|
|
|
|
En línea
|
|
|
|
|
 |
