ข่าว IT ล่าสุด
ถูกใจอย่าลืม Like Fanpage
Form Moving [ VB6 ]
แสดงแล้ว 6797 ครั้ง /
เมษายน 11, 2010, 11:01:22

ICheer_No0M

ออฟไลน์ ( @ITD-TEAM )
กระทู้ : 36
คะแนนขอบคุณ : 0
โค๊ด: [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


Moshi

ออฟไลน์
กระทู้ : 16,996
คะแนนขอบคุณ : 45
it4x สังคมแห่งการเรียนรู้
เมษายน 11, 2010, 11:05:48
ลองละนะ ไม่เห็นเกิดอะไรชึ้นเลย??

ICheer_No0M

ออฟไลน์ ( @ITD-TEAM )
กระทู้ : 36
คะแนนขอบคุณ : 0
เมษายน 11, 2010, 11:08:11
ลองละนะ ไม่เห็นเกิดอะไรชึ้นเลย??

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

โค๊ด: [Select]
Private Sub Form_Load()

End Sub

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

Moshi

ออฟไลน์
กระทู้ : 16,996
คะแนนขอบคุณ : 45
it4x สังคมแห่งการเรียนรู้
เมษายน 11, 2010, 11:09:57
อ่อ ผมสร้างฟอร์มใหม่ครับ แล้ว ลบออกหมดเลย แล้ววาง ลองรันดู ก็เป็นฟอร์มธรรมดาครับ

ICheer_No0M

ออฟไลน์ ( @ITD-TEAM )
กระทู้ : 36
คะแนนขอบคุณ : 0
เมษายน 11, 2010, 11:11:01
อ่อ ผมสร้างฟอร์มใหม่ครับ แล้ว ลบออกหมดเลย แล้ววาง ลองรันดู ก็เป็นฟอร์มธรรมดาครับ

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

Moshi

ออฟไลน์
กระทู้ : 16,996
คะแนนขอบคุณ : 45
it4x สังคมแห่งการเรียนรู้
เมษายน 11, 2010, 11:16:52
อ่อ ได้แล้วครับ ^^ งงตั้งนาน ฮ่าๆ

 

ด้วยฟังค์ชั่น ตอบด่วน คุณสามารถใช้โค๊ดและ เครื่องหมายแสดงอารมณ์ได้ เหมือนการตั้งกระทู้ธรรมดา แต่สามารถทำได้สะดวกกว่า

ระวัง: หัวข้อนี้ไม่มีการอัพเดทมานานถึง 120 วัน

แจ้งเตือน: โพสของคุณจะไม่แสดงจนกว่าผู้ดูแลจะอนุมัติ.
ชื่อ: อีเมล์: