如何在无边框按钮上实现移动窗口的效果

解决方案 »

  1.   

    Option   Explicit   
      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   Me.hwnd,   WM_NCLBUTTONDOWN,   HTCAPTION,   0&   
      End   Sub