📄 frmdownload.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Object = "{48E59290-9880-11CF-9754-00AA00C00908}#1.0#0"; "MSINET.OCX"
Begin VB.Form frmDownload
BorderStyle = 1 'Fixed Single
Caption = "在线更新程序 - 下载中..."
ClientHeight = 5130
ClientLeft = 120
ClientTop = 420
ClientWidth = 7035
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5130
ScaleWidth = 7035
StartUpPosition = 3 '窗口缺省
Begin VB.Timer tmrTimeLeft
Interval = 1000
Left = 630
Top = 3630
End
Begin VB.Timer tmrUpdateProgress
Interval = 1
Left = 1020
Top = 3060
End
Begin VB.Timer tmrStart
Interval = 100
Left = 1680
Top = 4530
End
Begin MSWinsockLib.Winsock Winsock
Left = 2640
Top = 4560
_ExtentX = 741
_ExtentY = 741
_Version = 393216
End
Begin VB.TextBox txtWebsite
Height = 285
Left = 480
TabIndex = 17
Text = "http://homepage.ntlworld.com/hughes.clan/tracker/update.exe"
Top = 4440
Visible = 0 'False
Width = 150
End
Begin MSComctlLib.TreeView lstList
Height = 2175
Left = 2280
TabIndex = 0
Top = 1080
Width = 4455
_ExtentX = 7858
_ExtentY = 3836
_Version = 393217
Style = 7
ImageList = "imgImageList"
Appearance = 1
End
Begin MSComCtl2.Animation aniAnimation
Height = 150
Left = 240
TabIndex = 11
Top = 4440
Visible = 0 'False
Width = 135
_ExtentX = 238
_ExtentY = 265
_Version = 393216
FullWidth = 9
FullHeight = 10
End
Begin VB.Timer tmrProgress
Interval = 1
Left = 2160
Top = 4560
End
Begin InetCtlsObjects.Inet netNews
Left = 6360
Top = 0
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
End
Begin VB.CommandButton cmdFinish
Caption = "退出"
Height = 375
Left = 5640
TabIndex = 6
Top = 4560
Width = 1215
End
Begin VB.CommandButton cmdCancel
Caption = "Cancel"
Height = 375
Left = 5640
TabIndex = 4
Top = 4560
Width = 1215
End
Begin VB.CommandButton cmdNext
Caption = "下一步(&N) >"
Enabled = 0 'False
Height = 375
Left = 4320
TabIndex = 3
Top = 4560
Width = 1215
End
Begin VB.CommandButton cmdBack
Caption = "< 后退(&B)"
Enabled = 0 'False
Height = 375
Left = 3120
TabIndex = 2
Top = 4560
Width = 1215
End
Begin VB.PictureBox picPicture
AutoSize = -1 'True
Height = 3885
Left = 240
Picture = "frmDownload.frx":0000
ScaleHeight = 3825
ScaleWidth = 1770
TabIndex = 1
Top = 240
Width = 1830
End
Begin MSComctlLib.ProgressBar proProgress
Height = 375
Left = 2160
TabIndex = 5
Top = 3840
Width = 4695
_ExtentX = 8281
_ExtentY = 661
_Version = 393216
Appearance = 1
MousePointer = 11
Scrolling = 1
End
Begin MSComctlLib.ImageList imgImageList
Left = 5760
Top = 0
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 2
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmDownload.frx":3D62
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmDownload.frx":40FC
Key = ""
EndProperty
EndProperty
End
Begin RichTextLib.RichTextBox rtbNews
Height = 2175
Left = 2280
TabIndex = 10
Top = 1080
Width = 4455
_ExtentX = 7858
_ExtentY = 3836
_Version = 393217
ReadOnly = -1 'True
TextRTF = $"frmDownload.frx":4496
End
Begin VB.Label lblElapsed
BackStyle = 0 'Transparent
Height = 255
Left = 4800
TabIndex = 23
Top = 3480
Width = 855
End
Begin VB.Label lblRemaining
BackStyle = 0 'Transparent
Height = 255
Left = 3090
TabIndex = 22
Top = 3495
Width = 855
End
Begin VB.Label lblSpeed
BackStyle = 0 'Transparent
Height = 255
Left = 6450
TabIndex = 21
Top = 3240
Width = 495
End
Begin VB.Label lblRecieved
BackStyle = 0 'Transparent
Height = 255
Left = 4815
TabIndex = 20
Top = 3255
Width = 855
End
Begin VB.Label lblSize
BackStyle = 0 'Transparent
Height = 255
Left = 3000
TabIndex = 19
Top = 3240
Width = 855
End
Begin VB.Label lblStatus
Alignment = 2 'Center
BackStyle = 0 'Transparent
Height = 255
Left = 2160
TabIndex = 18
Top = 3615
Width = 4695
End
Begin VB.Label lblSizeLabel
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "文件大小:"
Height = 180
Left = 2280
TabIndex = 16
Top = 3285
Width = 810
End
Begin VB.Label lblRecievedLabel
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "接收字节:"
Height = 180
Left = 3960
TabIndex = 15
Top = 3285
Width = 810
End
Begin VB.Label lblSpeedLabel
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "速度:"
Height = 180
Left = 6000
TabIndex = 14
Top = 3270
Width = 450
End
Begin VB.Label lblRemainingLabel
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "剩余时间:"
Height = 180
Left = 2280
TabIndex = 13
Top = 3525
Width = 810
End
Begin VB.Label lblElapsedLabel
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "用时:"
Height = 180
Left = 4320
TabIndex = 12
Top = 3510
Width = 450
End
Begin VB.Label lblHeader
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "数据正在下载中....."
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 180
Left = 2160
TabIndex = 9
Top = 360
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -