الأحد، 30 ديسمبر 2012

Drag Drop in vb6 

  • 
Dim tmpX as Integer
    

    • 

  • 
Dim tmpY as Integer
    

    • 

  • 
Dim Down as Byte
    

    • 

  • 
Private Sub Text1_MouseDown(X as Integer, Y as Integer)
    

    • 

  • 
tmpX = X
    

    • 

  • 
tmpY = Y
    

    • 

  • 
Down = 1
    

    • 

  • 
End Sub
    

    • 

  • 
Private Sub Text1_MouseMove(X as Integer, Y as Integer)
    

    • 

  • 
If Down = 1 Then
    

    • 

  • 
Text1.Left = Text1.Left + (X - tmpX)
    

    • 

  • 
Text1.Top = Text1.Top + (Y - tmpY)
    

    • 

  • 
EndIf
    

    • 

  • 
End Sub
    

    • 

  • 
Private Sub Text1_MouseUp(X as Integer, Y as Integer)
    

    • 

  • 
Down = 0
    

    • 

  • 
End Sub
    

    •
    مرسلة بواسطة في ليست هناك تعليقات:
    التسميات:
    الاشتراك في: الرسائل (Atom)