frmmenu.frm

用VB语言编写的电子书阅读器

VERSION 5.00
Begin VB.Form frmMenu 
   AutoRedraw      =   -1  'True
   ClientHeight    =   3090
   ClientLeft      =   8850
   ClientTop       =   12990
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3090
   ScaleWidth      =   4680
   Begin VB.Menu mnuControl 
      Caption         =   "Control"
      Begin VB.Menu first 
         Caption         =   "-"
      End
      Begin VB.Menu mnuBookCollection 
         Caption         =   "我的书架"
      End
      Begin VB.Menu second 
         Caption         =   "-"
      End
      Begin VB.Menu mnuMusicCollection 
         Caption         =   "我的音乐"
      End
      Begin VB.Menu third 
         Caption         =   "-"
      End
      Begin VB.Menu mnuBookFlag 
         Caption         =   "添加书签"
      End
      Begin VB.Menu fourth 
         Caption         =   "-"
      End
      Begin VB.Menu mnuFirstPage 
         Caption         =   "第一页"
      End
      Begin VB.Menu mnuLastPage 
         Caption         =   "最后一页"
      End
      Begin VB.Menu mnuPreviousPage 
         Caption         =   "上一页"
      End
      Begin VB.Menu mnuNextPage 
         Caption         =   "下一页"
      End
      Begin VB.Menu fifth 
         Caption         =   "-"
      End
      Begin VB.Menu mnuExit 
         Caption         =   "离开"
      End
   End
   Begin VB.Menu mnuMusic 
      Caption         =   "Music"
      Begin VB.Menu mnuMusicAdd 
         Caption         =   "添加音乐"
      End
      Begin VB.Menu mnuMusicDel 
         Caption         =   "删除音乐"
      End
      Begin VB.Menu sixth 
         Caption         =   "-"
      End
      Begin VB.Menu mnuMusicShuffle 
         Caption         =   "随机播放"
      End
      Begin VB.Menu mnuMusicLoop 
         Caption         =   "顺序播放"
      End
      Begin VB.Menu seventh 
         Caption         =   "-"
      End
      Begin VB.Menu mnuMusicHide 
         Caption         =   "隐藏"
      End
   End
End
Attribute VB_Name = "frmMenu"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
 Option Explicit

Private Sub mnuBookCollection_Click()       '打开书架
    
    frmBookCollection.Show
    
End Sub

Private Sub mnuBookFlag_Click()     '记录书签
    Dim i As Integer
    Dim k As Integer
    Dim nodeSele As Node
    Dim boolNoRecord As Boolean     '记录是否存在当前所选子结点的信息
    boolNoRecord = True     '初始设置，不存在
    Set nodeSele = frmBookCollection.treeBookCollection.SelectedItem        '获得当前所选子结点
    k = nodeSele.Parent.Index - 2
    
    If boolBookFlag Then
        For i = 0 To UBound(strBookFlag(), 2)     '检验是否存在当前所选子结点的信息
            If strBookFlag(2, i) Like "*" & nodeSele.Parent.Key & "*" Then
                strBookFlag(1, i) = nodeSele.Text
                strBookFlag(0, i) = frmBook.intReadFlag     '记录书签信息
                boolNoRecord = False        '存在，设置标志
                Exit For
            ElseIf strBookFlag(2, i) Like "*" & nodeSele.Key & "*" Then     '如果用户再次保存已记录过的目录书签，就只更改行数
                strBookFlag(0, i) = frmBook.intReadFlag
                boolNoRecord = False        '存在，设置标志
                Exit For
            End If
        Next i
        If boolNoRecord Then        '不存在，建立新记录
            ReDim Preserve strBookFlag(3, UBound(strBookFlag(), 2) + 1)
            strBookFlag(2, UBound(strBookFlag(), 2)) = frmBookCollection.listBookPath.List(k)
            strBookFlag(1, UBound(strBookFlag(), 2)) = nodeSele.Text
            strBookFlag(0, UBound(strBookFlag(), 2)) = frmBook.intReadFlag   '记录信息
        End If
    Else
        ReDim Preserve strBookFlag(2, 0)
        strBookFlag(2, 0) = frmBookCollection.listBookPath.List(k)
        strBookFlag(1, 0) = nodeSele.Text
        strBookFlag(0, 0) = frmBook.intReadFlag   '记录信息
        boolBookFlag = True
    End If
End Sub

Private Sub mnuExit_Click()     '退出
    EndProgram      '调用过程
End Sub

Public Sub mnuFirstPage_Click()        '第一页
    frmBook.intReadFlag = 0
    frmBook.NextPage
End Sub

Public Sub mnuLastPage_Click()     '最后一页
    Dim i As Integer
    i = intChapterLinesNum Mod 36       '最后一页应该有几行
    If i = 0 Then
        frmBook.intReadFlag = intChapterLinesNum - 36
    Else
        frmBook.intReadFlag = intChapterLinesNum - i
    End If
    frmBook.NextPage
End Sub

Private Sub mnuMusicAdd_Click()     '添加音乐
    frmBookCollection.boolAddBook = False
    frmMusic.boolAddMusic = True
    frmDirectory.Show
End Sub

Private Sub mnuMusicCollection_Click()       '打开音乐夹
    frmMusic.Show
End Sub

Private Sub mnuMusicDel_Click()     '删除音乐
    Dim meTem As IWMPMedia
    Dim i As Integer
    
    Do Until i > frmMusic.listMusic.ListCount    '每删除一个文件，ListCount属性更改，所以重新循环
        For i = 1 To frmMusic.listMusic.ListCount
            If frmMusic.listMusic.Selected(i - 1) Then
                Set meTem = frmMusic.WMP.currentPlaylist.Item(i - 1)
                frmMusic.WMP.currentPlaylist.RemoveItem meTem         '删除选定文件
                frmMusic.listMusic.RemoveItem (i - 1)
                Exit For
            End If
        Next i
    Loop
End Sub

Private Sub mnuMusicHide_Click()        '隐藏音乐夹
    frmMusic.Hide
End Sub

Private Sub mnuMusicLoop_Click()        '顺序播放
    frmMusic.WMP.settings.setMode "shuffle", False
    frmMusic.WMP.settings.setMode "loop", True
End Sub

Private Sub mnuMusicShuffle_Click()     '随机播放
    frmMusic.WMP.settings.setMode "shuffle", True
End Sub

Private Sub mnuNextPage_Click()     '下一页
    frmBook.NextPage
End Sub

Private Sub mnuPreviousPage_Click()     '上一页
    frmBook.PreviousPage
End Sub