Question

求VB窗体无边框拖动代码

求VB窗体无边框拖动代码，Form.borderStyle=0时可以拖动的代码！

Answer 1

Private Declare Function ReleaseCapture Lib "user32" () As Long
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

Private Const WM_SYSCOMMAND = &H112
Private Const SC_MOVE = &HF010&
Private Const WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = 2

Private Sub Command1_Click()
End
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ReleaseCapture
SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MOVE + HTCAPTION, 0
'SendMessage hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
'上述两种方尘拆法野燃都能实现派脊枣该功能。
End Sub

Answer 2

下面是一个类用来完成你所要求的：
class TestFrame extends JFrame
{
public TestFrame()
{
setTitle("");//设置无标题
setResizable(true);//设置用户可以改变窗口前者喊大小
setVisible(true);//窗体可见
}
}
至于所说的无边框，在没有给窗体设置大小时，系统默认就是无边框慧野的
希望嫌毕我的回答能使你满意，如果满意 请给我最佳答案，谢谢

Answer 3

Private Declare Function ReleaseCapture Lib "user32" () As Long
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
Private Const HTCAPTION = 2
Private Const WM_NCLBUTTONDOWN = &HA1

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
ReleaseCapture
SendMessage hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
End Sub

追问

Mouse_OnFormPosition = New Point(-e.X, -e.Y)缺少语句结束

追答

你的是vb6.0还是vb.Net？ 开始我以为你是用的vb.net所以我发的是vb.net代码。后来又发了个vb6的