Hola, quiero hacerque un formulario siempre esté visible aún cuando pierda el foco.


En los trucosencontré un ejemplo pero me da error de desbordamiento.


Esto va en el form1:

Código:

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
 Unload Form2
End Sub


Private Sub Command1_Click()
 Dim ret As Integer
 If doshow = False Then
 ret = SetParent(Form2.hWnd, Form1.hWnd)
 Form2.Left = 0
 Form2.Top = 0
 Form2.Show
 doshow = True
 Else
 Form2.Hide
 doshow = False
 End If
End Sub

y esto va en el módulo:

Código:

Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

En SetParent me da el error de desboradamiento.


Gracias por las respuestas.
Saludos

Hola... no entiendo muy bien lo q deseas hacer, pero prueba de la siguientes manera.

Código:

' Esto tambien va en el Form1
Private Sub Command1_Click()
 'Form2.Show , Form1
 'Lo mas apropiado seria asi
 Form2.Show , Me
End Sub

Este codigo es parecido al de tu mensaje(solo q mas reducido y no usa API), muestrael form2, siempre encima del form1, incluso aunq pierda el foco, y si se minimiza o se cierra el form1, tambien el form2 lo hara.


O adecuandolo al otro codigo seria asi, pero ya no seria necesario el evento QueryUnload:

Código:

Private Sub Command1_Click()
 If doshow = False Then
  Form2.Left = 0
  Form2.Top = 0
 Form2.Show , Me
  doshow = True
 Else
 Form2.Hide
  doshow = False
 End If
End Sub

Bueno espero q te sirva...


Isaac...Edited by: Isaac

Gracias, eso era lo que preciso.


Saludos