VB6.0 为无标题的窗体添加鼠标效果，Rect返回当前窗口位置，Point返回当前鼠标位置，本代码主要是使用case语句来实现，可练习一下case语句的用法哦，分享代码： Dim Point As POINTAPI Call GetWindowRect(Me.hwnd, Rect) 'Rect返回当前窗口位置 Call GetCursorPos(Point) 'Point返回当前鼠标位置 Select Case True Case Point.X < Rect.Left 5 And Point.Y < Rect.Top 5 '鼠标位于窗体左上方
