Visual Basic AxWindowsMediaPlayer Rastgele Müzik Çalma Özelliği

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üye
Katılım
26 Mar 2017
Mesajlar
19
Tepki puanı
9
Ödüller
7
Yaş
27
Sosyal
9 HİZMET YILI
Kod:
        Randomize()
        On Error Resume Next
        If ListBox1.Items.Contains(ListBox1.SelectedIndex) = (CObj(AcceptButton)) Then
            ListBox1.SelectedIndex = CInt(Int(ListBox1.SelectedIndex) * Rnd()) + 3
        Else
            If ListBox1.Items.Contains(ListBox1.SelectedIndex) = CObj((CancelButton)) Then
                ListBox1.SelectedIndex = reset_Music
            End If
        End If
reset_Music değişkenini gerkçekleştirmek için Dim reset_Music As String = 0 'Yapmanız Yeterli.
 
Son düzenleme:
stay high
Süper Üye
Katılım
21 Kas 2017
Mesajlar
644
Çözümler
1
Tepki puanı
72
Ödüller
7
8 HİZMET YILI
girdim kodları çalışıyor eyvallah reis
 
Seçkin Üye
Katılım
6 Eki 2018
Mesajlar
306
Çözümler
1
Tepki puanı
76
Ödüller
7
7 HİZMET YILI
girdim kodları çalışıyor eyvallah reis yararlı konu
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst