如何使用按钮拖动窗体？

就是说电机按钮然后就拖动！  
  松开鼠标后窗体就移动了！ 问题点数：26、回复次数：1Top

1 楼shawls（VB Fan)(QQ:9181729）回复于 2001-02-28 23:25:00 得分 26

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   Sub   Command1_MouseDown(Button   As   Integer,   Shift   As   Integer,   X   As   Single,   Y   As   Single)  
  Dim   Ret&  
  ReleaseCapture  
  Ret&   =   SendMessage(Me.hwnd,   &H112,   &HF012,   0)  
  End   Sub  
   
  Top

相关问题

• 窗体
• 拖动
• 按钮
• longprivate
• sendmessage
• byval
• single
• hwnd
• sub
• long

• 帖主：shawlsaa
• shawls

• Visual Basic类图书
• Visual Basic类源码下载