module1.bas

来自「手机话费管理系统！！！管理你的手机通话！！值得一看！！~」· BAS 代码 · 共 55 行

Attribute VB_Name = "Module1"
Global Const LISTVIEW_MODE0 = "大图标"
Global Const LISTVIEW_MODE1 = "小图标"
Global Const LISTVIEW_MODE2 = "列表"
Global Const LISTVIEW_MODE3 = "详细资料"
Public fMainForm As frmMain

Sub Main()
  Dim fLogin As New frmLogin
  Dim delay As Single
  Dim ShowAtStartup As Long
  
  delay = Timer
  frmsplash.Show
  frmsplash.Refresh
  Do While Timer - delay < 1
     DoEvents
  Loop
  
  fLogin.Show vbModal
  If Not fLogin.OK Then
    '登录失败，退出应用程序
    Unload frmsplash
    End
  End If
  
  Unload fLogin
  Unload frmsplash

  Set fMainForm = New frmMain
  Load fMainForm
  fMainForm.Show
    
  ' 察看在启动时是否将被显示
  ShowAtStartup = GetSetting(App.EXEName, "Options", "在启动时显示提示", 1)
  If ShowAtStartup <> 0 Then
     frmTip.Show vbModal
  End If
  
End Sub

Function IsLoaded(obj As Object) As Boolean
    Dim sName As String
    
    On Error Resume Next
    sName = obj.Name
    If Err.Number <> 0 Then
        IsLoaded = False
        Exit Function
    End If
    
    IsLoaded = True
End Function