frmabout.frm

通用样品管理系统是一个商业程序,功能界面都还不错!

VERSION 5.00
Begin VB.Form frmAbout 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "关于 MyApp"
   ClientHeight    =   3150
   ClientLeft      =   2340
   ClientTop       =   1935
   ClientWidth     =   5775
   ClipControls    =   0   'False
   Icon            =   "frmAbout.frx":0000
   LinkTopic       =   "Form2"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   2174.186
   ScaleMode       =   0  'User
   ScaleWidth      =   5423.023
   ShowInTaskbar   =   0   'False
   Begin VB.CommandButton cmdOK 
      Cancel          =   -1  'True
      Caption         =   "确定"
      Default         =   -1  'True
      Height          =   360
      Left            =   4245
      TabIndex        =   0
      Top             =   2610
      Width           =   1365
   End
   Begin VB.Image picIcon 
      BorderStyle     =   1  'Fixed Single
      Height          =   945
      Left            =   435
      Stretch         =   -1  'True
      Top             =   360
      Width           =   960
   End
   Begin VB.Line Line1 
      BorderColor     =   &H00808080&
      BorderStyle     =   6  'Inside Solid
      Index           =   1
      X1              =   84.515
      X2              =   5309.398
      Y1              =   1687.583
      Y2              =   1687.583
   End
   Begin VB.Label lblDescription 
      ForeColor       =   &H00000000&
      Height          =   705
      Left            =   360
      TabIndex        =   1
      Top             =   1710
      Width           =   4965
   End
   Begin VB.Label lblTitle 
      Caption         =   "应用程序标题"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   21.75
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000040C0&
      Height          =   480
      Left            =   1875
      TabIndex        =   3
      Top             =   465
      Width           =   3885
   End
   Begin VB.Line Line1 
      BorderColor     =   &H00FFFFFF&
      BorderWidth     =   2
      Index           =   0
      X1              =   98.6
      X2              =   5309.398
      Y1              =   1697.936
      Y2              =   1697.936
   End
   Begin VB.Label lblVersion 
      Caption         =   "版本"
      ForeColor       =   &H00800000&
      Height          =   225
      Left            =   3765
      TabIndex        =   4
      Top             =   1095
      Width           =   1800
   End
   Begin VB.Label lblDisclaimer 
      Caption         =   "警告：系统受中国和际软件法保护，请勿侵权。"
      ForeColor       =   &H00000000&
      Height          =   255
      Left            =   360
      TabIndex        =   2
      Top             =   2655
      Width           =   3810
   End
End
Attribute VB_Name = "frmAbout"
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 Form_Load()
    frmAbout.HelpContextID = 8
    frmAbout.Left = (MDIForm1.Width - frmAbout.Width) / 2
    frmAbout.Top = (MDIForm1.Height - frmAbout.Height) / 2 - 1500
    Me.Caption = "关于《" & App.Title & "》"
    lblVersion.Caption = "版本 " & App.Major & "." & App.Minor & "." & App.Revision
    lblTitle.Caption = App.Title
    lblDescription.Caption = "描述：东化样品管理为东化公司的世纪进销中的子系统。" & Chr(10) & Chr(13) & "       东化样品管理的所有版权为东化公司。" & Chr(10) & Chr(13) & "       网址: Http://www.donghua.com/index.html"
    On Error Resume Next
    picIcon.Picture = LoadPicture(Browser + "mickey.gif")
End Sub