formabout.frm

OpenPlayer代码

VERSION 5.00
Begin VB.Form FormAbout 
   BorderStyle     =   0  'None
   Caption         =   "关于OpenPlayer"
   ClientHeight    =   5115
   ClientLeft      =   2145
   ClientTop       =   2085
   ClientWidth     =   7785
   Icon            =   "FormAbout.frx":0000
   LinkTopic       =   "Form1"
   Picture         =   "FormAbout.frx":08CA
   ScaleHeight     =   5115
   ScaleWidth      =   7785
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.Label Label3 
      BackStyle       =   0  'Transparent
      Caption         =   "Ver 1.0"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   15
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   495
      Left            =   6375
      TabIndex        =   2
      Top             =   1440
      Width           =   1290
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   "Http://OpenPlayer.51.net"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   240
      Left            =   3675
      MouseIcon       =   "FormAbout.frx":5555
      MousePointer    =   99  'Custom
      TabIndex        =   1
      ToolTipText     =   "主页"
      Top             =   4605
      Width           =   2520
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "Email:[e-mail]"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   255
      Left            =   3660
      MouseIcon       =   "FormAbout.frx":585F
      MousePointer    =   99  'Custom
      TabIndex        =   0
      ToolTipText     =   "写信给作者"
      Top             =   4815
      Width           =   2265
   End
End
Attribute VB_Name = "FormAbout"
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 Form_Click()
   Unload Me
End Sub

Private Sub Form_Load()
    Me.Left = (Screen.Width - Me.Width) / 2
    Me.Top = (Screen.Height - Me.Height) / 2
End Sub

Private Sub Form_LostFocus()
  Unload Me
End Sub

Private Sub Label1_Click()
     ShellExecute 0, "open", "mailto:[e-mail]?subject=小鱼儿工作室：关于OpenPlayer...", 0, 0, 1
End Sub

Private Sub Label2_Click()
    ShellExecute 0, "open", "http://OpenPlayer.51.net", 0, 0, 1
End Sub