module1.bas

一个VB做的语音系统控件

Attribute VB_Name = "Module1"
Public Declare Function GetPrivateProfileString Lib "kernel32" _
Alias "GetPrivateProfileStringA" ( _
    ByVal lpApplicationName As String, _
    ByVal lpKeyName As Any, _
    ByVal lpDefault As String, _
    ByVal lpReturnedString As String, _
    ByVal nSize As Long, _
    ByVal lpFileName As String) As Long
    
Public Function ReadString(Section As String, key As String, Size As Long, file As String) As String
    Dim ReturnStr As String
    Dim ReturnLng As Long
    ReadString = vbNullString
    ReturnStr = Space(Size)
    ReturnLng = GetPrivateProfileString(Section, key, vbNullString, ReturnStr, Size, file)
    ReadString = Left(ReturnStr, ReturnLng)
End Function