鼠标 驱动 源代码 // Compuware Corporation // NuMega Lab // 9 Townsend West // Nashua, NH 03060 USA // // Copyright (c) 1998 Compuware Corporation. All Rights Reserved. // Unpublished - rights reserved under the Copyright laws of the // United States.
隐藏与显示鼠标程序(vb6.0源代码编写)Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long Private Sub Command1_Click() '隐藏鼠标 ShowCursor True '计数加一 Command1.Enabled = False Command2.Enabled = True End Sub Private Sub Command2_Click() '显示鼠标