aboutfrm.frm

vb 写的播放器 对新的开发者很有用。写的不错。非常实际

VERSION 5.00
Begin VB.Form AboutFrm 
   Caption         =   "Winamp 作者：毕飞"
   ClientHeight    =   4095
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   3285
   Icon            =   "AboutFrm.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4095
   ScaleWidth      =   3285
   StartUpPosition =   1  '所有者中心
   Begin VB.PictureBox Picture1 
      BorderStyle     =   0  'None
      Height          =   255
      Left            =   240
      MouseIcon       =   "AboutFrm.frx":1782
      Picture         =   "AboutFrm.frx":264C
      ScaleHeight     =   255
      ScaleWidth      =   285
      TabIndex        =   1
      Top             =   120
      Width           =   285
   End
   Begin VB.TextBox Text1 
      Height          =   2295
      Left            =   240
      Locked          =   -1  'True
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   0
      Text            =   "AboutFrm.frx":3516
      Top             =   720
      Width           =   2895
   End
   Begin VB.Frame Frame1 
      Caption         =   "软件说明"
      Height          =   2655
      Left            =   120
      TabIndex        =   3
      Top             =   480
      Width           =   3135
   End
   Begin VB.Label Label4 
      Caption         =   "海阔天空收集整理，更多请访问：http://www.play78.com      点击这里访问play78.com "
      ForeColor       =   &H00FF0000&
      Height          =   615
      Left            =   30
      MouseIcon       =   "AboutFrm.frx":373E
      MousePointer    =   99  'Custom
      TabIndex        =   4
      ToolTipText     =   "欢迎光临我的主页"
      Top             =   3180
      Width           =   3135
   End
   Begin VB.Label Label1 
      Caption         =   "Winamp"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800080&
      Height          =   255
      Left            =   1320
      TabIndex        =   2
      Top             =   120
      Width           =   735
   End
End
Attribute VB_Name = "AboutFrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

' **********************************************************************
'  描  述：存vb代码写的winnap程序，非常酷
'  Play78.com : 网站导航，源码之家，绝对开源
'  海阔天空收集整理
'  主站地址：http://www.play78.com/
'  源码下载地址：http://www.play78.com/blog
'  图片下在地址：http://www.play78.com/pic
'  QQ：13355575
'  e-mail:[e-mail]
'  编写日期：2005年08月30日
' **********************************************************************


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
Const SW_SHOWNORMAL = 1

Public Sub Navigate(Frm As Form, ByVal WebPageURL As String)
Dim hBrowse As Long
hBrowse = ShellExecute(Frm.hwnd, "open", WebPageURL, "", "", SW_SHOWNORMAL)
End Sub



Private Sub Label4_Click()
Navigate Me, "http://www.play78.com"
Navigate Me, "http://www.play78.com/blog"
End Sub