frmvr.frm

VB中

      ColorKey        =   983055
      WindowlessActivation=   0   'False
   End
   Begin VB.Image Image1 
      Height          =   6480
      Left            =   0
      Picture         =   "frmVR.frx":EE4E
      Stretch         =   -1  'True
      Top             =   0
      Width           =   9600
   End
   Begin VB.Menu mnuEdit 
      Caption         =   "&Edit"
      Begin VB.Menu mnuPref 
         Caption         =   "&Preferences"
      End
      Begin VB.Menu mnuSpacer5 
         Caption         =   "-"
      End
      Begin VB.Menu mnuPlaylist 
         Caption         =   "Show Play&list"
         Shortcut        =   ^L
      End
      Begin VB.Menu mnuSpace 
         Caption         =   "-"
      End
      Begin VB.Menu mnuExit 
         Caption         =   "E&xit"
         Shortcut        =   ^Q
      End
   End
   Begin VB.Menu mnuControls 
      Caption         =   "Player &Controls"
      Begin VB.Menu mnuPlay 
         Caption         =   "Play"
      End
      Begin VB.Menu mnuPause 
         Caption         =   "Pause"
      End
      Begin VB.Menu mnuStop 
         Caption         =   "Stop"
      End
      Begin VB.Menu mnuFastForward 
         Caption         =   "Fast Forward"
      End
      Begin VB.Menu mnuRewind 
         Caption         =   "Rewind"
      End
      Begin VB.Menu mnuNext 
         Caption         =   "Next Chapter"
      End
      Begin VB.Menu mnuPrevious 
         Caption         =   "Previous Chapter"
      End
      Begin VB.Menu mnuMute 
         Caption         =   "Mute"
      End
      Begin VB.Menu mnuSpacer3 
         Caption         =   "-"
      End
      Begin VB.Menu mnuEject 
         Caption         =   "Eject"
      End
   End
   Begin VB.Menu mnuHelp 
      Caption         =   "&Help"
      Begin VB.Menu mnuContents 
         Caption         =   "Help Contents"
         Shortcut        =   {F1}
      End
      Begin VB.Menu Spacer4 
         Caption         =   "-"
      End
      Begin VB.Menu mnuMovieInfo 
         Caption         =   "Movie &Info"
      End
      Begin VB.Menu mnuWebAddress 
         Caption         =   "Your_Site_Name.com"
      End
      Begin VB.Menu mnuSpace2 
         Caption         =   "-"
      End
      Begin VB.Menu mnuAbout 
         Caption         =   "About"
      End
   End
End
Attribute VB_Name = "frmXP"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim iTotalTime As String
Dim strChap As String, strTitle As String, strTemp As String, strMute As String
Dim strRunningTime As String, strPlayState As String
Dim tempTitle As String, Response As Integer, Style As String

Private Sub btnExit_Click()
Unload Me
End
End Sub

Private Sub Form_Load()

'-----------Start Initial Settings-------------------------------------
'Get the DVD title information
GetDVDInfo

'Get the user preferences
GetPref

'Set the logo image & screen size
With Me
    If Toolbar1.Visible = True Then
        .Image1.Top = Top '+ Toolbar1.Height
    ElseIf Toolbar1.Visible = False Then
        .Image1.Top = 0
    End If
    .Image1.Left = 0
    .Left = (Screen.Width - Width) / 2   ' Center form horizontally.
    .Top = (Screen.Height - Height) / 2   ' Center form vertically.
    .Width = Screen.Width * 0.725  ' Set width of form.
    .Height = Screen.Height * 0.75   ' Set height of form.
End With

'Hide the DVD control
ctlDVD.Visible = False

'Set initial panel display values
strTitle = "Title: 0"
strChap = "Chapter: 0"
strRunningTime = "Time: 00:00:00"
iTotalTime = "Length: 00:00:00"

'Set the statusbar's initial panel display
With StatusBar1.Panels
    .Item(1) = Mid$(TitleCaption, 18, Len(TitleCaption))
    .Item(4) = strTitle & Space$(5) & strChap
    .Item(5) = strRunningTime
    .Item(6) = iTotalTime
End With

