Imports Microsoft.DirectX.AudioVideoPlayback
Public Class Media_Player
Dim InRiproduzioneVideo As Video
Dim InRiproduzioneAudio As Audio
Dim RiproduzioneVideo As Boolean
Private Sub Chiudi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Chiudi.Click
Application.Exit()
End Sub
Private Sub RiduciAicona_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RiduciAicona.Click
Me.WindowState = FormWindowState.Minimized
End Sub
Private Sub Titolo_MouseCaptureChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Titolo.MouseCaptureChanged
Me.Location = Control.MousePosition
End Sub
Private Sub ApriVideoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ApriVideoToolStripMenuItem.Click
Try
Try
InRiproduzioneVideo.Stop()
Catch ex As Exception
End Try
Try
InRiproduzioneAudio.Stop()
Catch ex As Exception
End Try
Apri.ShowDialog()
FileAperto.Text = "Apertura del file in corso..."
InRiproduzioneVideo = Video.FromFile(Apri.FileName, True)
Play.Text = "||"
RiproduzioneVideo = True
FileAperto.Text = Apri.FileName
Tempo.Start()
Catch ex As Exception
MsgBox("Il file che si sta tentando di aprire non è un file video valido o non è compatibile con GN Media Player")
End Try
End Sub
Private Sub Play_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Play.Click
If RiproduzioneVideo = True Then
If InRiproduzioneVideo.Playing = True Then
InRiproduzioneVideo.Pause()
Play.Text = "|>"
ElseIf InRiproduzioneVideo.Paused = True Then
InRiproduzioneVideo.Play()
Play.Text = "||"
End If
Else
If InRiproduzioneAudio.Playing = True Then
InRiproduzioneAudio.Pause()
Play.Text = "|>"
ElseIf InRiproduzioneAudio.Paused = True Then
InRiproduzioneAudio.Play()
Play.Text = "||"
End If
End If
End Sub
Private Sub Interrompi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Interrompi.Click
If RiproduzioneVideo = True Then
InRiproduzioneVideo.Stop()
Play.Text = "|>"
Else
InRiproduzioneAudio.Stop()
Play.Text = "|>"
End If
End Sub
Private Sub ApriAudioToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ApriAudioToolStripMenuItem.Click
Try
Try
InRiproduzioneVideo.Stop()
Catch ex As Exception
End Try
Try
InRiproduzioneAudio.Stop()
Catch ex As Exception
End Try
Apri.ShowDialog()
InRiproduzioneAudio = Audio.FromFile(Apri.FileName, True)
Play.Text = "||"
RiproduzioneVideo = False
FileAperto.Text = Apri.FileName
Tempo.Start()
Catch ex As Exception
MsgBox("Il file che si sta tentando di aprire non è un file audio valido o non è compatibile con GN Media Player")
End Try
End Sub
Private Sub Tempo_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tempo.Tick
If RiproduzioneVideo = True Then
If InRiproduzioneVideo.CurrentPosition = InRiproduzioneVideo.Duration Then
InRiproduzioneVideo.Stop()
Play.Text = "|>"
End If
Else
If InRiproduzioneAudio.CurrentPosition = InRiproduzioneAudio.Duration Then
InRiproduzioneAudio.Stop()
Play.Text = "|>"
End If
End If
End Sub
Private Sub InformazioniSuToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InformazioniSuToolStripMenuItem.Click
AboutBox.ShowDialog()
End Sub
End Class