Userforma makro ile media player getirme.

[vuranoğlu]

Merhaba
Boş Userforma makro ile media player getirip çalıştıra bilir miyiz?

 

[Zeki Gürsoy]

Merhaba,

Sanıyorum çalışma zamanı form üzerine media player nesnesi eklenecek ve medya oynatılacak. Eğer öyleyse aşağıdaki örnek kodu kullanın...

Private Sub UserForm_Click()
    Dim ply As Control '>> WindowsMediaPlayer
    Set ply = Me.Controls.Add("WMPlayer.OCX", "wmplayer1", True)
    ply.Url = "D:\berksan - unutamam.mp3"
End Sub

.

 

[vuranoğlu]

Merhaba
Aynı klasör içinde nasıl çalıştıra biliriz?

 

[FERAZ]

Merhaba
Aynı klasör içinde nasıl çalıştıra biliriz?

Kendi konunuzda zaten kod var az bir kafa yorun bence.

Aynı klasördeki farklı klasörü açma

Merhaba Aynı klasör içinde bulunan klasörü nasıl açtırabiliriz? Örnek dosyada egitim1.

www.excel.web.tr

 

[dEdE]

Sayın @Zeki Gürsoy,
Yukarıdaki yanıtınızı görünce, aynı MediaPlayer'a bir çalma listesi yapılabilir mi? diye düşündüm. Biraz uğraştım ama, Sayfa1 A sütununa DosyaYolu ile beraber çalınacak parçaların listesine yazmaktan öte başarılı olamadım.
Listedeki müziklerin;
- sıra ile çalınması, bitince başa dönmesi ve
- seçimli olarak çalınması için nasıl bir kod yazılabilir?