form2.frm

图标制作

VERSION 5.00
Begin VB.Form about 
   AutoRedraw      =   -1  'True
   BorderStyle     =   1  'Fixed Single
   Caption         =   "关于图标编辑大师"
   ClientHeight    =   2505
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   3450
   FillColor       =   &H00FF8080&
   FillStyle       =   6  'Cross
   Icon            =   "Form2.frx":0000
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   167
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   230
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.CommandButton Command1 
      Caption         =   "确定"
      Height          =   330
      Left            =   1920
      TabIndex        =   0
      ToolTipText     =   "确定"
      Top             =   1920
      Width           =   735
   End
   Begin VB.Label Labhome 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "http://myfamily2000.my163.com"
      Height          =   180
      Left            =   240
      MouseIcon       =   "Form2.frx":014A
      MousePointer    =   99  'Custom
      TabIndex        =   4
      ToolTipText     =   "欢迎访问作者网站"
      Top             =   1560
      Width           =   2610
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "图标制作大师"
      BeginProperty Font 
         Name            =   "华康简魏碑"
         Size            =   15.75
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   315
      Left            =   960
      TabIndex        =   3
      Top             =   360
      Width           =   2085
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "作者：过永地"
      Height          =   180
      Left            =   240
      MouseIcon       =   "Form2.frx":029C
      MousePointer    =   99  'Custom
      TabIndex        =   2
      ToolTipText     =   "软件作者"
      Top             =   1080
      Width           =   1080
   End
   Begin VB.Label Labmail 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "E-mail:[e-mail]"
      Height          =   180
      Left            =   240
      MouseIcon       =   "Form2.frx":03EE
      MousePointer    =   99  'Custom
      TabIndex        =   1
      ToolTipText     =   "欢迎写信给作者"
      Top             =   1320
      Width           =   2610
   End
   Begin VB.Image Image1 
      Height          =   495
      Left            =   240
      Top             =   240
      Width           =   495
   End
End
Attribute VB_Name = "about"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Form_Load()
Image1 = frmicon.Picture11
Icon = frmicon.Image1
BackColor = 15506033
Line (0, 0)-(ScaleWidth - 1, ScaleHeight - 1), , B
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 Labmail.ForeColor = vbBlack
 Labhome.ForeColor = vbBlack
 Label1.ForeColor = vbBlack
End Sub

Private Sub Label1_Click()
 MsgBox "感谢你使用图标编辑大师 ^-^", vbOKOnly + vbInformation, "谢谢"
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 Label1.ForeColor = vbWhite
End Sub

Private Sub Labhome_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 Labhome.ForeColor = vbRed
End Sub

Private Sub LabMail_Click()
    Call ShellExecute(0&, vbNullString, "mailto:[e-mail]", vbNullString, vbNullString, vbNormalFocus)
End Sub


Private Sub Labhome_Click()
    Call ShellExecute(0&, vbNullString, "http://myfamily2000.my163.com", vbNullString, vbNullString, vbNormalFocus)
End Sub

Private Sub Labmail_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 Labmail.ForeColor = vbRed
End Sub