VB编写ListView报表打印模块及测试程序
2016-08-23
0 0 0
暂无评分
其他
如何获取积分?
'**************************************
'INI读写模块
'FieldMAX 2006-11-16
'
'值 = GetINI(标题,变量,[默认],[文件名])
'WriteINI(标题,变量,值,[文件名])
'**************************************
'INI文件API函数
Public 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
Public 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
'----------------------------------------------
'INI读写模块
'FieldMAX 2006-11-16
'
'值 = GetINI(标题,变量,[默认],[文件名])
'WriteINI(标题,变量,值,[文件名])
'**************************************
'INI文件API函数
Public 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
Public 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
'----------------------------------------------
vb
测试
报表
打印
程序
listview
编写
模块
相关源码推荐
VB写的 FTP上传下载
0
0
暂无评分
测试测试测试
0
0
暂无评分
旅游小程序
0
0
暂无评分
微信小程序
0
0
暂无评分
TensorFlow测试CPU和GPU运行时间
0
0
暂无评分
暂无评论