блин, почему люди такие жадные???? 3 тысячи просмотров и никто почти лайков не поставил! а тут вполне заслуженно! а автору спасибо! делай ещё видео по этой тематике, так как такого контента на ютубе мало!
Классное видео доработал плеер, чтоб можно было громкость менять (WMP.settings.volume если что) объединил паузу и плей (в зависимости от состояния) и пару форматов добавил.
Private Sub Delbyid(ByVal id As Long) For t = 0 To WMP.currentPlaylist.count - 1 If id = WMP.currentPlaylist.Item(t).getItemInfo("id") Then WMP.currentPlaylist.removeItem(WMP.currentPlaylist.Item(t)) Exit Sub End If Next End Sub Ошибка 2 Метод "Private Sub Delbyid(id As Long)" имеет несколько определений с одинаковыми сигнатурами. C:\Users\Admin\Desktop\работа \WindowsApplication2\WindowsApplication2\Form1.vb 95 17 WindowsApplication2 в чем дело
блин, почему люди такие жадные???? 3 тысячи просмотров и никто почти лайков не поставил! а тут вполне заслуженно! а автору спасибо! делай ещё видео по этой тематике, так как такого контента на ютубе мало!
Очень ценные видео !!! ОЧЕНЬ , крайне !!!!!! Прям вообще крайне. И почему Автор такой молодец забросил канал ))))
Сейчас бы набирал просмотры !
Классное видео доработал плеер, чтоб можно было громкость менять (WMP.settings.volume если что)
объединил паузу и плей (в зависимости от состояния) и пару форматов добавил.
Прикольно, хоть и бесполезно.
А можно урок по созданию видеоплеера ?
Private Sub Delbyid(ByVal id As Long)
For t = 0 To WMP.currentPlaylist.count - 1
If id = WMP.currentPlaylist.Item(t).getItemInfo("id") Then
WMP.currentPlaylist.removeItem(WMP.currentPlaylist.Item(t))
Exit Sub
End If
Next
End Sub
Ошибка 2 Метод "Private Sub Delbyid(id As Long)" имеет несколько определений с одинаковыми сигнатурами. C:\Users\Admin\Desktop\работа \WindowsApplication2\WindowsApplication2\Form1.vb 95 17 WindowsApplication2
в чем дело
Здравствуйте, у меня не работает данный код при режиме listbox.ownerdraw = ownerdraw.fixed. В листбоксе пишет мой плеер. mymedia
как полоску прокрутки сделать?