📄 main.bas
字号:
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -