vb 无边框窗体拖动

发布时间：2020-12-17 07:43:23 所属栏目：百科来源：网络整理

导读：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 Longpre name="code" class="vb"pre name="code" class="v

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 Long

Public 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="" />

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!