viewmenu.frm

来自「VB6.0安装软件.代码和安装软件一起.用起来很不错.」· FRM 代码 · 共 140 行

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