?? 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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -