frmaboutme.frm

一个把自己的东西刻成光盘后自动查询和启动的原代码

VERSION 5.00
Begin VB.Form FrmAboutMe 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "关于档案管理系统"
   ClientHeight    =   3030
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5025
   Icon            =   "FrmAboutMe.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3030
   ScaleWidth      =   5025
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton CmdHelp 
      Caption         =   "帮助(H)"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   320
      Left            =   3120
      TabIndex        =   9
      Top             =   2640
      Visible         =   0   'False
      Width           =   855
   End
   Begin VB.PictureBox Picture2 
      BorderStyle     =   0  'None
      Height          =   135
      Left            =   0
      Picture         =   "FrmAboutMe.frx":030A
      ScaleHeight     =   135
      ScaleWidth      =   5055
      TabIndex        =   2
      Top             =   600
      Width           =   5055
      Begin VB.PictureBox Picture3 
         BorderStyle     =   0  'None
         Height          =   135
         Left            =   0
         Picture         =   "FrmAboutMe.frx":1B70
         ScaleHeight     =   135
         ScaleWidth      =   5055
         TabIndex        =   3
         Top             =   0
         Width           =   5055
      End
   End
   Begin VB.PictureBox Picture1 
      BorderStyle     =   0  'None
      Height          =   615
      Left            =   0
      Picture         =   "FrmAboutMe.frx":339A
      ScaleHeight     =   615
      ScaleWidth      =   5055
      TabIndex        =   1
      Top             =   0
      Width           =   5055
   End
   Begin VB.Timer Timer1 
      Interval        =   50
      Left            =   5040
      Top             =   3120
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "确定(&O)"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   320
      Left            =   4080
      TabIndex        =   0
      Top             =   2640
      Width           =   855
   End
   Begin VB.Label Label5 
      Caption         =   "中国工商银行上海市分行当档案中心"
      Height          =   255
      Left            =   240
      TabIndex        =   8
      Top             =   2220
      Width           =   3975
   End
   Begin VB.Label Label4 
      Caption         =   "本产品使用权属于："
      Height          =   255
      Left            =   240
      TabIndex        =   7
      Top             =   1920
      Width           =   3855
   End
   Begin VB.Label Label3 
      Caption         =   "版权所有（C）2000-2001 方正奥德计算机系统有限公司"
      Height          =   255
      Left            =   240
      TabIndex        =   6
      Top             =   1440
      Width           =   4695
   End
   Begin VB.Label Label2 
      Caption         =   "版本2001（内部版本号20010101）"
      Height          =   255
      Left            =   240
      TabIndex        =   5
      Top             =   1140
      Width           =   3135
   End
   Begin VB.Label Label1 
      Caption         =   "方正奥德档案管理系统之单机查询子系统"
      Height          =   255
      Left            =   240
      TabIndex        =   4
      Top             =   840
      Width           =   4695
   End
   Begin VB.Line Line2 
      BorderColor     =   &H00FF0000&
      X1              =   120
      X2              =   4920
      Y1              =   2520
      Y2              =   2520
   End
   Begin VB.Line Line3 
      BorderColor     =   &H00FFC0C0&
      BorderWidth     =   2
      X1              =   120
      X2              =   4920
      Y1              =   2520
      Y2              =   2520
   End
End
Attribute VB_Name = "FrmAboutMe"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False



Private Sub CmdOK_Click()
    
    Unload Me
    
End Sub

Private Sub Picture1_DblClick()
On Error GoTo Err
Shell "notepad.exe " + App.Path + "\Errorlog.txt", vbNormalFocus
Err:
End Sub