📄 frmmain.frm
字号:
VERSION 5.00
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "mswinsck.ocx"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "comctl32.ocx"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form frmMain
BorderStyle = 1 'Fixed Single
Caption = "Remote File Manager"
ClientHeight = 6435
ClientLeft = 45
ClientTop = 735
ClientWidth = 10230
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000F&
Icon = "frmMain.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 6435
ScaleWidth = 10230
StartUpPosition = 2 'CenterScreen
Begin MSComDlg.CommonDialog CD
Left = 6000
Top = 960
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin MSWinsockLib.Winsock sckMain
Left = 5280
Top = 2760
_ExtentX = 741
_ExtentY = 741
_Version = 393216
RemotePort = 7080
End
Begin RemoteFileManager.Button cmdDelete
Height = 375
Left = 8520
TabIndex = 12
Top = 5640
Width = 1575
_ExtentX = 2778
_ExtentY = 661
Caption = "Delete File"
ForeColor = -2147483630
End
Begin ComctlLib.StatusBar StatusBar
Align = 2 'Align Bottom
Height = 255
Left = 0
TabIndex = 11
Top = 6180
Width = 10230
_ExtentX = 18045
_ExtentY = 450
Style = 1
SimpleText = "Status: Not connected."
_Version = 327682
BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7}
NumPanels = 1
BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Object.Tag = ""
EndProperty
EndProperty
End
Begin VB.TextBox txtCurDir
Height = 285
Left = 1560
Locked = -1 'True
TabIndex = 10
Top = 5040
Width = 8535
End
Begin MSComctlLib.ImageList ILDir
Left = 360
Top = 3480
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 1
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":3482
Key = "Dir"
Object.Tag = "Dir"
EndProperty
EndProperty
End
Begin MSComctlLib.ImageList ILFile
Left = 4080
Top = 3720
_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 = "frmMain.frx":3E94
Key = "FN"
Object.Tag = "FN"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":442E
Key = "FS"
Object.Tag = "FS"
EndProperty
EndProperty
End
Begin MSComctlLib.ListView LVFile
Height = 3495
Left = 4320
TabIndex = 8
Top = 1440
Width = 5775
_ExtentX = 10186
_ExtentY = 6165
View = 3
LabelEdit = 1
LabelWrap = -1 'True
HideSelection = -1 'True
_Version = 393217
Icons = "ILFile"
SmallIcons = "ILFile"
ColHdrIcons = "ILFile"
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 2
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "File name"
Object.Width = 6668
ImageIndex = 1
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 1
Text = "File size (KB)"
Object.Width = 3352
ImageIndex = 2
EndProperty
End
Begin MSComctlLib.TreeView TVDir
Height = 3495
Left = 120
TabIndex = 7
Top = 1440
Width = 4095
_ExtentX = 7223
_ExtentY = 6165
_Version = 393217
LabelEdit = 1
Style = 7
ImageList = "ILDir"
BorderStyle = 1
Appearance = 0
End
Begin VB.ComboBox cmbDrives
Height = 315
Left = 120
Sorted = -1 'True
Style = 2 'Dropdown List
TabIndex = 6
Top = 960
Width = 1575
End
Begin VB.Frame Frame1
Height = 735
Left = 120
TabIndex = 0
Top = 0
Width = 9975
Begin RemoteFileManager.Button cmdConnect
Height = 285
Left = 8400
TabIndex = 5
Top = 240
Width = 1455
_ExtentX = 2566
_ExtentY = 503
Caption = "Connect"
ForeColor = -2147483630
End
Begin VB.TextBox txtPort
Height = 285
Left = 6720
MaxLength = 5
TabIndex = 4
Text = "7080"
Top = 240
Width = 1335
End
Begin VB.TextBox txtHost
Height = 285
Left = 1560
TabIndex = 2
Top = 240
Width = 3855
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "Remote port:"
ForeColor = &H00BD662D&
Height = 195
Left = 5640
TabIndex = 3
Top = 240
Width = 960
End
Begin VB.Image Image1
Height = 240
Left = 120
Picture = "frmMain.frx":5DC0
Top = 240
Width = 240
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "Remote host:"
ForeColor = &H00BD662D&
Height = 195
Left = 480
TabIndex = 1
Top = 240
Width = 975
End
End
Begin RemoteFileManager.Button cmdRemoveDir
Height = 375
Left = 6840
TabIndex = 13
Top = 5640
Width = 1575
_ExtentX = 2778
_ExtentY = 661
Caption = "Remove Directory"
ForeColor = -2147483630
End
Begin RemoteFileManager.Button cmdFileInfo
Height = 375
Left = 5160
TabIndex = 14
Top = 5640
Width = 1575
_ExtentX = 2778
_ExtentY = 661
Caption = "File Info..."
ForeColor = -2147483630
End
Begin RemoteFileManager.Button cmdExecute
Height = 375
Left = 3480
TabIndex = 15
Top = 5640
Width = 1575
_ExtentX = 2778
_ExtentY = 661
Caption = "Execute File"
ForeColor = -2147483630
End
Begin RemoteFileManager.Button cmdUpload
Height = 375
Left = 1800
TabIndex = 16
Top = 5640
Width = 1575
_ExtentX = 2778
_ExtentY = 661
Caption = "Upload..."
ForeColor = -2147483630
End
Begin RemoteFileManager.Button cmdDownload
Height = 375
Left = 120
TabIndex = 17
Top = 5640
Width = 1575
_ExtentX = 2778
_ExtentY = 661
Caption = "Download..."
ForeColor = -2147483630
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "<- Select a drive from the list."
ForeColor = &H00BD662D&
Height = 195
Left = 2400
TabIndex = 18
Top = 960
Width = 2160
End
Begin VB.Image imgBack
Height = 240
Left = 1920
MouseIcon = "frmMain.frx":67C2
MousePointer = 99 'Custom
Picture = "frmMain.frx":6ACC
ToolTipText = " Previous Directory "
Top = 960
Width = 240
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "Current directory:"
ForeColor = &H00BD662D&
Height = 195
Left = 120
TabIndex = 9
Top = 5040
Width = 1305
End
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -