📄 inet.frm
字号:
VERSION 5.00
Object = "{48E59290-9880-11CF-9754-00AA00C00908}#1.0#0"; "MSINET.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form form_inet
Caption = "FTP客户端程序"
ClientHeight = 7650
ClientLeft = 135
ClientTop = 360
ClientWidth = 9435
Icon = "inet.frx":0000
LinkTopic = "Form1"
ScaleHeight = 7650
ScaleWidth = 9435
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton cmdCancel
Caption = "取消"
Height = 300
Left = 4356
TabIndex = 22
Top = 4968
Width = 660
End
Begin VB.CommandButton cmdDownLoad
Caption = "<<"
Height = 336
Left = 4320
TabIndex = 21
Top = 4212
Width = 732
End
Begin VB.CommandButton cmdUpLoad
Caption = ">>"
Height = 372
Left = 4320
TabIndex = 20
Top = 3492
Width = 732
End
Begin VB.CommandButton cmdUpSDir
Height = 336
Left = 9000
Picture = "inet.frx":0442
Style = 1 'Graphical
TabIndex = 19
Top = 2700
Width = 408
End
Begin VB.ComboBox Combo1
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 336
Left = 72
TabIndex = 18
Text = "Combo1"
Top = 2772
Width = 3720
End
Begin MSComctlLib.ImageList ImageList1
Left = 4608
Top = 7344
_ExtentX = 794
_ExtentY = 794
BackColor = -2147483643
ImageWidth = 20
ImageHeight = 20
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 3
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "inet.frx":0544
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "inet.frx":0996
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "inet.frx":0AA8
Key = ""
EndProperty
EndProperty
End
Begin VB.FileListBox File1
Height = 456
Left = 4248
TabIndex = 17
Top = 7416
Visible = 0 'False
Width = 1164
End
Begin VB.DirListBox Dir1
Height = 288
Left = 4392
TabIndex = 16
Top = 7452
Visible = 0 'False
Width = 912
End
Begin VB.DriveListBox Drive1
Height = 288
Left = 4356
TabIndex = 15
Top = 7524
Visible = 0 'False
Width = 804
End
Begin VB.ComboBox Combo2
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 336
Left = 5148
TabIndex = 14
Top = 2700
Width = 3792
End
Begin VB.CommandButton cmdUpDir
Height = 336
Left = 3852
Picture = "inet.frx":0BBA
Style = 1 'Graphical
TabIndex = 13
Top = 2736
Width = 408
End
Begin MSComctlLib.ListView ListClientDir
Height = 4368
Left = 72
TabIndex = 12
Top = 3204
Width = 4152
_ExtentX = 7329
_ExtentY = 7699
LabelEdit = 1
LabelWrap = -1 'True
HideSelection = 0 'False
_Version = 393217
Icons = "ImageList1"
SmallIcons = "ImageList1"
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Times New Roman"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
NumItems = 0
End
Begin MSComctlLib.ListView ListServerDir
Height = 4440
Left = 5148
TabIndex = 11
Top = 3132
Width = 4296
_ExtentX = 7594
_ExtentY = 7832
LabelEdit = 1
LabelWrap = -1 'True
HideSelection = 0 'False
_Version = 393217
Icons = "ImageList1"
SmallIcons = "ImageList1"
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Times New Roman"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
NumItems = 0
End
Begin VB.CommandButton cmdConnect
Caption = "连接"
Height = 372
Left = 8856
TabIndex = 10
Top = 36
Width = 552
End
Begin VB.Frame Frame1
Caption = "信息显示"
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 2100
Left = 36
TabIndex = 8
Top = 540
Width = 9336
Begin VB.TextBox Text1
Appearance = 0 'Flat
Height = 1752
Left = 108
Locked = -1 'True
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 9
Top = 252
Width = 9168
End
End
Begin VB.TextBox txtPWD
Appearance = 0 'Flat
BeginProperty Font
Name = "Times New Roman"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 384
IMEMode = 3 'DISABLE
Left = 7668
PasswordChar = "*"
TabIndex = 7
Text = "123321"
Top = 36
Width = 1128
End
Begin VB.TextBox txtUID
Appearance = 0 'Flat
BeginProperty Font
Name = "Times New Roman"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 384
Left = 5832
TabIndex = 6
Text = "all"
Top = 36
Width = 1128
End
Begin VB.TextBox txtPort
Appearance = 0 'Flat
BeginProperty Font
Name = "Times New Roman"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 384
Left = 4356
TabIndex = 5
Text = "21"
Top = 36
Width = 552
End
Begin VB.TextBox txtURl
Appearance = 0 'Flat
BeginProperty Font
Name = "Times New Roman"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 384
Left = 1332
TabIndex = 4
Text = "10.11.111.172"
Top = 36
Width = 2388
End
Begin InetCtlsObjects.Inet Inet1
Left = 4500
Top = 7452
_ExtentX = 794
_ExtentY = 794
_Version = 393216
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "密码:"
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 240
Index = 3
Left = 7056
TabIndex = 3
Top = 108
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -