国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

目的： 用鼠標(biāo)移動borderstyle=0的窗體或窗體內(nèi)部的控件

 

       實現(xiàn)方法：利用MouseMove事件和SendMessage方法可以實現(xiàn)

 

       代碼：

       Private Const WM_SYSCOMMAND = &H112
       Private Const SC_MOVE = &HF010&
       Private Const HTCAPTION = 2

       '----------------控件---------------
       Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
          If Button = 1 Then
           '如果按下鼠標(biāo)左鍵
               Dim ReturnVal As Long
               X1 = ReleaseCapture()
               ReturnVal1 = SendMessage(Command1.hWnd, WM_SYSCOMMAND, _
                                SC_MOVE + HTCAPTION, 0)
            End If

       End Sub
       '----------------窗體---------------
       Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
                            X As Single, Y As Single)
           If Button = 1 Then
           '如果按下鼠標(biāo)左鍵
               Dim ReturnVal As Long
               X = ReleaseCapture()
               ReturnVal = SendMessage(Form1.hWnd, WM_SYSCOMMAND, _
                                SC_MOVE + HTCAPTION, 0)
            End If
       End Sub

 

      同理 我們也可以實現(xiàn)通過移動窗體上的控件來移動窗體 方法是：

       '----------------通過控件移動窗體---------------
       Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
          If Button = 1 Then
           '如果按下鼠標(biāo)左鍵
               Dim ReturnVal As Long
               X1 = ReleaseCapture()
               ReturnVal1 = SendMessage(Me.hWnd, WM_SYSCOMMAND, _
                                SC_MOVE + HTCAPTION, 0)
            End If

       End Sub

本站僅提供存儲服務(wù)，所有內(nèi)容均由用戶發(fā)布，如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請點擊舉報。