TA还没有准备介绍自己
加载中
个人主页
关注
TA的源代码 (1)
VB编写ListView报表打印模块及测试程序
暂无评分
'**************************************
'INI读写模块
'FieldMAX2006-11-16
'
'值=GetINI(标题,变量,[默认],[文件名])
'WriteINI(标题,变量,值,[文件名])
'**************************************
'INI文件API函数
PublicDeclareFunctionGetPrivateProfileStringLib"kernel32"Alias"GetPrivateProfileStringA"_
(ByValLpApplicationNameAsString,ByValLpKeyNameAsAny,ByVallpDefaultAsString,_
ByVallpReturnedStringAsString,ByValnSizeAsLong,ByVallpFileNameAsString)AsLong
PublicDeclareFunctionWritePrivateProfileStringLib"kernel32"Alias"WritePrivateProfileStringA"_
(ByValLpApplicationNameAsString,ByValLpKeyNameAsAny,ByValLpStringAsAny,ByVallpFileNameAsString)AsLong
'----------------------------------------------
dial 0 0
1
没有更多了~