关于.frm

这是一个整点报时的小程序

VERSION 5.00
Begin VB.Form FrmAbout 
   AutoRedraw      =   -1  'True
   BorderStyle     =   0  'None
   Caption         =   "整点报时"
   ClientHeight    =   7620
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   5850
   LinkTopic       =   "Form2"
   LockControls    =   -1  'True
   Picture         =   "关于.frx":0000
   ScaleHeight     =   7620
   ScaleWidth      =   5850
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.Label Label6 
      BackStyle       =   0  'Transparent
      Caption         =   "http://hi.baidu.com/icecept"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FFFF&
      Height          =   285
      Left            =   0
      MousePointer    =   99  'Custom
      TabIndex        =   5
      Top             =   0
      Width           =   4050
   End
   Begin VB.Label Label5 
      BackStyle       =   0  'Transparent
      Caption         =   "http://www.codefans.net"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FFFF&
      Height          =   285
      Left            =   960
      MousePointer    =   99  'Custom
      TabIndex        =   4
      Top             =   5400
      Width           =   4050
   End
   Begin VB.Label Label4 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FFFF&
      Height          =   285
      Left            =   2880
      TabIndex        =   3
      Top             =   6720
      Width           =   150
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "作者：魔灵"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FFFF&
      Height          =   285
      Left            =   3480
      TabIndex        =   2
      Top             =   5040
      Width           =   1500
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "E-maill:[e-mail]"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   15
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FFFF&
      Height          =   300
      Left            =   1440
      MousePointer    =   99  'Custom
      TabIndex        =   1
      Top             =   6240
      Width           =   3450
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "QQ:543375508"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FFFF&
      Height          =   285
      Left            =   3000
      MousePointer    =   99  'Custom
      TabIndex        =   0
      Top             =   5880
      Width           =   1965
   End
End
Attribute VB_Name = "FrmAbout"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
'Download by http://www.codefans.net
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Form_Click()
    Unload Me
End Sub

Private Sub Form_Load()
    Label4.Caption = "版本：" & GetAppVer()
End Sub

Private Sub Label1_Click()
    On Error Resume Next
    If getQQpath = "" Then
        MsgBox "你没有安装QQ，请先安装QQ", vbOKOnly Or vbInformation, Me.Caption
        Exit Sub
    Else
        iw1.Run "tencent://Message/?Uin=543375508"
    End If
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label1.MouseIcon = LoadResPicture(101, vbResIcon)
End Sub

Private Sub Label2_Click()
    ShellExecute Me.hwnd, "open", "mailto:[e-mail]", vbNullString, vbNullString, SW_SHOW
End Sub

Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label2.MouseIcon = LoadResPicture(101, vbResIcon)
End Sub

'取得程式版本
Private Function GetAppVer() As String
    GetAppVer = App.Major & "." & Format(App.Minor, "00") & "." & Format(App.Revision, "0000")
End Function

Private Sub Label5_Click()
    ShellExecute Me.hwnd, "open", "http://hi.baidu.com/icecept", vbNullString, vbNullString, SW_SHOW
End Sub

Private Sub Label5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label5.MouseIcon = LoadResPicture(101, vbResIcon)
End Sub