VB.NET拖动无边框窗体API
2011-10-09 11:53
387 查看
Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _ ByVal hwnd As IntPtr, _ ByVal wMsg As Integer, _ ByVal wParam As Integer, _ ByVal lParam As Integer) _ As Boolean Declare Function ReleaseCapture Lib "user32" Alias "ReleaseCapture" () As Boolean Const WM_SYSCOMMAND = &H112 Const SC_MOVE = &HF010& Const HTCAPTION = 2 Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove ReleaseCapture() SendMessage(Me.Handle, WM_SYSCOMMAND, SC_MOVE + HTCAPTION, 0) End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub
相关文章推荐
- VB.NET拖动无边框窗体API
- VB.NET 拖动无边框的窗体
- VB.NET 拖动无边框的窗体
- VB.NET 拖动无边框的窗体- -
- vb.net拖动无窗体界面
- 拖动无标题的窗体(vb.net & c#)
- [VB.NET]限制鼠标拖动窗体函数
- [分享][VB.Net]可以随意拖动的窗体类
- c#拖动无边框窗体(调用API)
- vb.net实现无标题栏窗体可拖动
- VB.NET移动无边框窗体 两种方法
- vb 无边框窗体拖动
- vb.net实现无标题栏窗体可拖动
- VB.NET中多窗体同步的解决方案
- delphi无边框可拖动窗体
- vb.net 教程 3-3 窗体编程 输入对话框 1
- 如何拖动无边框窗体
- VB.NET是如何关闭窗体 .
- VB.net中的窗体继承
- 从VB 6到VB.NET——窗体特殊应用