Di chuyển control trong khi Runtime

[Giang Hồ]

Thủ thuật: Di chuyển control trong khi Runtime
Tác giả: Trần Đại Nghĩa
Mô tả: Di chuyển Picture trong khi Runtime

---

Mã: Chọn hết

1. Private Declare Function ReleaseCapture Lib "user32" () As Long
2. Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
3. Const WM_NCLBUTTONDOWN = &HA1
4. Const HTCAPTION = 2
5.  
6. Private Sub Form_Load()
7. Picture1.AutoRedraw = True
8. Picture1.Print "Click here to move me!"
9. Me.AutoRedraw = True
10. Me.Print "Click here to move me!"
11. End Sub
12.  
13. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
14.     ReleaseCapture
15.     SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0
16. End Sub
17.  
18. Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
19.     ReleaseCapture
20.     SendMessage Picture1.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0
21. End Sub

[ngaydautiendihoc]

Hay thế nhỉ, ai có thể cho biết hết các chức năng của cái hàm SendMessage, đặc biệt là các tham số?

[anhtuyenbk]

Hay thế nhỉ, ai có thể cho biết hết các chức năng của cái hàm SendMessage, đặc biệt là các tham số?

MSDN.

[ngaydautiendihoc]

Biết từ lâu rồi, thậm chí hỏi cả nhà sản xuất nhưng hình như họ không hiểu mình hỏi cái gì nên mình cũng chẳng hiểu họ trả lời cái gì nữa.
Bất đồng ngôn ngữ khổ thế đấy.

[anhtuyenbk]

Nói chung liệt kê hết thì rất khó vì số lượng giá trị truyền cho các tham số thực sự là quá lớn.

[VBNewbie]

Độc đáo quá ta. cái này thêm sự kiện lưu lại tọa độ rồi lúc bật lại vẫn y như cũ thì hay tuyệt. Dùng để cho người dùng tự sắp xếp vị trí control

[lamemmv]

Xin hỏi anh GiangHo đoạn code đó dùng để làm gì, sao mình lấy đoạn code đó gắng vào VB 2005 và có chỉnh một số cái cho thích hợp mà không thấy chạy gì hết!

Xin bạn vui lòng chỉ rõ cho mình biết với! Thanks

[ngaydautiendihoc]

Với VB 2005 bạn thử cái này xem, tôi thấy nó hoạt dộng tốt với button và textbox nhưng với label và checkbox thì lại không được
[vb]

1.  
2. Public Class Form1
3.     Public Const WM_NCLBUTTONDOWN = &HA1
4.     Public Const HTCAPTION = 2
5.     Private Sub MoveControl(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseDown, Button1.MouseDown, CheckBox1.MouseDown, TextBox1.MouseDown
6.         If e.Button = Windows.Forms.MouseButtons.Left Then
7.             sender.Capture = False
8.             Dim msg As Message = Message.Create(sender.Handle, WM_NCLBUTTONDOWN, New IntPtr(HTCAPTION), IntPtr.Zero)
9.             Me.DefWndProc(msg)
10.         End If
11.     End Sub
12. End Class
13.  

[/vb]