Tokat-Reşadiye Teknik ve Endüstri Meslek Lisesi Bilişim Teknolojileri Alanı 12-D Sınıfı

Tokat-Reşadiye Teknik ve Endüstri Meslek Lisesi Bilişim Teknolojileri Alanı 12-D Sınıfı

Gökhan KILIÇ-Recep TÜRK
 
AnasayfaKapıTakvimGaleriSSSKayıt OlGiriş yap
Arama
 
 

Sonuç :
 
Rechercher çıkıntı araştırma
En son konular
» Leman Sam-Kıyamam Sana
Çarş. Mart 17, 2010 5:48 pm tarafından BTA

» Leman Sam-Rüzgar
Çarş. Mart 17, 2010 5:47 pm tarafından BTA

» Komik Videolar 3
Çarş. Mart 17, 2010 5:44 pm tarafından BTA

» Komik Videolar 2
Çarş. Mart 17, 2010 5:43 pm tarafından BTA

» Komik Videolar 1
Çarş. Mart 17, 2010 5:41 pm tarafından BTA

» Leman Sam - Anladım
Salı Mart 09, 2010 6:32 pm tarafından BTA

» Alışveriş Merkezinde Kız Kavgası
Ptsi Mart 08, 2010 11:35 am tarafından BTA

» Canı Sıkılan Anket Çözmeye
Cuma Mart 05, 2010 12:29 am tarafından BTA

» Samsung B3410W Ch@t
Perş. Mart 04, 2010 11:34 pm tarafından BTA

Tarıyıcı
 Kapı
 Indeks
 Üye Listesi
 Profil
 SSS
 Arama
Forumlar
Ortaklar
bedava forum

Paylaş | 
 

 Medya Dosyalarını Oynatmak

Önceki başlık Sonraki başlık Aşağa gitmek 
YazarMesaj
BTA
Admin
avatar

Mesaj Sayısı : 244
Points : 732
Reputation : 0
Kayıt tarihi : 28/02/10
Yaş : 25
Nerden Nerden : TOKAT/Reşadiye

MesajKonu: Medya Dosyalarını Oynatmak   Perş. Mart 04, 2010 1:00 pm

Medya Dosyalarını Oynatmak

Aşağıdaki örnekte oynatmak istediğiniz medya dosyasının ilişkin codec lerin bilgisayarınızda yüklü olması gerekmektedir. Bu yöntemle tüm medya dosyalarını okuyabilirsiniz.

Ayrıca aynı library içinde bulunan interface ler yardımı ile
oynatmak istediğiniz dosyayı herhangi bir picturebox
içinde de gösterebilirsiniz.


Öncelikle formunuza üç adet CommandButton nesnesi ekleyin.
VB6.0 editörünün "Project>Refernces..." menüsünü tıklayın ve
aşağıdaki pencerede göründüğü gibi "ActiveMovie control type library" referansını seçin.
"OK" butonuna basarak seçimi onaylayın.


Eklemiş olduğumuz CommandButton nesnelerine aşağıdaki isimleri verin.
cmdPlay
cmdPause
cmdStop

Formumuzun kod sayfasını açıp aşağıdaki kodları yazın.

Option Explicit

Dim m_mc1 As QuartzTypeLib.IMediaControl

Private Sub Form_Unload(Cancel As Integer)
Set m_mc1 = Nothing
End Sub

Private Sub cmdPlay_Click()
If m_mc1 Is Nothing Then
Set m_mc1 = New QuartzTypeLib.FilgraphManager
m_mc1.RenderFile "C:\lost.318-caph.avi"
End If
m_mc1.Run
End Sub

Private Sub cmdPause_Click()
If m_mc1 Is Nothing Then Exit Sub
m_mc1.Pause
End Sub

Private Sub cmdStop_Click()
If m_mc1 Is Nothing Then Exit Sub
m_mc1.Stop
Set m_mc1 = Nothing
End Sub
Sayfa başına dön Aşağa gitmek
http://resadiye-eml.yetkinforum.biz
 
Medya Dosyalarını Oynatmak
Önceki başlık Sonraki başlık Sayfa başına dön 
1 sayfadaki 1 sayfası
 Similar topics
-
» Sata Disk için gereken sürücüleri xp kurulum dosyaları ile birleştirmek ve yeni bir cd yapmak
» Metin2 Vps Prate Serverler 250 adet buyrun

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
Tokat-Reşadiye Teknik ve Endüstri Meslek Lisesi Bilişim Teknolojileri Alanı 12-D Sınıfı :: Programlama :: Visual Basic Dilinde Hazır Programlar-
Buraya geçin: