home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
distrib.akp.su/Programming/Vb-6+Rus/
/
distrib.akp.su.tar
/
distrib.akp.su
/
Programming
/
Vb-6+Rus
/
VB98
/
TEMPLATE
/
MENUS
/
VIEWMENU.FRM
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1998-06-18
|
4KB
|
125 lines
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 = "&View"
Begin VB.Menu mnuViewToolbar
Caption = "&Toolbar"
End
Begin VB.Menu mnuViewStatusBar
Caption = "Status &Bar"
End
Begin VB.Menu mnuViewBar1
Caption = "-"
End
Begin VB.Menu mnuViewLargeIcons
Caption = "Lar&ge Icons"
End
Begin VB.Menu mnuViewSmallIcons
Caption = "S&mall Icons"
End
Begin VB.Menu mnuViewList
Caption = "&List"
End
Begin VB.Menu mnuViewDetails
Caption = "&Details"
End
Begin VB.Menu mnuViewBar2
Caption = "-"
End
Begin VB.Menu mnuViewArrangeIcons
Caption = "Arrange &Icons"
Begin VB.Menu mnuVAIByName
Caption = "by &Name"
End
Begin VB.Menu mnuVAIByType
Caption = "by &Type"
End
Begin VB.Menu mnuVAIBySize
Caption = "by Si&ze"
End
Begin VB.Menu mnuVAIByDate
Caption = "by &Date"
End
End
Begin VB.Menu mnuViewLineUpIcons
Caption = "Li&ne Up Icons"
End
Begin VB.Menu mnuViewBar3
Caption = "-"
End
Begin VB.Menu mnuViewRefresh
Caption = "&Refresh"
End
Begin VB.Menu mnuViewOptions
Caption = "&Options..."
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