'Set toolbar initial display
With Toolbar1
    For i = 1 To 26
        .Buttons(i).Enabled = False
    Next i
End With
'---------------------End Initial Settings--------------------------------
End Sub

Private Sub Form_Resize()

Image1.Height = Height - StatusBar1.Height
Image1.Width = Width
ctlDVD.Height = Me.Height - StatusBar1.Height
ctlDVD.Width = Me.Width

Refresh

End Sub

Private Sub Form_Terminate()
End
End Sub

Private Sub Form_Unload(Cancel As Integer)
End
End Sub

Private Sub mnuAbout_Click()
frmAbout.Show
Pause
End Sub

Private Sub mnuContents_Click()
Call Shell("hh.exe help.chm", vbNormalFocus)
Pause
End Sub

Private Sub mnuEject_Click()
Me.ctlDVD.Eject
End Sub

Private Sub mnuExit_Click()
Unload Me
End
End Sub

Private Sub mnuFastForward_Click()
mnuFastForward.Checked = Not (mnuFastForward.Checked)
    If Me.mnuFastForward.Checked = True Then
        Me.ctlDVD.PlayForwards (UserPref.intSpeed)
    ElseIf Me.mnuFastForward.Checked = False Then
        Me.ctlDVD.Play
    End If
End Sub

Private Sub mnuControls_Click() 'This is the control menu item

'Find state
If ctlDVD.PlayState = dvdState_Running Then
    RunningState
ElseIf ctlDVD.PlayState = dvdState_Paused Then
    PausedState
End If

    
End Sub

Private Sub mnuWebAddress_Click()
ShellExecute hwnd, "open", "http://www.your_site_name.com", vbNullString, vbNullString, conSwNormal
End Sub

Private Sub mnuMovieInfo_Click()
frmAboutTitle.Show
Pause
End Sub

Private Sub mnuMute_Click()
If mnuMute.Checked = False Then mnuMute.Checked = True Else mnuMute.Checked = False
If Me.mnuMute.Checked = True Then
    Me.ctlDVD.Mute = True
ElseIf Me.mnuMute.Checked = False Then
    Me.ctlDVD.Mute = False
End If

End Sub

Private Sub mnuNext_Click()
Me.ctlDVD.PlayNextChapter
End Sub

Private Sub mnuPause_Click()
Pause
End Sub

Private Sub mnuPlay_Click()
If ctlDVD.PlayState = dvdState_Stopped Then
    Play
ElseIf ctlDVD.PlayState = dvdState_Paused Then
   ContPlay
End If
Image1.Visible = False
End Sub

Private Sub mnuPlaylist_Click()
frmPlaylist.Show
Pause
End Sub

Private Sub mnuPref_Click()
    frmPref.Show
    Me.ctlDVD.Pause
End Sub

Private Sub mnuPrevious_Click()
Me.ctlDVD.PlayPrevChapter
End Sub

Private Sub mnuRewind_Click()
mnuRewind.Checked = Not (mnuRewind.Checked)
    If Me.mnuRewind.Checked = True Then
        Me.ctlDVD.PlayBackwards (UserPref.intSpeed)
    ElseIf Me.mnuRewind.Checked = False Then
        Me.ctlDVD.Play
    End If
End Sub

Private Sub mnuStop_Click()
Stopped
End Sub

Private Sub Timer1_Timer()

On Error Resume Next

strRunningTime = "Time: " & Mid$(Me.ctlDVD.CurrentTime, 1, 8)
strTitle = "Title: " & Me.ctlDVD.CurrentTitle
strChap = "Chapter: " & Me.ctlDVD.CurrentChapter
iTotalTime = "Length: " & Left$(Me.ctlDVD.TotalTitleTime, 8)

If Me.ctlDVD.PlayState = dvdState_Paused Then
    strPlayState = "Paused"
    StatusBar1.Panels.Item(2).Bevel = sbrRaised
ElseIf Me.ctlDVD.PlayState = dvdState_Running Then
    strPlayState = "Playing"
    StatusBar1.Panels.Item(2).Bevel = sbrInset
    StatusBar1.Panels.Item(2).Enabled = True
