| Pregunta: | 18810 - VENTANA DEL EXPLORADOR EN PRIMER PLANO |
| Autor: | Jorge Morras |
| Buenos días:
Quisiera saber si se puede hacer que la ventana del explorador aparezca en primer plano SIEMPRE, incluso cundo pierde el foco. Lo he visto hecho en algún anuncio 'pelma' pero no lo consigo hacer. Tambien sería de gran ayuda si alguien supiera como abrir en explorador en una ventana MAXIMIZADA. En la actualidad lo que hago es definirle el tamaño, pero no se queda maximizada. Gracias por vuestra ayuda: | |
| Respuesta: | Jorge Morrás |
| Pues Finalmente he hallado una solucion. A mi no me sirve, ya que a los clientes hay que instalarles un software, pero aqui la dejo.
Se trata de crearte tu propio explorador en VB6.0 y añadirle el código API Public Const SWP_NOMOVE = 2 Public Const SWP_NOSIZE = 1 Public Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE Public Const HWND_TOPMOST = -1 Public Const HWND_NOTOPMOST = -2 Declare Function 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) As Long Public Function SetTopMostWindow(hwnd As Long, Topmost As Boolean) _ As Long If Topmost = True Then 'Make the window topmost SetTopMostWindow = SetWindowPos(hwnd, HWND_TOPMOST, 0, 0, 0, _ 0, FLAGS) Else SetTopMostWindow = SetWindowPos(hwnd, HWND_NOTOPMOST, 0, 0, _ 0, 0, FLAGS) SetTopMostWindow = False End If End Function Para llamar uno dos botones uno poara on TOP y otro con estilo NORMAL dim lR as long llamada on top ---> lR = SetTopMostWindow(Me.hwnd, True) llamada normal ---> lR = SetTopMostWindow(Me.hwnd, False) | |