Form Moving [ VB6 ]

โค๊ด: [Select]

Private XX As Integer
Private YY As Integer
Dim MoveMe As Boolean

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
MoveMe = True
XX = X
YY = Y
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If MoveMe = True Then
Me.Left = Me.Left + (X - XX)
Me.Top = Me.Top + (Y - YY)
End If
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Left = Me.Left + (X - XX)
Me.Top = Me.Top + (Y - YY)
MoveMe = False
End Sub
ยัดลง Form ครับ ...

Credit : IT-DARK.ORG

ลองละนะ ไม่เห็นเกิดอะไรชึ้นเลย??

ลองละนะ ไม่เห็นเกิดอะไรชึ้นเลย??

ดับเบิ้ลคลิกที่ Form พี่ต้องลบ ...

โค๊ด: [Select]

Private Sub Form_Load()

End Sub
ออกครับ แล้วค่อยยัดโค้ดครับผม ...

อ่อ ผมสร้างฟอร์มใหม่ครับ แล้ว ลบออกหมดเลย แล้ววาง ลองรันดู ก็เป็นฟอร์มธรรมดาครับ

อ่อ ผมสร้างฟอร์มใหม่ครับ แล้ว ลบออกหมดเลย แล้ววาง ลองรันดู ก็เป็นฟอร์มธรรมดาครับ

  ลองคลิกที่ Form แล้วลากเมาส์ดูครับ ...

อ่อ ได้แล้วครับ ^^ งงตั้งนาน ฮ่าๆ