ElseIf Me.ctlDVD.PlayState = dvdState_Stopped Then
    strPlayState = "Stopped"
    StatusBar1.Panels.Item(2).Bevel = sbrRaised
    StatusBar1.Panels.Item(2).Enabled = False
Else
    strPlayState = ""
End If

If Me.mnuMute.Checked = True Then
    strMute = "Sound Off"
    StatusBar1.Panels.Item(3).Bevel = sbrRaised
ElseIf Me.mnuMute.Checked = False Then
    strMute = "Sound On"
    StatusBar1.Panels.Item(3).Bevel = sbrInset
End If

If strTitle = 0 Then
    With StatusBar1.Panels
        .Item(2) = strPlayState
        .Item(3) = strMute
        .Item(4) = strTitle & Space$(5) & strChap
        .Item(5) = strRunningTime
        .Item(6) = iTotalTime
    End With
End If

End Sub

Private Sub Timer2_Timer()
If ctlDVD.DVDUniqueID = TitleID(0) Then
    frmNowShowing.Show
Else
    Timer2.Enabled = False
    Exit Sub
End If
'Play the video
Me.ctlDVD.Play
Timer2.Enabled = False
End Sub

Private Sub tmrMainFrm_Timer()
With Me
    .ctlDVD.Visible = True
    .StatusBar1.Enabled = True
    If ctlDVD.PlayState = dvdState_Running Then
        .mnuPlay.Enabled = False
        With .Toolbar1
            For i = 1 To 10
                .Buttons(i).Enabled = True
            Next i
            .Buttons(11).Enabled = False
            For i = 12 To 14
                .Buttons(i).Enabled = True
            Next i
            .Buttons(16).Enabled = False
            For i = 18 To 26
                .Buttons(i).Enabled = True
            Next i
        End With
    Else
        .mnuPlay.Enabled = True
    End If
    .ctlDVD.Visible = True
    .Caption = TitleCaption
    .Image1.Visible = False
End With

If UserPref.bFullScreen = True Then
    ctlDVD.FullScreenMode = True
    frmPref.cbFullScreen.Value = 1
ElseIf UserPref.bFullScreen = False Then
    ctlDVD.FullScreenMode = False
    frmPref.cbFullScreen.Value = 0
End If

tmrMainFrm.Enabled = False
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)

'Add the mute off button
'Add a menu drop down
Select Case Button.Key
    
    Case "Exit"
        Unload Me
        End
    Case "BtnUp"
        ctlDVD.SelectUpperButton
    Case "BtnDn"
        ctlDVD.SelectLowerButton
    Case "BtnLt"
        ctlDVD.SelectLeftButton
    Case "BtnRt"
        ctlDVD.SelectRightButton
    Case "Previous"
        ctlDVD.PlayPrevChapter
    Case "Rewind"
        ctlDVD.PlayBackwards (UserPref.intSpeed)
        mnuRewind.Checked = Not (mnuRewind.Checked)
        PlayOnly
    Case "Stop"
        Stopped
    Case "Play"
        Play
    Case "Pause"
        Pause
    Case "FF"
        ctlDVD.PlayForwards (UserPref.intSpeed)
        mnuFastForward.Checked = Not (mnuFastForward.Checked)
        PlayOnly
    Case "Next"
        ctlDVD.PlayNextChapter
    Case "Eject"
        ctlDVD.Eject
    Case "Mute"
        ctlDVD.Mute = Not (ctlDVD.Mute)
        If ctlDVD.Mute = True Then
            mnuMute.Checked = True
            StatusBar1.Panels(3).Bevel = sbrRaised
            strMute = "Sound Off"
        ElseIf ctlDVD.Mute = False Then
            mnuMute.Checked = False
            StatusBar1.Panels(3).Bevel = sbrInset
            strMute = "Sound On"
        End If
    Case "Pref"
        frmPref.Show
        Pause
    Case "PlayList"
        frmPlaylist.Show
        Pause
    Case "MovieInfo"
        frmAboutTitle.Show
        Pause
    Case "Help"
        Call Shell("hh.exe help.chm", vbNormalFocus)
        Pause
    Case "About"
        frmAbout.Show
        Pause
End Select

End Sub