You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
140 lines
3.3 KiB
140 lines
3.3 KiB
VERSION 5.00
|
|
Begin VB.Form frmViewMenu
|
|
Caption = "Form1"
|
|
ClientHeight = 8280
|
|
ClientLeft = -9996
|
|
ClientTop = 2052
|
|
ClientWidth = 6684
|
|
LinkTopic = "Form1"
|
|
ScaleHeight = 8280
|
|
ScaleWidth = 6684
|
|
Begin VB.Menu mnuView
|
|
Caption = "视图(&V)"
|
|
Begin VB.Menu mnuViewToolbar
|
|
Caption = "工具栏(&T)"
|
|
End
|
|
Begin VB.Menu mnuViewStatusBar
|
|
Caption = "状态栏(&B)"
|
|
End
|
|
Begin VB.Menu mnuViewBar1
|
|
Caption = "-"
|
|
End
|
|
Begin VB.Menu mnuViewLargeIcons
|
|
Caption = "大图标(&G)"
|
|
End
|
|
Begin VB.Menu mnuViewSmallIcons
|
|
Caption = "小图标(&M)"
|
|
End
|
|
Begin VB.Menu mnuViewList
|
|
Caption = "列表(&L)"
|
|
End
|
|
Begin VB.Menu mnuViewDetails
|
|
Caption = "详细资料(&D)"
|
|
End
|
|
Begin VB.Menu mnuViewBar2
|
|
Caption = "-"
|
|
End
|
|
Begin VB.Menu mnuViewArrangeIcons
|
|
Caption = "排列图标(&I)"
|
|
Begin VB.Menu mnuVAIByName
|
|
Caption = "按名称(&N)"
|
|
End
|
|
Begin VB.Menu mnuVAIByType
|
|
Caption = "按类型(&T)"
|
|
End
|
|
Begin VB.Menu mnuVAIBySize
|
|
Caption = "按大小(&Z)"
|
|
End
|
|
Begin VB.Menu mnuVAIByDate
|
|
Caption = "按日期(&D)"
|
|
End
|
|
End
|
|
Begin VB.Menu mnuViewLineUpIcons
|
|
Caption = "行列对齐(&N)"
|
|
End
|
|
Begin VB.Menu mnuViewBar3
|
|
Caption = "-"
|
|
End
|
|
Begin VB.Menu mnuViewRefresh
|
|
Caption = "刷新(&R)"
|
|
End
|
|
Begin VB.Menu mnuViewOptions
|
|
Caption = "选项(&O)..."
|
|
End
|
|
End
|
|
End
|
|
Attribute VB_Name = "frmViewMenu"
|
|
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 Sub mnuVAIByDate_Click()
|
|
' lvListView.SortKey = DATE_COLUMN
|
|
End Sub
|
|
|
|
Private Sub mnuVAIByName_Click()
|
|
' lvListView.SortKey = NAME_COLUMN
|
|
End Sub
|
|
|
|
Private Sub mnuVAIBySize_Click()
|
|
' lvListView.SortKey = SIZE_COLUMN
|
|
End Sub
|
|
|
|
Private Sub mnuVAIByType_Click()
|
|
' lvListView.SortKey = TYPE_COLUMN
|
|
End Sub
|
|
|
|
Private Sub mnuViewDetails_Click()
|
|
' lvListView.View = lvwReport
|
|
End Sub
|
|
|
|
Private Sub mnuViewLargeIcons_Click()
|
|
' lvListView.View = lvwIcon
|
|
End Sub
|
|
|
|
Private Sub mnuViewLineUpIcons_Click()
|
|
' lvListView.Arrange = lvwAutoLeft
|
|
End Sub
|
|
|
|
Private Sub mnuViewList_Click()
|
|
' lvListView.View = lvwList
|
|
End Sub
|
|
|
|
Private Sub mnuViewOptions_Click()
|
|
' frmOptions.Show vbModal
|
|
End Sub
|
|
|
|
Private Sub mnuViewRefresh_Click()
|
|
MsgBox "Place Refresh Code here!"
|
|
End Sub
|
|
|
|
Private Sub mnuViewSmallIcons_Click()
|
|
' lvListView.View = lvwSmallIcon
|
|
End Sub
|
|
|
|
Private Sub mnuViewStatusBar_Click()
|
|
If mnuViewStatusBar.Checked Then
|
|
' sbStatusBar.Visible = False
|
|
mnuViewStatusBar.Checked = False
|
|
Else
|
|
' sbStatusBar.Visible = True
|
|
mnuViewStatusBar.Checked = True
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub mnuViewToolbar_Click()
|
|
If mnuViewToolbar.Checked Then
|
|
' tbToolBar.Visible = False
|
|
mnuViewToolbar.Checked = False
|
|
Else
|
|
' tbToolBar.Visible = True
|
|
mnuViewToolbar.Checked = True
|
|
End If
|
|
End Sub
|