frmabout.frm

收藏了太量的商品条形码库

VERSION 5.00
Begin VB.Form FrmAbout 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "关于"
   ClientHeight    =   2385
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4710
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2385
   ScaleWidth      =   4710
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.PictureBox PicIcon 
      AutoSize        =   -1  'True
      BorderStyle     =   0  'None
      ClipControls    =   0   'False
      Height          =   540
      Left            =   240
      ScaleHeight     =   379.26
      ScaleMode       =   0  'User
      ScaleWidth      =   379.26
      TabIndex        =   5
      Top             =   240
      Width           =   540
   End
   Begin VB.CommandButton CmdYes 
      Caption         =   "确定"
      Height          =   350
      Left            =   3600
      TabIndex        =   4
      Top             =   1920
      Width           =   975
   End
   Begin VB.Frame Frame1 
      Height          =   125
      Left            =   20
      TabIndex        =   3
      Top             =   1680
      Width           =   4680
   End
   Begin VB.Label LbAuthor 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "作者 风铃夜思雨"
      Height          =   180
      Left            =   960
      TabIndex        =   7
      Top             =   850
      Width           =   1350
   End
   Begin VB.Label LbTitle 
      BackStyle       =   0  'Transparent
      Caption         =   "名称"
      Height          =   180
      Left            =   960
      TabIndex        =   6
      Top             =   240
      Width           =   2640
   End
   Begin VB.Label LbEdition 
      BackStyle       =   0  'Transparent
      Caption         =   "版权所有(C) 2004 枫叶在线"
      Height          =   180
      Left            =   960
      TabIndex        =   2
      Top             =   1150
      Width           =   2340
   End
   Begin VB.Label LbLine 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "Http://Www.SkyGz.Com"
      ForeColor       =   &H00FF0000&
      Height          =   180
      Left            =   960
      MouseIcon       =   "FrmAbout.frx":0000
      MousePointer    =   99  'Custom
      TabIndex        =   1
      Top             =   1440
      Width           =   1800
   End
   Begin VB.Label lblVersion 
      BackStyle       =   0  'Transparent
      Caption         =   "版本"
      Height          =   225
      Left            =   960
      TabIndex        =   0
      Top             =   550
      Width           =   3045
   End
End
Attribute VB_Name = "FrmAbout"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
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 CmdYes_Click()
Unload Me
End Sub

Private Sub Form_Load()
Me.Icon = FrmMain.Icon
PicIcon.Picture = FrmMain.Icon
    Me.Caption = "关于 " & App.Title
    LbTitle.Caption = App.Title
    lblVersion.Caption = "版本 " & App.Major & "." & App.Minor & "." & App.Revision
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
LbLine.FontUnderline = False
End Sub

Private Sub LbLine_Click()
Call ShellExecute(hwnd, "open", LbLine.Caption, "", App.Path, 1)
End Sub

Private Sub Lbline_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
LbLine.FontUnderline = True
End Sub