vb中如何读取ini文件.txt

以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题.对一些VB初学者很用.

VB没 有 直 接 读 写 INI文 件 的 语 句 ， 必 须 借 助 Windows API来 操 作 INI文 件 。 相 应 的 Windows API函 数 有 两 类 ： 一 类 是 GetProfileInt、 GetProfileString、 WriteProfileInt和 WriteProfileString， 它 们 是 读 写 Win.ini中 的 设 置 ； 另 一 类 是 GetPrivateProfileInt、 GetPrivateProfileString、 WritePrivateProfileInt和 WritePrivateProfileString， 它 们 可 以 读 写 如 何 一 个 .ini文 件 。 这 些 函 数 的 声 明 都 在 Win32api.txt中 找 到 。 先 在 VB中 建 立 一 个 模 块 ， 输 入 以 下 代 码 ： 
    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 
     
    Declare Function WritePrivateProfileString Lib "kernel32" _ 
    Alias "WritePrivateProfileStringA" (ByVal lpApplicationName _ 
    As String, ByVal lpKeyName As Any, ByVal lpString As Any, _ 
    ByVal lpFileName As String) As Long 
    下 面 的 例 子 将 从 njcom.ini中 读 取 NJStar Communicator的 目 录 。 
     Dim s As String * 256 
     
     GetPrivateProfileString "NJCOM Options", _ 
     "Home Directory", "", s, 256, "njcom.ini" 
     Label1.Caption = s 
    下 面 的 例 子 将 利 用 WritePrivateProfileString删 除 掉 njcom.ini中 Home Directory设 置 。 这 里 我 们 的 第 三 个 参 数 不 是 通 常 的 字 符 串 ， 而 是 0&， 这 里 你 可 以 看 到 我 们 在 声 明 参 数 类 型 时 使 用 As Any的 好 处 。 
    WritePrivateProfileString "NJCOM Options", _ 
     "Home Directory", 0&, "njcom.ini" 
<END>