📄 form1.frm
字号:
VERSION 5.00
Object = "{D9EC8382-245F-455E-B13C-83622579A60D}#3.0#0"; "jfDownEX.ocx"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
Begin VB.Form Form1
BorderStyle = 1 'Fixed Single
Caption = "金锋文件下载控件 3.0 文件下载示例"
ClientHeight = 7890
ClientLeft = 150
ClientTop = 540
ClientWidth = 10245
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 7890
ScaleWidth = 10245
StartUpPosition = 2 '屏幕中心
Begin jfDownEXControl.jfDownEX jfDownEX1
Height = 615
Left = 120
TabIndex = 0
Top = 4440
Width = 9975
Writer = "周金峰"
Email = "support@jinfengsoft.com"
Web = "http://www.jinfengsoft.com"
Server = ""
Host = ""
UseCookie = 0 'False
HttpUserName = ""
HttpPassWord = ""
FtpUserName = "anonymous"
FtpPassWord = "my@my.net"
UseHttpUser = 0 'False
Accept = "*/*"
Referer = ""
User_Agent = "Mozilla/4.0 (compatible; MSIE 5.00; Windows 98)"
UseFtp = 0 'False
Port = 80
ProxyServer = ""
ProxyPort = 80
TimeOut = 60000
UseProxy = 0 'False
ForeColor = -2147483635
UseReferer = -1 'True
BackColor = 16777215
FilePath = ""
ShowText = -1 'True
Kind = 1
BorderStyle = 1
Color = -2147483633
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Object.Visible = -1 'True
RegUser = ""
RegCode = ""
SaveFileName = ""
End
Begin MSComDlg.CommonDialog DLG
Left = 2280
Top = 5880
_ExtentX = 847
_ExtentY = 847
_Version = 393216
CancelError = -1 'True
End
Begin VB.TextBox Text6
Height = 2175
Left = 120
MultiLine = -1 'True
ScrollBars = 3 'Both
TabIndex = 32
Top = 5520
Width = 9975
End
Begin VB.CommandButton Command9
Caption = "退出"
Height = 495
Left = 7755
TabIndex = 30
Top = 3720
Width = 2055
End
Begin VB.CommandButton Command8
Caption = "购买控件"
Height = 495
Left = 5315
TabIndex = 29
Top = 3720
Width = 2055
End
Begin VB.CommandButton Command7
Caption = "获取文件属性"
Height = 495
Left = 2875
TabIndex = 28
Top = 3720
Width = 2055
End
Begin VB.CommandButton Command6
Caption = "下载文件"
Height = 495
Left = 435
TabIndex = 27
Top = 3720
Width = 2055
End
Begin VB.TextBox Text5
Height = 270
Left = 2280
TabIndex = 26
Top = 3240
Width = 7815
End
Begin VB.CheckBox Check4
Caption = "提交方来源(引用自):"
Height = 255
Left = 120
TabIndex = 25
Top = 3240
Value = 1 'Checked
Width = 2055
End
Begin VB.TextBox Text4
Height = 270
Left = 1680
TabIndex = 24
Top = 2760
Width = 8415
End
Begin VB.CheckBox Check3
Caption = "使用代理服务器"
Height = 255
Left = 240
TabIndex = 18
Top = 1800
Width = 1695
End
Begin VB.Frame Frame2
Height = 735
Left = 120
TabIndex = 17
Top = 1800
Width = 9975
Begin VB.TextBox Text3
Height = 270
Left = 5160
TabIndex = 22
Text = "80"
Top = 360
Width = 855
End
Begin VB.TextBox Text2
Height = 270
Left = 1200
TabIndex = 20
Top = 360
Width = 3255
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "端口:"
Height = 180
Left = 4680
TabIndex = 21
Top = 360
Width = 450
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "代理服务器:"
Height = 180
Left = 120
TabIndex = 19
Top = 360
Width = 990
End
End
Begin VB.CommandButton Command5
Caption = "如何设置FTP及HTTP的登陆用户名和密码"
Height = 255
Left = 4560
TabIndex = 16
Top = 1320
Width = 5535
End
Begin VB.TextBox Text1
Height = 270
Left = 2760
TabIndex = 14
Text = "30000"
Top = 1320
Width = 1095
End
Begin VB.CheckBox Check2
Caption = "使用Cookie"
Height = 255
Left = 120
TabIndex = 12
Top = 1320
Value = 1 'Checked
Width = 1455
End
Begin VB.Frame Frame1
Caption = "控件外观设置"
Height = 975
Left = 120
TabIndex = 1
Top = 120
Width = 9975
Begin VB.CommandButton Command4
Caption = "设置字体"
Height = 255
Left = 5160
TabIndex = 11
Top = 600
Width = 1455
End
Begin VB.CommandButton Command3
Caption = "设置控件色"
Height = 255
Left = 3480
TabIndex = 10
Top = 600
Width = 1455
End
Begin VB.CommandButton Command2
Caption = "设置前景色"
Height = 255
Left = 1800
TabIndex = 9
Top = 600
Width = 1455
End
Begin VB.CommandButton Command1
Caption = "设置背景色"
Height = 255
Left = 120
TabIndex = 8
Top = 600
Width = 1455
End
Begin VB.CheckBox Check1
Caption = "显示百分比"
Height = 255
Left = 7200
TabIndex = 7
Top = 240
Value = 1 'Checked
Width = 1215
End
Begin VB.OptionButton Option1
Caption = "圆形进度条"
Height = 255
Index = 3
Left = 4200
TabIndex = 6
Top = 240
Width = 1335
End
Begin VB.OptionButton Option1
Caption = "指针进度条"
Height = 255
Index = 4
Left = 5520
TabIndex = 5
Top = 240
Width = 1215
End
Begin VB.OptionButton Option1
Caption = "纵向进度条"
Height = 255
Index = 2
Left = 2880
TabIndex = 4
Top = 240
Width = 1215
End
Begin VB.OptionButton Option1
Caption = "横向进度条"
Height = 255
Index = 1
Left = 1560
TabIndex = 3
Top = 240
Value = -1 'True
Width = 1215
End
Begin VB.OptionButton Option1
Caption = "只显示百分比"
Height = 255
Index = 0
Left = 120
TabIndex = 2
Top = 240
Width = 1455
End
End
Begin VB.Label Label6
BorderStyle = 1 'Fixed Single
Caption = "就绪"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -