Как сделать простенький плеер с плейлистом - VB

Узнай цену своей работы

Формулировка задачи:

С наступающим, товарищи! Раскажите, покажите, как сделать простенький плеер с плейлистом. Спасибо!

Решение задачи: «Как сделать простенький плеер с плейлистом»

textual
Листинг программы
Option Explicit
 
Private Sub Form_Load()
    List1.OLEDropMode = 1
End Sub
  
Private Sub List1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim i As Long
If Data.Files.Count < 1 Then
 
Else
    For i = 1 To Data.Files.Count
        List1.AddItem Data.Files(i)
    Next i
End If
End Sub

Оцени полезность:

11   голосов , оценка 4.091 из 5