用ini文件实现每日一帖.bas

个人VB学习源码精选,自己学习时的一些编程小程序,希望对大家有帮助

Attribute VB_Name = "Module1"
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
Public TipFileName As String
Public INIfileName As String
Public Sub GetFile()
    Dim AppName As String
    AppName = IIf(Len(App.Path) > 3, App.Path & "\", App.Path)
    TipFileName = AppName & "TipOfDay.txt"
    INIfileName = AppName & "TipOfDay.ini"
End Sub
Public Function sGetINI(INIfileName As String, sSection As String, sKey As String, sDefault As String) As String
    Dim sTemp As String * 256
    Dim nLength As Long
    sTemp = Space(256)
    nLength = GetPrivateProfileString(sSection, sKey, sDefault, sTemp, 255, INIfileName)
    sGetINI = Left(sTemp, nLength)
End Function
Public Sub writeINI(INIfileName As String, sSection As String, sKey As String, sValue As String)
    Dim n As Long
    Dim sTemp As String
    sTemp = sValue
    For n = 1 To Len(sValue)
        If Mid(sValue, n, 1) = vbCr Or Mid(sValue, n, 1) = vbLf Then
            Mid(sValue, n) = " "
        End If
    Next n
    n = WritePrivateProfileString(sSection, sKey, sTemp, INIfileName)
End Sub
Public Sub Main()
    Dim ifStartTips As String
    Dim sNumUpper As String, sNumOneZhu As String
    Call GetFile
    Load Form1
    ifStartTips = sGetINI(INIfileName, "Others", "ifStartTips", "YES")
    Form1.Show
    If ifStartTips = "YES" Then
        Form2.Show vbModal, Form1
    End If
End Sub