Form'umuza 6 Adet Commandbutton ekleyelim..

Kod:
cmdPlay cmdPause cmdStop cmdNextChapter cmdPrevious cmdReplay
Şu Şekilde isimlendirelim Hepsini.

CTRL+T Yapıyoruz.

Acılan pencereden
Kod:
MSWebDVD 1.0 Type Library yi secip tamam diyoruz.
-Daha sonra formumuza soldaki component menusunden 1 adet MSWebDVD ekliyoruz ve ismini DVD1 yapıyoruz.(DVD oynatabilecek kadar geniş olsun)

Ekledikten sonra tek bi işlem kalıyor.
Bu Kodları form'a yapıştırıyoruz.


Kod:
Private Sub MSWebDVD1_DVDNotify(ByVal lEventCode As Long, ByVal lParam1 As Variant, ByVal lParam2 As Variant) End Sub Private Sub cmdNextChapter_Click() Form1.DVD1.PlayNextChapter End Sub Private Sub cmdPause_Click() Form1.DVD1.Pause End Sub Private Sub cmdPlay_Click() Form1.DVD1.Play End Sub Private Sub cmdPrevious_Click() Form1.DVD1.PlayPrevChapter End Sub Private Sub cmdReplay_Click() Form1.DVD1.ReplayChapter End Sub Private Sub cmdStop_Click() Form1.DVD1.Stop End Sub

Emeğe saygı..

__________________