VB6 移动无边框无标题栏窗口
（创建时间：2012年02月28日 23:02:00）
Jangogo ： 

VB
  1. '**************************************************   
  2. Const HTCAPTION = 2   
  3. Const WM_NCLBUTTONDOWN = &HA1   
  4.   
  5. 'Private Const GWL_STYLE = (-16)   
  6.   
  7. Private Declare Function ReleaseCapture Lib "user32" () As Long  
  8. Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long  
  9.   
  10. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)   
  11.    If Button = 1 Then  
  12.            Dim ReturnVal As Long  
  13.            x = ReleaseCapture()   
  14.            ReturnVal = SendMessage(hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0)   
  15.     End If  
  16. End Sub  
2012年02月28日 23:02
回复(0)分类(1)转发(0)全文打开
文档中心