zoukankan      html  css  js  c++  java
  • modIni.bas

    Attribute VB_Name = "modIni"
    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
    Private 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
    Public iniFileName As String
    Function GetIniS(ByVal SectionName As String, ByVal KeyWord As String, Optional ByVal DefString As String) As String
        Dim ResultString As String * 144, Temp%
        Dim s$, i%
        Temp% = GetPrivateProfileString(SectionName, KeyWord, "", ResultString, 144, iniFileName)
      
        If Temp% > 0 Then
            For i = 1 To 144
                If Asc(Mid$(ResultString, i, 1)) <> 0 Then
                    s = s & Mid$(ResultString, i, 1)
                End If
            Next
        Else
            Temp% = WritePrivateProfileString(SectionName, KeyWord, DefString, iniFileName)
            s = DefString
        End If
        GetIniS = s
    End Function

    Public Function SetIniS(ByVal SectionName As String, ByVal KeyWord As String, ByVal ValStr As String) As Boolean
        SetIniS = WritePrivateProfileString(SectionName, KeyWord, ValStr, iniFileName)
    End Function

    Public Function DelIniSec(ByVal SectionName As String) As Boolean
        DelIniSec = WritePrivateProfileString(SectionName, 0&, "", iniFileName)
    End Function
    'delKeyWord
    Public Function DelIniKey(ByVal SectionName As String, ByVal KeyWord As String) As Boolean
        DelIniKey = WritePrivateProfileString(SectionName, KeyWord, 0&, iniFileName)
    End Function

  • 相关阅读:
    moss文档库操作的几个类
    Infopath web浏览中的多项选择功能
    国际软件项目经理的七大素质转
    InfoPath中的Rich Text Box中如何加“回车”
    设计模式——策略模式
    设计模式——状态模式
    设计模式——备忘模式
    设计模式——中介者模式
    关与BaseDataList类型绑定ArrayList
    设计模式——命令模式
  • 原文地址:https://www.cnblogs.com/sysdzw/p/1939401.html
Copyright © 2011-2022 走看看