vb程序保存变量到ini

私人声明函数GetPrivateProfileString解放“KERNEL32”别名？“GetPrivateProfileStringA”（BYVAL lpApplicationName作为字符串，BYVAL lpKeyName为已任，BYVAL lpDefault作为字符串，BYVAL lpReturnedString作为字符串，BYVAL n大小一样长，BYVAL lpFileName的对象作为字符串），只要

>私人声明函数WritePrivateProfileString解放“KERNEL32”别名？“WritePrivateProfileStringA”（BYVAL lpApplicationName作为字符串，BYVAL lpKeyName为已任，BYVAL lpString为已任，BYVAL lpFileName的对象作为字符串），只要

私人小SetIniS（ BYVAL SectionName作为字符串，ByVal关键字作为字符串，BYVAL ValStr作为字符串）

昏暗RES％

RES％= WritePrivateProfileString（SectionName，关键字，ValStr，“C：\ 1.ini”）

末次

专用功能GetIniS（BYVAL SectionName作为字符串，ByVal关键字作为字符串，BYVAL DefString作为字符串）作为字符串

昏暗llLen只要

昏暗ResultString作为字符串

ResultString =空间（100）

llLen = GetPrivateProfileString（SectionName，关键字，DefString，ResultString，100，“C：\ 1.ini”）

GetIniS = MID（ResultString，1，llLen）

结束功能

SetIniS上面的代码编写，GetIniS被读取。 ini文件路径为“C：\ 1.ini”），你可以

用一个字段来保存行数咯

Dim

strIniFileName

As

String

dim

i

as

long

strIniFileName

=

App.Path

&

"\mirsoft.ini"

Call

WriteIniFile(strIniFileName,

"自定义文本",

"行数",

List1.listcount

for

i=0

to

List1.listcount-1

Call

WriteIniFile(strIniFileName,

"自定义文本",

"文本"

&

i,

List1.List(i))

next

读取

Dim

strIniFileName

As

String

strIniFileName

=

App.Path

&

"\mirsoft.ini"

dim

X

as

long

x =

Val(ReadIniFile(strIniFileName,

"自定义文本",

"行数"))

List1.clear

dim

i

as

long

for

i=0

to

x-1

List1.AddItemReadIniFile(strIniFileName,

"自定义文本",

"文本"

&

i)

next

你看过了难道还不能得出自己所需要的答案么,我以前也是看过了才知道的啊....

我这里有个ini文件操作的cls模块,如果有需要的话请留下你的邮箱

在text_change事件中加入保存代码就可以随时保存你输入的信息

另外"最好加上只有选择了才可以保存不选择不保存！"是什么意思?

---