moduleapi.bas

图书管理系统。本图书管理系统具有查询

Attribute VB_Name = "ModuleAPI"

'********************API函数模块*****************
'函数用法请和参数设置查阅有关资料

Option Explicit
'打开应用程序(程序中用于电子邮件)
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal HWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Public Const SW_SHOW = 5
'读写INI文件
Public 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)
Public Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault 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 String, ByVal lpFileName As String)

'用于读写INI文件的自定义函数
'读取字符串(有一个疑问,我在调用这个函数的时候返回值字符长度固定为255,
'如果把返回值赋给一个string变量,用Trim()处理后长度仍然为255,不知道为什么
'但是如果直接把函数返回值赋给一个控件的某个字符串类属性,如 TextBox1.Text,
'那么TextBox1.Text的值是去掉多余空格后的字符串,知道原因的朋友请指点迷津
Public Function getinistr(wname As String, kname As String) As String
Dim resultstr As String * 255  '(*后设置字符长度,必须,否则会出现致命错误)
GetPrivateProfileString wname, kname, "", resultstr, 255, App.Path & "\config.ini"
getinistr = Trim(resultstr)
End Function
'读取数值
Public Function getininum(wname As String, kname As String) As Long
getininum = GetPrivateProfileInt(wname, kname, 0, App.Path & "\config.ini")
End Function
'写入字符串
Public Sub writeini(wname As String, kname As String, valstr As String)
WritePrivateProfileString wname, kname, valstr, App.Path & "\config.ini"
End Sub