sıralı çalma

[security]

merhabalar bir mediaplayer hazırlıyorum... klasör seçip parçaları bir listeye ekliyoruz .(list1) fakat bir yerde takıldım media playera list1 deki parçaları sırası ile çalmasını ekleyemedim altaki kodu kullandım fakat başarısız 1. ve 2. sıradaki parçayı çalıyor fakat 3. parçaya geçmiyor. tekrar 2. parçaya dönüyor...

Private Sub Timer1_Timer()
If WindowsMediaPlayer1.playState = wmppsStopped Then
List1.ListIndex = List1Index + 1
WindowsMediaPlayer1.URL = List1.Text
End If
End Sub

bu konuda yardılarınızı bekliyorum. şimdiden tşk.

 

[security]

yardımlarınızı bekliyorum arkadaşlar...

 

[Orion1]

Aşağdaki kodları deneyiniz.

If WindowsMediaPlayer1.playState = wmppsStopped Then
    if list1.listindex=list1.listcount-1 then
        list1.listindex=0
        else
       List1.ListIndex+list1.listindex+1
    end if
    WindowsMediaPlayer1.URL = List1.Text
end if

 

[security]

Aşağdaki kodları deneyiniz.

If WindowsMediaPlayer1.playState = wmppsStopped Then
    if list1.listindex=list1.listcount-1 then
        list1.listindex=0
        else
       List1.ListIndex+list1.listindex+1
    end if
    WindowsMediaPlayer1.URL = List1.Text
end if

hocam bu şekil denedim süper tşk..

Private Sub Timer1_Timer()
If WindowsMediaPlayer1.playState = wmppsStopped Then
If List1.ListIndex = List1.ListCount - 1 Then
List1.ListIndex = 0
Else
List1.ListIndex = List1.ListIndex + 1
End If
WindowsMediaPlayer1.URL = List1.Text
End If
End Sub

birde

Private Sub ekle_Click()
CommonDialog1.ShowOpen
List1.AddItem (CommonDialog1.FileName)
End Sub

bu kodla list1 e parça ekliyorum ama tek tek değilde klasör şeklinde ekleyebilirmiyiz... veya mause ile seçip 3 , 4 parçayı aynı anda seçebilirmiyiz. tşk...

 

[Orion1]

hocam malesef hata verdi.
timer intervali:1

Private Sub ekle_Click()
cd.ShowOpen
List1.AddItem (cd.FileName)
End Sub
 
Private Sub List1_Click()
WindowsMediaPlayer1.URL = List1
End Sub
 
Private Sub Timer1_Timer()
If WindowsMediaPlayer1.playState = wmppsStopped Then
    if list1.listindex=list1.listcount-1 then
        list1.listindex=0
        else
       List1.ListIndex+list1.listindex+1
    end if
    WindowsMediaPlayer1.URL = List1.Text
end if
End Sub

örnek olarak kod...

Hangi satırda hata verdi.
Timer intervali çok düşük ayrıca.
1000 yaparsanız 1 saniyede bir timer döner.

 

[security]

List1.ListIndex + list1.listindex+1 kodunu

List1.ListIndex = list1.listindex+1

şeklinde değiştim sorun kalmadı...

birde

Private Sub ekle_Click()
CommonDialog1.ShowOpen
List1.AddItem (CommonDialog1.FileName)
End Sub

bu kodla list1 e parça ekliyorum ama tek tek değilde klasör şeklinde ekleyebilirmiyiz... veya mause ile seçip 3 , 4 parçayı aynı anda seçebilirmiyiz. tşk...

 

[Orion1]

Sanırım vb6 ile çalışıyorsunuz.
VBA da bu kontrol yok.Create object ile oluşturulabilir ama kontrollerini bilmiyorum
Eğer VBA olsaydı aşağıdaki kodla çoklu seçim yapabilirdik.

Dim d
dosya = Application.GetOpenFilename(filefilter:="hepsi,*.*", Title:="Dosya seç", MultiSelect:=True)
For Each d In dosya
    ListBox1.AddItem d
Next

 

[security]

yardımlarınız için çok tşk. hocam.

 

[Orion1]

yardımlarınız için çok tşk. hocam.

Rica ederim.
iyi çalışmalar.