frmabout.frm

内容摘要:在现代企业中

VERSION 5.00
Begin VB.Form frmAbout 
   BackColor       =   &H00C0E0FF&
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "关于 仓库管理系统"
   ClientHeight    =   1380
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5700
   ClipControls    =   0   'False
   HelpContextID   =   3
   Icon            =   "frmAbout.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1380
   ScaleWidth      =   5700
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Tag             =   "关于 仓库管理系统"
   Begin VB.PictureBox picIcon 
      AutoSize        =   -1  'True
      BackColor       =   &H00C0E0FF&
      BorderStyle     =   0  'None
      ClipControls    =   0   'False
      Height          =   480
      HelpContextID   =   3
      Left            =   240
      Picture         =   "frmAbout.frx":000C
      ScaleHeight     =   480
      ScaleMode       =   0  'User
      ScaleWidth      =   480
      TabIndex        =   1
      TabStop         =   0   'False
      Top             =   420
      Width           =   480
   End
   Begin VB.CommandButton cmdOK 
      BackColor       =   &H00C0E0FF&
      Cancel          =   -1  'True
      Caption         =   "确定"
      Default         =   -1  'True
      Height          =   345
      HelpContextID   =   3
      Left            =   4140
      Style           =   1  'Graphical
      TabIndex        =   0
      Tag             =   "确定"
      Top             =   480
      Width           =   1290
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   "[e-mail]"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   -1  'True
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   225
      Left            =   1020
      MouseIcon       =   "frmAbout.frx":127E
      MousePointer    =   99  'Custom
      TabIndex        =   5
      Tag             =   "应用程序描述"
      ToolTipText     =   "写作者写信"
      Top             =   960
      Width           =   1635
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "http://fxstudio.nease.net"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   -1  'True
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   225
      Left            =   1020
      MouseIcon       =   "frmAbout.frx":1588
      MousePointer    =   99  'Custom
      TabIndex        =   4
      Tag             =   "应用程序描述"
      ToolTipText     =   "访问我的主页"
      Top             =   720
      Width           =   2235
   End
   Begin VB.Label lblDescription 
      BackStyle       =   0  'Transparent
      Caption         =   "版权所有(C)2004 程序之风"
      ForeColor       =   &H00000000&
      Height          =   165
      Left            =   1020
      TabIndex        =   3
      Tag             =   "应用程序描述"
      Top             =   480
      Width           =   3015
   End
   Begin VB.Label lblTitle 
      BackStyle       =   0  'Transparent
      Caption         =   "仓库管理系统 1.0"
      ForeColor       =   &H00000000&
      Height          =   195
      Left            =   990
      TabIndex        =   2
      Tag             =   "应用程序标题"
      Top             =   180
      Width           =   3075
   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 Label1_Click()
    ShellExecute 0, "", "http://fxstudio.nease.net", "", "", 5
End Sub

Private Sub Label2_Click()
    ShellExecute 0, "", "mailto:[e-mail]", "", "", 5
End Sub


'此源码由程序太平洋收集整理发布,任何人都可自由转载,但需保留本站信息
'╭⌒╮┅~ ¤　欢迎光临程序太平洋╭⌒╮
'╭⌒╭⌒╮╭⌒╮～╭⌒╮  ︶  ,︶︶
',︶︶︶︶,''︶~~ ,''~︶︶　 ,''
'╔　╱◥███◣═╬╬╬╬╬╬╬╬╬╗
'╬ ︱田︱田 田 ︱　　　　　　　　　 ╬
'╬　　　　　　　http://www.5ivb.net ╬
'╬　 ╭○╮●　                   　╬
'╬　　/■\/■\　　                  ╬
'╬　　 <|　||　   有希望,就有成功！ ╬
'╬　　　　　　　　　　　　　　　　　╬
'╚╬╬╬╬╬╬╬╬╬╬╗  ╔╬╬╬╬╝
'
'说明：
'专业提供VB、．NET、Delphi、ASP、PB源码下载
'包括:程序源码,控件,商业源码,系统方案，开发工具，书籍教程，技术文档