Visual Basic - mover con el mouse un label

Life is soft - evento anual de software empresarial
 
Vista:

mover con el mouse un label

Publicado por sergio (13 intervenciones) el 10/11/2002 20:18:34
Hola, tengo el siguiente problema:

Option Explicit
Dim xpos As Integer
Dim ypos As Integer
Private Sub lblmove_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'posiciones de label movible


xpos = X

ypos = Y
End Sub

Private Sub lblmove_Mousemove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'si se presiona un boton se puede arrastrar el label

If Button > 0 Then
lblmove.Move lblmove.Left, lblmove.Top + Y - ypos

End If
End Sub
pero como puedo hacer para que cuando lleque a una altura de por ejemplo: lblmove.top=5000 solo se pueda subir el label y si llega a una altura de por ejemplo lblmove.top=3000 solo puede baja (hasta 5000)
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

RE:mover con el mouse un label

Publicado por Josetxu (75 intervenciones) el 10/11/2002 23:32:01
Puedes hacer este cambio:

If Button > 0 Then
If lblmove.top + Y - ypos > 5000 Then
lblmove.top = 5000
Else
If lblmove.top + Y - ypos < 3000 Then
lblmove.top = 3000
Else
lblmove.Move lblmove.Left, lblmove.Top + Y - ypos
End If
End If
End If

Saludos
Josetxu
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