VB6.0 为无标题的窗体添加鼠标效果.rar

所需积分/C币:5 2019-07-10 17:48:49 3KB RAR

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 '鼠标位于窗体左上方

...展开详情
img

关注 私信 TA的资源

上传资源赚积分,得勋章
    最新推荐