getprofileint.bas

个人VB学习源码精选,自己学习时的一些编程小程序,希望对大家有帮助

Attribute VB_Name = "GetProfileIntModule"
Option Explicit

Declare Function GetProfileInt Lib "kernel32" Alias "GetProfileIntA" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal nDefault As Long) As Long

Sub Main()
    Dim speed As Long
    
    speed = GetProfileInt("windows", "DoubleClickSpeed", 0)
    
    MsgBox "[windows]" & vbCrLf & "DoubleClickSpeed = " & speed, , "GetProfileInt"
End Sub