Visual Basic - Tener un formulario siempre visible

Life is soft - evento anual de software empresarial
 
Vista:

Tener un formulario siempre visible

Publicado por José (13 intervenciones) el 24/12/2002 17:07:48
Saludos, quiera saber si me podrian ayudar con esto... Tengo un proyecto en el cual manejo varias ventanas, lo que quiero hacer es que cuando yo eleija una opción y me despliege un formulario me lo mantenga siempre visible aunque yo diera click sobre el formulario de abajo y que cuando me mandara un mensaje de error o advertencia este no desapareciera. Espero y puedan ayudarme, gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Tener un formulario siempre visible

Publicado por josé (129 intervenciones) el 24/12/2002 18:52:46
Esto lo pones en un Modulo:

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)
Public Const HWND_TOPMOST& = -1
Public Const SWP_NOMOVE& = &H2
Public Const SWP_NOSIZE& = &H1
Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE

Luego en el mismo Modulo:

Public Sub ShowHoldForm(Ventana As Form)
Dim Success
'**** Para las ventanitas que quedan por encima de las demás, ****
Success = SetWindowPos(Ventana.hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
End Sub

Y para el Form:

Private Sub Form_Load()
ShowHoldForm Form1
End Sub

Felices Fiestas.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar