Anónimo
Mover un control shape
Me gustaria mover un control shape en VB6 a traves de un formulario con el metodo de arrastrar y soltar.
Muchas gracias.
Muchas gracias.
Respuesta de jarpsoft
1
El codigo es el siguiente:
Dim flag As Byte
Private Sub Form_Activate()
flag = 0
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If (X > Shape1.Left) And (X < Shape1.Left + Shape1.Width) Then
Screen.MousePointer = vbCrosshair
flag = 1
End If
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Caption = X & " , " & Y
If flag = 1 Then
Shape1.Move X, Y
End If
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
flag = 0
Screen.MousePointer = vbDefault
End Sub
Dim flag As Byte
Private Sub Form_Activate()
flag = 0
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If (X > Shape1.Left) And (X < Shape1.Left + Shape1.Width) Then
Screen.MousePointer = vbCrosshair
flag = 1
End If
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Caption = X & " , " & Y
If flag = 1 Then
Shape1.Move X, Y
End If
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
flag = 0
Screen.MousePointer = vbDefault
End Sub