⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 frmabout.frm

📁 内容摘要:在现代企业中
💻 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         =   "xgping@vip.163.com"
      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:xgping@vip.163.com", "", "", 5
End Sub


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


⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -