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:
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst