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:[phone]"
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