IT4X เทคนิคคอมพิวเตอร์ โน๊ตบุค ข่าว IT
ข่าวสาร / ความรู้ => คนเขียนโปรแกรม => ข้อความที่เริ่มโดย: ICheer_No0M ที่ เมษายน 11, 2010, 11:01:22
-
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 พี่ต้องลบ ...
Private Sub Form_Load()
End Sub
ออกครับ แล้วค่อยยัดโค้ดครับผม ...
-
อ่อ ผมสร้างฟอร์มใหม่ครับ แล้ว ลบออกหมดเลย แล้ววาง ลองรันดู ก็เป็นฟอร์มธรรมดาครับ
-
อ่อ ผมสร้างฟอร์มใหม่ครับ แล้ว ลบออกหมดเลย แล้ววาง ลองรันดู ก็เป็นฟอร์มธรรมดาครับ
:) ลองคลิกที่ Form แล้วลากเมาส์ดูครับ ...
-
อ่อ ได้แล้วครับ ^^ งงตั้งนาน ฮ่าๆ