Visual Basic - problema con form

Life is soft - evento anual de software empresarial
 
Vista:

problema con form

Publicado por scorpionhack (120 intervenciones) el 25/07/2005 18:26:02
Yo tengo dos forms (form1 y form2) y quiero hacer que el form2 siempre este debajo del form1 aunque se mueva el form1, algo asi como lo que pasa en el winamp. Se lo agradeceria muchio a quien me ayudara.
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
sin imagen de perfil
Val: 14
Ha aumentado 1 puesto en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

RE:problema con form

Publicado por SuNcO (599 intervenciones) el 26/07/2005 04:48:04
Esto me funciona bien

Private Declare Function GetWindowRect Lib "USER32" (ByVal hWnd As Long, lpRect As RECT) As Long

Dim Rec As RECT

Private Type RECT
x As Long
y As Long
Ancho As Long
Alto As Long
End Type

Private Sub Command1_Click()
Load Form2
Form2.Show
End Sub

Private Sub Form_Load()
Load Form2
Form2.Show
End Sub

Private Sub Timer1_Timer()
GetWindowRect Me.hWnd, Rec

If Rec.x * 15 <> Form2.Left Then
Form2.Left = Rec.x * 15
End If

If (Rec.y * 15) + Form2.Height <> Form2.Top Then
Form2.Top = (Rec.y * 15) + Form2.Height
End If
End Sub
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