浏览器

开发平台：
Visual Basic

DownloadDlg.frm：源码内容
							VERSION 5.00
Begin VB.Form frmDownloadDlg 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "下载"
   ClientHeight    =   1905
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4905
   ControlBox      =   0   'False
   BeginProperty Font 
      Name            =   "新宋体"
      Size            =   9
      Charset         =   134
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1905
   ScaleWidth      =   4905
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  'CenterOwner
   Begin VB.CheckBox chkUseTool 
      Caption         =   "使用工具"
      Height          =   255
      Left            =   1620
      TabIndex        =   6
      Top             =   1560
      Width           =   1035
   End
   Begin VB.ComboBox cmbDlList 
      Height          =   300
      Left            =   2940
      Style           =   2  'Dropdown List
      TabIndex        =   5
      Top             =   1560
      Width           =   1815
   End
   Begin VB.CheckBox chkShowDlg 
      Caption         =   "下载时显示"
      Height          =   300
      Left            =   60
      TabIndex        =   4
      Top             =   1560
      Width           =   1635
   End
   Begin VB.CommandButton cmdCopy 
      Caption         =   "复制到粘贴板(&P)"
      Height          =   330
      Left            =   60
      TabIndex        =   1
      Top             =   1140
      Width           =   1800
   End
   Begin VB.CommandButton cmdCancel 
      Cancel          =   -1  'True
      Caption         =   "取消(&C)"
      Height          =   330
      Left            =   3900
      TabIndex        =   3
      Top             =   1140
      Width           =   900
   End
   Begin VB.CommandButton cmdDL 
      Caption         =   "下载(&D)"
      Default         =   -1  'True
      Height          =   330
      Left            =   2880
      TabIndex        =   2
      Top             =   1140
      Width           =   900
   End
   Begin VB.TextBox txtUrl 
      BackColor       =   &H8000000F&
      Height          =   1035
      Left            =   60
      Locked          =   -1  'True
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   0
      Text            =   "DownloadDlg.frx":0000
      Top             =   0
      Width           =   4755
   End
End
Attribute VB_Name = "frmDownloadDlg"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'---------------------------------------------------------------------------------------
' Module    : frmDownloadDlg
' DateTime  : 2005-8-11 15:57
' Author    : Lingll
' Purpose   : 下载对话框
'---------------------------------------------------------------------------------------
Option Explicit
Public IsCancel As Boolean
Public mShowDlg As Long
Public mUseTool As Long
Public mToolIndex As Long
Public Sub IniMe(vUrl$)
txtUrl.Text = vUrl
End Sub
Private Sub chkShowDlg_Click()
mShowDlg = chkShowDlg.Value
End Sub
Private Sub chkUseTool_Click()
mUseTool = chkUseTool.Value
cmbDlList.Enabled = (mUseTool = 1)
End Sub
Private Sub cmbDlList_Click()
mToolIndex = cmbDlList.ListIndex + 1
End Sub
Private Sub cmdCancel_Click()
IsCancel = True
Me.Hide
End Sub
Private Sub cmdCopy_Click()
Clipboard.Clear
Clipboard.SetText txtUrl.Text
End Sub
Private Sub cmdDL_Click()
IsCancel = False
gShowDownDlg = mShowDlg
gUseDownTool = mUseTool
gDownToolIndex = mToolIndex
Me.Hide
End Sub
Private Sub Form_Load()
Call LoadDlList
End Sub
'---------------------------------------------------------------------------------------
' Procedure : LoadDlList
' DateTime  : 2005-8-14 03:03
' Author    : Lingll
' Purpose   :
'---------------------------------------------------------------------------------------
Private Sub LoadDlList()
On Error Resume Next
Dim i&
chkShowDlg.Value = gShowDownDlg
chkUseTool.Value = gUseDownTool
cmbDlList.Clear
For i = 1 To gDownToolCount
    cmbDlList.AddItem gDownTools(i).Title
Next i
If gDownToolCount > 0 Then
    cmbDlList.ListIndex = gDownToolIndex - 1
End If
cmbDlList.Enabled = (gUseDownTool = 1)
mShowDlg = gShowDownDlg
mUseTool = gUseDownTool
mToolIndex = gDownToolIndex
End Sub

						