VB.NET拖动无边框窗体API
2011-10-09 11:53
295 查看
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 拖动无边框的窗体- -
- c#拖动无边框窗体(调用API)
- vb.net实现无标题栏窗体可拖动
- 拖动无标题的窗体(vb.net & c#)
- vb 无边框窗体拖动
- VB.NET移动无边框窗体 两种方法
- [VB.NET]限制鼠标拖动窗体函数
- [分享][VB.Net]可以随意拖动的窗体类
- vb.net拖动无窗体界面
- vb.net实现无标题栏窗体可拖动
- VB.NET中多窗体同步的解决方案
- 如何拖动无边框窗体
- vb.net 教程 3-4 窗体编程 ImageList
- C# 用鼠标拖动无边框窗体
- VB.net使用PrintForm打印窗体
- Vb.net/VB 声明API函数实现父窗体功能
- vb.net 教程 3-4 窗体编程 公共控件9 ListView 5