18/03/2003, 07:08
|
| | | Fecha de Ingreso: agosto-2002
Mensajes: 16
Antigüedad: 21 años, 9 meses Puntos: 0 | |
| De simple nada!
Me parece que de simple no tiene nada tu pregunta...
Visual Basic no ofrece ninguna propiedad o función para lo que se llama "Always on top", siempre delante. Para eso necesitas usar las API:
Declaraciones:
Private 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
Const HWND_NOTOPMOST = -2
Const HWND_TOPMOST = -1
Const SWP_NOMOVE = &H2
Const SWP_NOSIZE = &H1
Para poner la ventana delante:
SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE
Para dejarla como estaba:
SetWindowPos Me.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE
Espero que te sirva!
Tortoll |