Çoklu Ortam Dosyalarını Çalıştırmak
Çokluortam dosyalarını kendilerine ait API'lerle çağırmak daha hızlı ve daha sağlıklı olsa da size hiç bir seçeneği ayarlama olanağı vermeyen bir DLL dosyasını çağırarak da sistemde tanımlı tüm çokluortam dosyalarını minimum zahmetle çalıştırabilirsiniz. ' Aşağıdaki satır formlardan bağımsız bir modüle konulacak
Declare Function mciExecute Lib ' MMSystem' (ByVal FileName as String) As Integer
' Fonksiyonu aşağıdaki gibi kullanabilirsiniz.
' Tırnak içindeki play komutu sabit kalmalıdır.
Sub Form1_Click ()
' x değeri dosyanın başarılı olarak çalışıp çalışmadığını döndürür.
x = mciExecute(' Play c:\windows\ding.wav' )
x = mciExecute(' Play test.avi' )
End Sub
Çokluortam dosyalarını kendilerine ait API'lerle çağırmak daha hızlı ve daha sağlıklı olsa da size hiç bir seçeneği ayarlama olanağı vermeyen bir DLL dosyasını çağırarak da sistemde tanımlı tüm çokluortam dosyalarını minimum zahmetle çalıştırabilirsiniz. ' Aşağıdaki satır formlardan bağımsız bir modüle konulacak
Declare Function mciExecute Lib ' MMSystem' (ByVal FileName as String) As Integer
' Fonksiyonu aşağıdaki gibi kullanabilirsiniz.
' Tırnak içindeki play komutu sabit kalmalıdır.
Sub Form1_Click ()
' x değeri dosyanın başarılı olarak çalışıp çalışmadığını döndürür.
x = mciExecute(' Play c:\windows\ding.wav' )
x = mciExecute(' Play test.avi' )
End Sub