编译错误：在EndSub,EndFunction或End属性后面只能出现注释

更新时间：2019-11-02 09:53:54 149次访问

Dim ctX As Single, ctY As Single

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

ctX = X: ctY = Y

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 1 Then Me.Move Me.Left - ctX + X, Me.Top - ctY + Y

End Sub

'拖动Form窗口

Private Declare Function SetWindowPos Lib "user32" (ByVal HWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Private Sub Form_Load()

SetWindowPos Me.HWnd, -1, 0, 0, 0, 0, 2 Or 1

End Sub

'窗口置顶

你的函数定义必须放在所有程序的最前面