donload.frm

这是网站里可以播放不同音乐的程序

VERSION 5.00
Begin VB.Form Donload 
   BorderStyle     =   0  'None
   Caption         =   "Form4"
   ClientHeight    =   3825
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   4140
   LinkTopic       =   "Form4"
   Picture         =   "Donload.frx":0000
   ScaleHeight     =   3825
   ScaleWidth      =   4140
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   Begin VB.TextBox Text1 
      Height          =   975
      Left            =   80
      Locked          =   -1  'True
      MultiLine       =   -1  'True
      TabIndex        =   1
      Top             =   2760
      Width           =   3975
   End
   Begin iMusic.Downloader Downloader1 
      Height          =   2380
      Left            =   80
      TabIndex        =   0
      Top             =   300
      Width           =   3975
      _ExtentX        =   7011
      _ExtentY        =   4207
   End
   Begin VB.Image Image15 
      Height          =   165
      Left            =   3900
      Picture         =   "Donload.frx":4908
      ToolTipText     =   "关闭"
      Top             =   30
      Width           =   150
   End
   Begin VB.Image Image5 
      Height          =   225
      Left            =   0
      Picture         =   "Donload.frx":4AAC
      Top             =   0
      Width           =   4140
   End
   Begin VB.Image Image4 
      Height          =   105
      Left            =   0
      Picture         =   "Donload.frx":7482
      Top             =   3720
      Width           =   4140
   End
   Begin VB.Image Image2 
      Height          =   1095
      Left            =   0
      Picture         =   "Donload.frx":9B92
      Stretch         =   -1  'True
      Top             =   2700
      Width           =   4140
   End
   Begin VB.Image Image3 
      Height          =   1575
      Left            =   0
      Picture         =   "Donload.frx":CEA4
      Top             =   1680
      Width           =   4140
   End
   Begin VB.Image Image1 
      Height          =   2265
      Left            =   0
      Picture         =   "Donload.frx":165B0
      Top             =   0
      Width           =   4140
   End
End
Attribute VB_Name = "Donload"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Downloader1_DownloadComplete(MaxBytes As Long, SaveFile As String, LoadError As Boolean)
If LoadError = True Then
Text1.Text = Text1.Text & "提示：" & "文件下载完成，保存文件名为：" & SaveFile & Chr(13) + Chr(10)
Else
Text1.Text = Text1.Text & "错误：" & "下载" & SaveFile & "发生错误！" & Chr(13) + Chr(10)
End If
End Sub

Private Sub Image15_Click()
Me.Hide
End Sub

Private Sub Image5_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then X1 = X: Y1 = Y
End Sub

Private Sub Image5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then Me.Top = Me.Top + Y - Y1: Me.Left = Me.Left + X - X1
End Sub

Private Sub Text1_DblClick()
Text1.Text = ""
End Sub