程序运行过程中有些设置可以重设,如何保存设置,使下次运行程序的时候是上次的设置?
第1个回答 2019-08-12
1,读ini文件
模块代码
Option
Explicit
'访问INI的函数
'用法:
'
myReadINI
读INI
'
myWriteINI
写INI
'
用法与读写注册表很类似
'
杨光宏
(VB技巧手册)
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
Declare
Function
WritePrivateProfileString
Lib
"Kernel32"
Alias
"WritePrivateProfileStringA"
(ByVal
AppName
As
String,
ByVal
KeyName
As
String,
ByVal
keydefault
As
String,
ByVal
Filename
As
String)
As
Long
Public
Function
myReadINI(inifile,
inisection,
inikey,
iniDefault)
'Fail
fracefully
if
no
file
/
wrong
file
is
specified.
'If
no
section
(appname),
default
is
first
appname
'if
no
key,
default
is
first
key
Dim
lpApplicationName
As
String
Dim
lpKeyName
As
String
Dim
lpDefault
As
String
Dim
lpReturnedString
As
String
Dim
nSize
As
Long
Dim
lpFileName
As
String
Dim
retval
As
Long
Dim
Filename
As
String
lpDefault
=
Space$(254)
lpDefault
=
iniDefault
lpReturnedString
=
Space$(254)
nSize
=
254
lpFileName
=
inifile
lpApplicationName
=
inisection
lpKeyName
=
inikey
Filename
=
lpFileName
retval
=
GetPrivateProfileString(lpApplicationName,
lpKeyName,
lpDefault,
lpReturnedString,
nSize,
lpFileName)
myReadINI
=
lpReturnedString
End
Function
Public
Function
myWriteINI(inifile
As
String,
inisection
As
String,
inikey
As
String,
Info
As
String)
As
String
Dim
retval
As
Long
retval
=
WritePrivateProfileString(inisection,
inikey,
Info,
inifile)
myWriteINI
=
LTrim$(Str$(retval))
End
Function
利用两个function完成
模块代码
Option
Explicit
'访问INI的函数
'用法:
'
myReadINI
读INI
'
myWriteINI
写INI
'
用法与读写注册表很类似
'
杨光宏
(VB技巧手册)
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
Declare
Function
WritePrivateProfileString
Lib
"Kernel32"
Alias
"WritePrivateProfileStringA"
(ByVal
AppName
As
String,
ByVal
KeyName
As
String,
ByVal
keydefault
As
String,
ByVal
Filename
As
String)
As
Long
Public
Function
myReadINI(inifile,
inisection,
inikey,
iniDefault)
'Fail
fracefully
if
no
file
/
wrong
file
is
specified.
'If
no
section
(appname),
default
is
first
appname
'if
no
key,
default
is
first
key
Dim
lpApplicationName
As
String
Dim
lpKeyName
As
String
Dim
lpDefault
As
String
Dim
lpReturnedString
As
String
Dim
nSize
As
Long
Dim
lpFileName
As
String
Dim
retval
As
Long
Dim
Filename
As
String
lpDefault
=
Space$(254)
lpDefault
=
iniDefault
lpReturnedString
=
Space$(254)
nSize
=
254
lpFileName
=
inifile
lpApplicationName
=
inisection
lpKeyName
=
inikey
Filename
=
lpFileName
retval
=
GetPrivateProfileString(lpApplicationName,
lpKeyName,
lpDefault,
lpReturnedString,
nSize,
lpFileName)
myReadINI
=
lpReturnedString
End
Function
Public
Function
myWriteINI(inifile
As
String,
inisection
As
String,
inikey
As
String,
Info
As
String)
As
String
Dim
retval
As
Long
retval
=
WritePrivateProfileString(inisection,
inikey,
Info,
inifile)
myWriteINI
=
LTrim$(Str$(retval))
End
Function
利用两个function完成