«

»

Lis 03

Wydrukuj to Wpis

Visual Basic-Odtwarzacz

Visual-Basic-Odtwarzacz-Media-Player

Odtwarzacz ma takie elementy jak przyciski Plik, Widok, Odtwórz, Narzędzia i Pomoc dla Odtwarzacza.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
Public Class Form1
 
    Private Sub OtwórzToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OtwórzToolStripMenuItem.Click
        'Użytkownik wybiera plik
        OpenFileDialog1.ShowDialog()
        'Odtwarzanie pliku multimedialnego
        AxWindowsMediaPlayer1.URL = OpenFileDialog1.FileName
        AxWindowsMediaPlayer1.Ctlcontrols.play()
    End Sub
 
    Private Sub ZakończToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ZakończToolStripMenuItem.Click
        'Zakończ
        Application.Exit()
    End Sub
 
    Private Sub PełnyEkranToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PełnyEkranToolStripMenuItem.Click
        'Pełny ekran
        If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPlaying Then
            AxWindowsMediaPlayer1.fullScreen = True
        End If
    End Sub
 
    Private Sub StylKlasycznyToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StylKlasycznyToolStripMenuItem.Click
        'Wizualizacje - Styl klasyczny
        MenuStrip1.RenderMode = ToolStripRenderMode.System
    End Sub
 
    Private Sub StylXPToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StylXPToolStripMenuItem.Click
        'Wizualizacje - Styl XP
        MenuStrip1.RenderMode = ToolStripRenderMode.Professional
    End Sub
 
    Private Sub OdtwórzToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OdtwórzToolStripMenuItem1.Click
        'Odtwórz
        AxWindowsMediaPlayer1.Ctlcontrols.play()
    End Sub
 
    Private Sub WstrzymajToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WstrzymajToolStripMenuItem.Click
        'Wstrzymaj
        AxWindowsMediaPlayer1.Ctlcontrols.pause()
    End Sub
 
    Private Sub WyciszToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WyciszToolStripMenuItem.Click
        'Wycisz
        AxWindowsMediaPlayer1.settings.mute = True
    End Sub
 
    Private Sub DźwiękToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DźwiękToolStripMenuItem.Click
        'Dźwięk
        AxWindowsMediaPlayer1.settings.mute = False
    End Sub
 
    Private Sub NarzędziaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NarzędziaToolStripMenuItem.Click
        'Narzędzia
        AxWindowsMediaPlayer1.ShowPropertyPages()
    End Sub
 
    Private Sub PomocToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PomocToolStripMenuItem.Click
        System.Windows.Forms.Help.ShowHelp(Me, "help.chm", HelpNavigator.AssociateIndex)
    End Sub
End Class

Załączniki do pobrania

Permalink do tego artykułu: http://tmall.com.pl/visual-basic-odtwarzacz/

Dodaj komentarz

Twój adres email nie zostanie opublikowany. Pola, których wypełnienie jest wymagane, są oznaczone symbolem *

Możesz użyć tych znaczników i atrybutów HTMLa: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>