modPub.bas

来源：互联网发布：公交车线路查询软件编辑：程序博客网时间：2024/06/05 15:43

Attribute VB_Name = "modPub"
Option Explicit

Public strAppPath$
Public intFontSize As Integer
Public strFontColor As String
Public lngFontColor As Long
Public strSplit As String

Sub Main()
    strAppPath = App.Path
    If Right(strAppPath, 1) <> "/" Then strAppPath = strAppPath & "/"
    iniFileName = strAppPath & "user.INI"

    If Dir(iniFileName) <> "" Then
        Call initFromIniFile
    Else
        Call initFromApp
        Call saveToIniFile
    End If
    Form1.Show
End Sub
'从配置文件初始化
Private Sub initFromIniFile()
'    On Error GoTo err1
    intFontSize = Trim(GetIniS("UserSet", "FontSize"))
    strFontColor = Trim(GetIniS("UserSet", "FontColor"))
    lngFontColor = Val(strFontColor)
    strSplit = Trim(GetIniS("UserSet", "Split "))

    Exit Sub
err1:
    Call initFromApp
    Call saveToIniFile
End Sub
'保存到配置文件
Public Sub saveToIniFile()
    SetIniS "UserSet", "FontSize", CStr(intFontSize)
    SetIniS "UserSet", "FontColor", CStr(strFontColor)
    SetIniS "UserSet", "Split", CStr(strSplit)
End Sub
'用程序自身初始化
Private Sub initFromApp()
    intFontSize = 10
    strFontColor = "&HFFFF&"
    lngFontColor = Val(strFontColor)
    strSplit = "---------------------------------"
End Sub