📄 frmmain.frm
字号:
EndProperty
End
End
Begin MSComctlLib.ImageList ImageList1
Left = 5640
Top = 2280
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 16711935
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 3
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":B7E8
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":BB3C
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":BE90
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.TreeView tvTreeView
Height = 4800
Left = 0
TabIndex = 2
Top = 705
Width = 2016
_ExtentX = 3545
_ExtentY = 8467
_Version = 393217
Indentation = 529
LineStyle = 1
PathSeparator = "/"
Sorted = -1 'True
Style = 7
HotTracking = -1 'True
ImageList = "ImageList1"
Appearance = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 8.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MSComctlLib.ListView lvListView
Height = 3960
Left = 2055
TabIndex = 1
Top = 1440
Width = 3210
_ExtentX = 5662
_ExtentY = 6985
View = 3
LabelEdit = 1
Sorted = -1 'True
LabelWrap = -1 'True
HideSelection = -1 'True
_Version = 393217
Icons = "imlLarge"
SmallIcons = "imlSmall"
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 8.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
NumItems = 6
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "文件名"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 1
Text = "大小(Bytes)"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 2
Text = "修改日期"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 3
Text = "权限"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 4
Text = "拥有者"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(6) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 5
Text = "组"
Object.Width = 2540
EndProperty
End
Begin MSComctlLib.StatusBar sbStatusBar
Align = 2 'Align Bottom
Height = 270
Left = 0
TabIndex = 0
Top = 7155
Width = 8955
_ExtentX = 15796
_ExtentY = 476
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 1
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 1
Object.Width = 15452
EndProperty
EndProperty
End
Begin MSComDlg.CommonDialog dlgCommonDialog
Left = 1740
Top = 1350
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin MSComctlLib.ImageList imlToolbarIcons
Left = 1740
Top = 1350
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 22
ImageHeight = 20
MaskColor = 16711935
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 13
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":C1E4
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":C788
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":CD2C
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":D2D0
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":D874
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":DE18
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":E3BC
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":E960
Key = ""
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":EF04
Key = ""
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":F4A8
Key = ""
EndProperty
BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":FA4C
Key = ""
EndProperty
BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":FFF0
Key = ""
EndProperty
BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":10594
Key = ""
EndProperty
EndProperty
End
Begin VB.Image imgSplitter
Height = 4788
Left = 1965
MouseIcon = "frmMain.frx":10B38
MousePointer = 99 'Custom
Top = 705
Width = 150
End
Begin VB.Menu mnuFile
Caption = "&文件"
Begin VB.Menu mnuConnect
Caption = "&连接服务器..."
End
Begin VB.Menu sep1
Caption = "-"
End
Begin VB.Menu mnuDownload
Caption = "&下载文件..."
End
Begin VB.Menu mnuUpload
Caption = "&上载文件..."
End
Begin VB.Menu sep2
Caption = "-"
End
Begin VB.Menu mnuFileClose
Caption = "&关闭"
End
End
Begin VB.Menu mnuEdit
Caption = "&编辑"
Begin VB.Menu mnuRename
Caption = "&更改文件名 ..."
End
Begin VB.Menu mnuDelete
Caption = "&删除文件..."
End
Begin VB.Menu sep3
Caption = "-"
End
Begin VB.Menu mnuCreateDir
Caption = "&创建目录 ..."
End
Begin VB.Menu mnuRemoveDir
Caption = "&删除目录"
End
End
Begin VB.Menu mnuView
Caption = "&视图"
Begin VB.Menu mnuViewToolbar
Caption = "&工具栏"
Checked = -1 'True
End
Begin VB.Menu mnuViewStatusBar
Caption = "状态栏"
Checked = -1 'True
End
Begin VB.Menu sep4
Caption = "-"
End
Begin VB.Menu mnuListViewMode
Caption = "大图标"
Index = 0
End
Begin VB.Menu mnuListViewMode
Caption = "小图标"
Index = 1
End
Begin VB.Menu mnuListViewMode
Caption = "列表"
Index = 2
End
Begin VB.Menu mnuListViewMode
Caption = "详细资料"
Index = 3
End
Begin VB.Menu sep5
Caption = "-"
End
Begin VB.Menu mnuOptions
Caption = "&选项..."
End
End
Begin VB.Menu mnuHelp
Caption = "&帮助"
Begin VB.Menu mnuHelpAbout
Caption = "&关于"
End
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Const NAME_COLUMN = 0
Const TYPE_COLUMN = 1
Const SIZE_COLUMN = 2
Const DATE_COLUMN = 3
Private Declare Function LockWindowUpdate Lib "user32" (ByVal hwndLock As Long) As Long
Dim mbMoving As Boolean
Const sglSplitLimit = 500
Private m_LastNode As Node
Private WithEvents m_FtpConnection As CFtpConnection
Attribute m_FtpConnection.VB_VarHelpID = -1
Private m_strFile As String
Private m_lFileSize As Long
Private Sub Check1_Click()
'设置连接模式
If Check1.Value Then
'被动模式
m_FtpConnection.PassiveMode = True
Else
m_FtpConnection.PassiveMode = False
End If
End Sub
Private Sub CoolBar1_HeightChanged(ByVal NewHeight As Single)
SizeControls picSplitter.Left
End Sub
Private Sub Form_Load()
'获得上一次的一些基本参数
Me.Left = GetSetting(App.Title, "Settings", "MainLeft", 1000)
Me.Top = GetSetting(App.Title, "Settings", "MainTop", 1000)
Me.Width = GetSetting(App.Title, "Settings", "MainWidth", 6500)
Me.Height = GetSetting(App.Title, "Settings", "MainHeight", 6500)
Set m_FtpConnection = New CFtpConnection
m_FtpConnection.Timeout = 18000
'定义超时时间
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim i As Integer
'释放该类占用的资源
Set m_FtpConnection = Nothing
'关闭所有窗体，这样释放其占用资源
For i = Forms.Count - 1 To 1 Step -1
Unload Forms(i)
Next
'将这一次执行的一些设置保存到注册表中，以便下一次打开时和本次一样
If Me.WindowState <> vbMinimized Then
SaveSetting App.Title, "Settings", "MainLeft", Me.Left
SaveSetting App.Title, "Settings", "MainTop", Me.Top
SaveSetting App.Title, "Settings", "MainWidth", Me.Width
SaveSetting App.Title, "Settings", "MainHeight", Me.Height
End If
SaveSetting App.Title, "Settings", "ViewMode", lvListView.View
End Sub
Private Sub Form_Resize()
On Error Resume Next
If Me.Width < 3000 Then Me.Width = 3000
SizeControls imgSplitter.Left
End Sub
Private Sub imgSplitter_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
'该事件是是改变拆分条形状
With imgSplitter
picSplitter.Move .Left, .Top, .Width \ 2, .Height - 20
End With
picSplitter.Visible = True
'设置变量，表示开始移动
mbMoving = True
'调用api函数锁住窗体
LockWindowUpdate Me.hwnd
End Sub
Private Sub imgSplitter_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
'该事件为移动拆分条
Dim sglPos As Single
If mbMoving Then
sglPos = x + imgSplitter.Left
If sglPos < sglSplitLimit Then
picSplitter.Left = sglSplitLimit
ElseIf sglPos > Me.Width - sglSplitLimit Then
picSplitter.Left = Me.Width - sglSplitLimit
Else
picSplitter.Left = sglPos
End If
End If
End Sub
Private Sub imgSplitter_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
'取消拆分条的移动
SizeControls picSplitter.Left
picSplitter.Visible = False
mbMoving = False
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -