📄 frmdltest.frm
字号:
VERSION 5.00
Begin VB.Form frmDLTest
Caption = "bkDownload Control Test Form"
ClientHeight = 6990
ClientLeft = 60
ClientTop = 345
ClientWidth = 11580
Icon = "frmDLTest.frx":0000
LinkTopic = "Form1"
ScaleHeight = 6990
ScaleWidth = 11580
StartUpPosition = 3 '窗口缺省
Begin 雷鸣魔域.bkDLControl DL
Height = 225
Index = 0
Left = 180
Top = 1410
Width = 5565
_extentx = 9816
_extenty = 397
forecolor = -2147483635
font = "frmDLTest.frx":014A
End
Begin VB.CommandButton cmdClear
Caption = "Clear Log"
Height = 285
Left = 9240
TabIndex = 12
Top = 6690
Width = 2295
End
Begin VB.CommandButton cmdCancel
Caption = "Cancel"
Enabled = 0 'False
Height = 375
Index = 3
Left = 7530
TabIndex = 10
Top = 2610
Width = 1575
End
Begin VB.CommandButton cmdBegin
Caption = "Begin"
Height = 375
Index = 3
Left = 5940
TabIndex = 9
Top = 2610
Width = 1575
End
Begin VB.ComboBox cboURL
Height = 315
ItemData = "frmDLTest.frx":0176
Left = 3420
List = "frmDLTest.frx":0195
TabIndex = 0
Top = 120
Width = 8025
End
Begin VB.CommandButton cmdBrowse
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 11160
TabIndex = 2
Top = 510
Width = 285
End
Begin VB.ListBox lstOut
Appearance = 0 'Flat
Height = 3450
ItemData = "frmDLTest.frx":0431
Left = 0
List = "frmDLTest.frx":0433
TabIndex = 11
Top = 3060
Width = 11535
End
Begin VB.TextBox txtPath
Height = 285
Left = 3390
TabIndex = 1
Top = 510
Width = 7755
End
Begin VB.CommandButton cmdBegin
Caption = "Begin"
Height = 375
Index = 2
Left = 5910
TabIndex = 5
Top = 1650
Width = 1575
End
Begin VB.CommandButton cmdCancel
Caption = "Cancel"
Enabled = 0 'False
Height = 375
Index = 2
Left = 7500
TabIndex = 6
Top = 1650
Width = 1575
End
Begin VB.CommandButton cmdBegin
Caption = "Begin"
Height = 375
Index = 1
Left = 210
TabIndex = 7
Top = 2610
Width = 1575
End
Begin VB.CommandButton cmdCancel
Caption = "Cancel"
Enabled = 0 'False
Height = 375
Index = 1
Left = 1800
TabIndex = 8
Top = 2610
Width = 1575
End
Begin VB.CommandButton cmdCancel
Caption = "Cancel"
Enabled = 0 'False
Height = 375
Index = 0
Left = 1770
TabIndex = 4
Top = 1650
Width = 1575
End
Begin VB.CommandButton cmdBegin
Caption = "Begin"
Height = 375
Index = 0
Left = 180
TabIndex = 3
Top = 1650
Width = 1575
End
Begin 雷鸣魔域.bkDLControl DL
Height = 225
Index = 1
Left = 180
Top = 2370
Width = 5565
_extentx = 9816
_extenty = 397
font = "frmDLTest.frx":0435
End
Begin 雷鸣魔域.bkDLControl DL
Height = 225
Index = 2
Left = 5910
Top = 1410
Width = 5565
_extentx = 9816
_extenty = 397
forecolor = 255
font = "frmDLTest.frx":0461
failonredirect = 0 'False
End
Begin 雷鸣魔域.bkDLControl DL
Height = 225
Index = 3
Left = 5970
Top = 2370
Width = 5565
_extentx = 9816
_extenty = 397
font = "frmDLTest.frx":048D
failonredirect = 0 'False
renameonredirect= 0 'False
End
Begin VB.Label lblInstruct
AutoSize = -1 'True
Caption = "#2 has RenameOnRedirect set to true, #2 and 3 have FailOnRedirect set to false -- try them with last URL in combo"
Enabled = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Index = 2
Left = 1320
TabIndex = 27
Top = 870
Width = 10230
End
Begin VB.Label lblNum
AutoSize = -1 'True
Caption = "3"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 195
Index = 3
Left = 5790
TabIndex = 26
Top = 2370
Width = 120
End
Begin VB.Label lblNum
AutoSize = -1 'True
Caption = "2"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 195
Index = 2
Left = 5790
TabIndex = 25
Top = 1380
Width = 120
End
Begin VB.Label lblNum
AutoSize = -1 'True
Caption = "1"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 195
Index = 1
Left = 60
TabIndex = 24
Top = 2340
Width = 120
End
Begin VB.Label lblNum
AutoSize = -1 'True
Caption = "0"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 195
Index = 0
Left = 30
TabIndex = 23
Top = 1410
Width = 120
End
Begin VB.Label lblInstruct
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "Folder to save files to:"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Index = 1
Left = 150
TabIndex = 22
Top = 570
Width = 3195
WordWrap = -1 'True
End
Begin VB.Label lblInstruct
Alignment = 1 'Right Justify
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -