main.bas

来自「主要用于学校机房考试,主要包括选择题,问答题,WORD操作题,WINDOWS操作」· BAS 代码 · 共 75 行

Attribute VB_Name = "Module2"
Public fMainForm As frmMain
Public Declare Function GetSystemDefaultLangID Lib "kernel32" () As Integer


Sub Main()
    Dim PauseTime, Start, Finish
    
    frmSplash.Show
    frmSplash.Refresh
      
    PauseTime = 2   ' 设置暂停时间。
    Start = Timer   ' 设置开始暂停的时刻。
    Do While Timer < Start + PauseTime
       DoEvents   ' 将控制让给其他程序。
    Loop
    Finish = Timer   ' 设置结束时刻。
    
    Set fMainForm = New frmMain
    Load fMainForm
    Unload frmSplash

    InitialFontCombox '在字体列表框中填加字体
    InitialFontSizeCombox '在字号列表框中填加字体尺寸

    fMainForm.Show
End Sub

Public Sub InitialFontCombox()
    Dim i As Long
    fMainForm.ComboFontName.Clear
    For i = 0 To Screen.FontCount - 1
        fMainForm.ComboFontName.AddItem Screen.Fonts(i)
    Next i
    If GetSystemDefaultLangID = &H804 Then
        fMainForm.ComboFontName.Text = "宋体"
    Else
        fMainForm.ComboFontName.Text = "Arial"
    End If
End Sub

Public Sub InitialFontSizeCombox()
    fMainForm.ComboFontSize.Clear
    fMainForm.ComboFontSize.AddItem "5"
    fMainForm.ComboFontSize.AddItem "6"
    fMainForm.ComboFontSize.AddItem "7"
    fMainForm.ComboFontSize.AddItem "8"
    fMainForm.ComboFontSize.AddItem "9"
    fMainForm.ComboFontSize.AddItem "10"
    fMainForm.ComboFontSize.AddItem "11"
    fMainForm.ComboFontSize.AddItem "12"
    fMainForm.ComboFontSize.AddItem "14"
    fMainForm.ComboFontSize.AddItem "16"
    fMainForm.ComboFontSize.AddItem "18"
    fMainForm.ComboFontSize.AddItem "20"
    fMainForm.ComboFontSize.AddItem "22"
    fMainForm.ComboFontSize.AddItem "24"
    fMainForm.ComboFontSize.AddItem "26"
    fMainForm.ComboFontSize.AddItem "28"
    fMainForm.ComboFontSize.AddItem "30"
    fMainForm.ComboFontSize.AddItem "36"
    fMainForm.ComboFontSize.AddItem "42"
    fMainForm.ComboFontSize.AddItem "48"
    fMainForm.ComboFontSize.AddItem "72"
    fMainForm.ComboFontSize.AddItem "100"
    fMainForm.ComboFontSize.AddItem "150"
    fMainForm.ComboFontSize.AddItem "300"
    fMainForm.ComboFontSize.AddItem "500"
    fMainForm.ComboFontSize.AddItem "800"
    fMainForm.ComboFontSize.AddItem "1200"
    fMainForm.ComboFontSize.AddItem "2000"
    fMainForm.ComboFontSize.SelText = "12"
End Sub