menubar.frm

visual basic课程设计案例精编

VERSION 5.00
Begin VB.Form MenuBar 
   BorderStyle     =   0  'None
   Caption         =   "Menu"
   ClientHeight    =   3195
   ClientLeft      =   150
   ClientTop       =   435
   ClientWidth     =   4680
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   Begin VB.Menu MenuBar 
      Caption         =   "  "
      Visible         =   0   'False
      Begin VB.Menu PlayP 
         Caption         =   "播放/暂停"
      End
      Begin VB.Menu Voice 
         Caption         =   "音量"
         Begin VB.Menu VoiceUp 
            Caption         =   "增大(&U)"
         End
         Begin VB.Menu VoiceDown 
            Caption         =   "减小(&D)"
         End
         Begin VB.Menu NoSound 
            Caption         =   "静音(&N)"
         End
         Begin VB.Menu SoundOp 
            Caption         =   "声音开启(&N)"
            Visible         =   0   'False
         End
      End
      Begin VB.Menu ResizeSc 
         Caption         =   "缩放(&Z)"
         Begin VB.Menu HalfSc 
            Caption         =   "50%"
         End
         Begin VB.Menu DefaultSc 
            Caption         =   "100%"
         End
         Begin VB.Menu DoubleSc 
            Caption         =   "200%"
         End
      End
      Begin VB.Menu CurrentTime 
         Caption         =   "操作"
         Begin VB.Menu GoFront 
            Caption         =   "快进>>>"
         End
         Begin VB.Menu GoBack 
            Caption         =   "后退<<<"
         End
      End
      Begin VB.Menu FullSc 
         Caption         =   "全屏幕(&F)"
      End
      Begin VB.Menu ProShow 
         Caption         =   "属性(&P)"
      End
      Begin VB.Menu About 
         Caption         =   "帮助(&H)"
      End
      Begin VB.Menu CloseSc 
         Caption         =   "关闭(&C)"
      End
   End
End
Attribute VB_Name = "MenuBar"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub ForInPlay()
If PlPa Then Showfrm.Media1.Pause
End Sub

Private Sub About_Click() '帮助
ForInPlay
frmAbout.Show
End Sub

Private Sub GoBack_Click()  '后退
GoBackFor (False)
End Sub

Private Sub GoFront_Click() '前进
GoBackFor (True)
End Sub

Private Sub HalfSc_Click()   '50%显示
ChangeSize (0)
End Sub

Private Sub DefaultSc_Click() '标准显示
ChangeSize (1)
End Sub

Private Sub DoubleSc_Click() '双倍窗口
ChangeSize (2)
End Sub


Private Sub FullSc_Click() '全屏幕
ChangeSize (3)
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) '撤消多余左键
MenuBar.Visible = False
End Sub

Private Sub PlayP_Click() '播放/停止
PlayPbb
End Sub

Private Sub NoSound_Click()
   Showfrm.Media1.Volume = -4000   '静音
   NoSound.Visible = False
   VoiceDown.Enabled = False
   SoundOp.Visible = True
End Sub



Private Sub ProShow_Click()  '属性显示
ForInPlay
ForFrm.Show
End Sub

Private Sub SoundOp_Click()
  Showfrm.Media1.Volume = -2000 '静音取消
   NoSound.Visible = True
   VoiceDown.Enabled = True
   SoundOp.Visible = False
End Sub

Private Sub VoiceDown_Click()
If Showfrm.Media1.Volume <> -4000 Then
   Showfrm.Media1.Volume = Showfrm.Media1.Volume - 200 '音量减少
Else
   VoiceDown.Enabled = False
End If
VoiceUp.Enabled = True
End Sub

Private Sub VoiceUp_Click()
If Showfrm.Media1.Volume <> 0 Then
   Showfrm.Media1.Volume = Showfrm.Media1.Volume + 200 '音量增大
Else
   VoiceUp.Enabled = False
End If
VoiceDown.Enabled = True
NoSound.Visible = True
SoundOp.Visible = False
End Sub

Private Sub CloseSc_Click()
Showfrm.Media1.Stop
Unload Showfrm
End Sub