怎么打开计算机界面都是代码,想用vb打开界面的我的电脑那么代码该怎么写

卢诗翰

于 2021-07-31 02:54:37 发布

阅读量269

点赞数 1

文章标签：怎么打开计算机界面都是代码

VB 通过 SystemParametersInfo SPI_SETMOUSE 调节鼠标灵敏度

Global Const SPI_GETMOUSE = 3

Global Const SPI_SETMOUSE = 4

Global Const SPIF_SENDWININICHANGE = &H2

Declare Function SystemParametersInfo& Lib user32 Alias SystemParametersInfoA (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long)

Declare Function SystemParametersInfoByVal& Lib user32 Alias SystemParametersInfoA (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long)

Private Sub Command1_Click()

Dim fResult As Long

Dim aMouseInfo(0 To 2) As Long

fResult = SystemParametersInfo&(SPI_GETMOUSE, 0, aMouseInfo(0), 0)

If fResult 0 Then

aMouseInfo(2) = aMouseInfo(2) * 2

SystemParametersInfo& SPI_SETMOUSE, 0, aMouseInfo(0), SPIF_SENDWININICHANGE

End If

End Sub

取消