frmabout.frm

新魔剑压缩机。采用新的压缩算法对文件压缩。

VERSION 5.00
Begin VB.Form FrmAbout 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "关于魔剑压缩机..."
   ClientHeight    =   1965
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   4680
   Icon            =   "FrmAbout.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1965
   ScaleWidth      =   4680
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton Command1 
      Caption         =   "确定"
      Default         =   -1  'True
      Height          =   375
      Left            =   3360
      TabIndex        =   1
      Top             =   1440
      Width           =   1095
   End
   Begin VB.Label Label2 
      Caption         =   "http://demonsword.vbgood.cn"
      BeginProperty Font 
         Name            =   "Monotype Corsiva"
         Size            =   10.5
         Charset         =   0
         Weight          =   400
         Underline       =   -1  'True
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF8080&
      Height          =   240
      Left            =   240
      TabIndex        =   4
      Top             =   1560
      Width           =   2370
   End
   Begin VB.Label Label4 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "作者:仙剑魔"
      Height          =   180
      Left            =   1680
      TabIndex        =   3
      Top             =   720
      Width           =   990
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "欢迎访问本人BLOG"
      Height          =   180
      Left            =   240
      TabIndex        =   2
      Top             =   1320
      Width           =   1440
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "魔剑压缩机 版本:N.0"
      Height          =   180
      Left            =   1680
      TabIndex        =   0
      Top             =   240
      Width           =   1710
   End
   Begin VB.Line Line1 
      BorderColor     =   &H00808080&
      BorderStyle     =   6  'Inside Solid
      Index           =   1
      X1              =   120
      X2              =   4560
      Y1              =   1200
      Y2              =   1200
   End
   Begin VB.Line Line1 
      BorderColor     =   &H00FFFFFF&
      BorderWidth     =   2
      Index           =   0
      X1              =   135
      X2              =   4560
      Y1              =   1215
      Y2              =   1215
   End
   Begin VB.Image Image1 
      Height          =   720
      Left            =   480
      Picture         =   "FrmAbout.frx":000C
      Top             =   240
      Width           =   720
   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 Command1_Click()
Unload Me
End Sub

Private Sub Form_Load()
Image1.Picture = FrmMain.Icon
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label2.ForeColor = &HFF8080
End Sub

Private Sub Label2_Click()
Call ShellExecute(Me.hwnd, "open", Label2.Caption, "", "", 0)
End Sub

Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label2.ForeColor = &HFFFF80
End Sub