frmabout.frm

这是本人利用vb+access 开发的一个二库存进销存系统

VERSION 5.00
Begin VB.Form frmAbout 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "    关于越尔库管软件"
   ClientHeight    =   2595
   ClientLeft      =   2340
   ClientTop       =   1935
   ClientWidth     =   5310
   ClipControls    =   0   'False
   Icon            =   "frmAbout.frx":0000
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1791.115
   ScaleMode       =   0  'User
   ScaleWidth      =   4986.364
   ShowInTaskbar   =   0   'False
   Begin VB.PictureBox picIcon 
      AutoSize        =   -1  'True
      BorderStyle     =   0  'None
      ClipControls    =   0   'False
      Height          =   720
      Left            =   240
      Picture         =   "frmAbout.frx":000C
      ScaleHeight     =   505.68
      ScaleMode       =   0  'User
      ScaleWidth      =   505.68
      TabIndex        =   1
      Top             =   240
      Width           =   720
   End
   Begin VB.CommandButton cmdOK 
      Cancel          =   -1  'True
      Caption         =   "确定"
      Default         =   -1  'True
      Height          =   345
      Left            =   4320
      TabIndex        =   0
      Top             =   2040
      Width           =   900
   End
   Begin VB.Label lblurl 
      AutoSize        =   -1  'True
      Caption         =   "http://sunqingliang.yeah.net"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   -1  'True
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   195
      Left            =   1200
      TabIndex        =   7
      Top             =   1560
      Width           =   2010
   End
   Begin VB.Label Label1 
      Caption         =   "Tel:[phone]  E_Mail:[e-mail]"
      ForeColor       =   &H000080FF&
      Height          =   255
      Left            =   1200
      TabIndex        =   6
      Top             =   1320
      Width           =   3735
   End
   Begin VB.Line Line1 
      BorderColor     =   &H00808080&
      BorderStyle     =   6  'Inside Solid
      Index           =   1
      X1              =   84.515
      X2              =   4845.506
      Y1              =   1325.218
      Y2              =   1325.218
   End
   Begin VB.Label lblDescription 
      Caption         =   "作者：孙庆良  单位：南风集团市场部"
      ForeColor       =   &H000080FF&
      Height          =   210
      Left            =   1200
      TabIndex        =   2
      Top             =   1080
      Width           =   3765
   End
   Begin VB.Label lblTitle 
      BackStyle       =   0  'Transparent
      Caption         =   "欧芬爱尔库存管理软件"
      BeginProperty Font 
         Name            =   "黑体"
         Size            =   15.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00008000&
      Height          =   480
      Left            =   1200
      TabIndex        =   4
      Top             =   240
      Width           =   3405
   End
   Begin VB.Line Line1 
      BorderColor     =   &H00FFFFFF&
      BorderWidth     =   2
      Index           =   0
      X1              =   112.686
      X2              =   4845.506
      Y1              =   1325.218
      Y2              =   1325.218
   End
   Begin VB.Label lblVersion 
      Caption         =   "版本：1.00"
      Height          =   225
      Left            =   1200
      TabIndex        =   5
      Top             =   720
      Width           =   1485
   End
   Begin VB.Label lblDisclaimer 
      Caption         =   "  警告: 本程序仅许可给北京南风欧芬爱尔日用化学品有限公司使用，未经许可不得用于商业目的。"
      ForeColor       =   &H00000000&
      Height          =   465
      Left            =   120
      TabIndex        =   3
      Top             =   2040
      Width           =   4095
   End
End
Attribute VB_Name = "frmAbout"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub cmdOK_Click()
Unload Me
End Sub

Private Sub lblurl_Click()
Call ShellExecute(Form1.hwnd, "open", "http://sunqingliang.yeah.net", vbNullString, vbNullString, &H0)
End Sub