VB求助～INI调用的和DIM的效果不一样！有源码！

来源：百度知道 编辑：UC知道 时间：2024/09/22 18:24:38
例如 :

dim A as string

然后从INI里读取一个字符串存到 A

Dim daima as string

daima = inet1.openurl("http://www.7song.cn/special/2259.htm")

。。。。。。。。。。。。。。。。。。。

对不起有点不好形容了。。。

请下载源码看吧～

我的QQ：22441980

源码： http://www.byle.cn/help.rar

有专门的INI读写函数

Dim Ret As Long

Dim Start As Long

Public FileName As String

Const BufSize = 10240

Dim buf As String * BufSize

Private Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault As Long, ByVal lpFileName As String) As Long

Private Declare Function GetPrivateProfileSection Lib "kernel32" Alias "GetPrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long

Private 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

Private