commmodule.bas

Barcode print

Attribute VB_Name = "Module1"
  Option Explicit
    
  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
  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函數
  Public Function getIni(ByVal pfileName As String, ByVal psection As String, ByVal pkey As String) As String
          Dim x     As Long, Buff       As String * 128, i%
          x = GetPrivateProfileString(psection, pkey, "", Buff, 128, pfileName)
          i = InStr(Buff, Chr(0))
          getIni = Trim(Left(Buff, i - 1))
  End Function
    
  '自定义写入INI函數
  Public Function WriteIni(ByVal psection As String, ByVal pkey As String, ByVal pvalue As String, ByVal filePath As String) As Boolean
          Dim x     As Long, Buff       As String * 128, i           As Integer
          Buff = pvalue + Chr(0)
          x = WritePrivateProfileString(psection, pkey, Buff, filePath)
          WriteIni = x
  End Function