rem vb 无边框窗体拖动
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _ ByVal hWnd As Long,_ ByVal wMsg As Long,_ ByVal wParam As Long,_ ByVal lParam As Any) As Long<pre name="code" class="vb"><pre name="code" class="vb">Public Declare Function ReleaseCapture Lib "user32" () As LongPublic Const WM_SYSCOMMAND = &H112
Public Const SC_MOVE = &HF010&
Public Const HTCAPTION = 2
rem 在窗体的最上方,放一个Image控件,设置在最底层,然后改名<span style="font-family: Arial,Helvetica,sans-serif;">ImgDrag,加上以下代码即可</span>
Private Sub ImgDrag_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single) ReleaseCapture Call SendMessage(Me.hWnd,WM_SYSCOMMAND,SC_MOVE + HTCAPTION,ByVal 0&) End Sub
<img src="http://img.blog.csdn.net/20151015000111960?watermark/2/text/aHR0cDovL2Jsb2cuY3Nkbi5uZXQv/font/5a6L5L2T/fontsize/400/fill/I0JBQkFCMA==/dissolve/70/gravity/Center" alt="" />
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。