computer 版 (精华区)

发信人: windoe (为中国电信做贡献), 信区: program
标  题: VB:如何读/写Windows 95的INI文件内容？
发信站: 听涛站 (Fri Mar 10 19:09:17 2000), 转信

Windows API函数GetPrivateProfileString和WritePrivateProfileString专门用
于读/写INI文件的内容。
具体步骤如下：
1) 在VB中新建一个标准EXE工程；
2) 画出两个按钮Command1，Command2；
3) 在窗体Form1中定义Windows API的声明；
Declare Function WritePrivateProfileString Lib "kernel32" Alias
"WritePrivateProfileStringA" (ByVal lpApplicationname As String, ByVal
lpKeyName As Any, ByVal lsString As Any, ByVal lplFilename As String)
As Long
Declare Function GetPrivateProfileString Lib "kernel32" Alias
"GetPrivateProfileStringA" (ByVal lpApplicationname As String, ByVal
lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString
As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
4) 在Command1的Click事件中编写以下代码，把内容存入INI文件：
Private Sub Command1_Click()
Dim lpAppName As String, lpFileName As String
Dim lpKeyName As String, lpString As String
Dim U As Long
U = WritePrivateProfileString("我的软件", "文件", "1.BMP",
"Win.ini")
If U = 0 Then Beep
End Sub
则程序在Win.ini中写入一组数据，打开Win.ini可以看到以下内容：
[我的软件]
文件=1.BMP
5) 在Command2的Click事件中编写以下代码，从INI文件中读取数据：
Private Sub Command2_Click()
Dim X As Long
Dim Temp As String * 50
X = GetPrivateProfileString("我的软件", "文件", "缺省", Temp,
Len(Temp), "Win.ini")
If X = 0 Then
Beep
Beep
Else
Debug.Print Trim(Temp)
End If
End Sub


--By Kammi's SuperPost General Version
--

夜中不能寐，起坐弹鸣琴。
    薄帷鉴明月，清风吹我襟。
孤鸿号外野，翔鸟鸣北林。
    徘徊将何见，忧思独伤心。