?? frmsplash.frm
字號:
VERSION 5.00
Begin VB.Form Frmsplash
AutoRedraw = -1 'True
BorderStyle = 0 'None
Caption = "Form1"
ClientHeight = 3450
ClientLeft = 0
ClientTop = 0
ClientWidth = 4950
ForeColor = &H00FF0000&
LinkTopic = "Form1"
Picture = "Frmsplash.frx":0000
ScaleHeight = 230
ScaleMode = 3 'Pixel
ScaleWidth = 330
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.Timer Timer1
Interval = 100
Left = 120
Top = 2880
End
End
Attribute VB_Name = "Frmsplash"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Form_Load()
Me.FontSize = 20
CurrentX = 20
CurrentY = 30
Print "歡迎使用"
CurrentX = 50
CurrentY = 80
Print "儀迪儀器"
Me.FontSize = 12
CurrentX = 50
CurrentY = 120
Print "Mn42安全性能綜合測試儀聯機軟件"
CurrentX = 50
CurrentY = 150
Print "Version 1.0"
CurrentX = 50
CurrentY = 190
Print "Tel:(0532)7616578"
End Sub
Private Sub Timer1_Timer()
On Error GoTo errLoad
Screen.MousePointer = vbHourglass
Mainpath = App.Path
If Right(Mainpath, 1) <> "\" Then
Mainpath = Mainpath + "\"
End If
Readsetsys
If flgFirst = "0" Then
CreateSave
flgFirst = "1"
Savepath = Mainpath + "save\"
Writesetsys
End If
Readsetpara
FrmMain.Show
Unload Me
Exit Sub
errLoad:
MsgBox Err1 + Err.Description, , err2
End Sub
Sub CreateSave()
On Error GoTo errCS
Dim fs As Object, cs As Object
Set fs = CreateObject("scripting.filesystemobject")
Set cs = fs.createfolder(Mainpath + "save")
Exit Sub
errCS:
If Err.Number = 58 Then
Exit Sub
Else:
MsgBox Err1 + Err.Description, , err2
End If
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -