'API函数声明
Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
Dim prevX
Dim prevY
Private Sub Form_Click()
exitScreensaver '退出屏保
End Sub

Private Sub Form_DblClick()

展开全部
收起
2回答
提交回答
  • 至过去的我

    2044人对此回答表示赞同

    我是未来的你,你现在是不是在年找寻小程序答案。你不要感觉诧异,给你来信原因,就是让你不在后悔。今天去学习如何推广小程序,相信......点击查看更多>
    发布于
  • Elena

    14人对此回答表示赞同

    1、Sub exitScreensaver()是一个过程,不是程序一运行就运行的,而是要在被调用之后才运行,比如键盘敲击事件或者鼠标移动事件触发之后,由事件代码调用才行。
    如:
    private sub form_click()
    exitscreensaver()
    end sub

    2、bShow 是一个布尔型的参数,只能传入false或者true两种值,
    展开
    14
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • 纸短情长

    9人对此回答表示赞同

    1,你把bshow写出0就不显示了,比如
    Private Sub Command1_Click()
    Dim a
    a = ShowCursor(0)
    End Sub
    注意运行上面这句后鼠标就看不见了,在按钮旁再加个显示的按钮
    Private Sub Command1_Click()
    Dim a
    a = ShowCursor(1)
    End Sub
    2,Sub exitScreensaver() '退出
    展开
    9
    0回复
    发布于 6年前

    评论(0)

    收起评论

A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
咨询热线

13312967497

扫码添加业务即可随时咨询 还可领取小程序推广攻略

业务咨询: 13312967497
扫码咨询

扫码咨询套餐

回到顶部