1). Как воспроизвести звук (wav mp3 wma midi ну хотябы эти), узнавать сколько минут длится, изменять позицию воспроизведения.
2). Эквалайзер, и индикатор эквалайзера





Public Type ID3V1MP3TAGS
strTag As String * 3
strTitle As String * 30
strArtist As String * 30
strAlbum As String * 30
strYear As String * 4
strComment As String * 30
bytGenre As Byte
End Type
Public tags As ID3V1MP3TAGS
Public Sub ReadTag(strfile As String)
Open strfile For Binary Access Read As #1
Seek #1, LOF(1) - 127
Get #1, , tags
'Здесь нужно вставить обработчик событий с перменной tags
Close #1
End Sub






_Мика_ писал(а):Спасибо конечно, но теги у меня есть![]()
Короче наверное лучше MediaPlayer использовать!![]()
Еще вопрос: как закруглить форму на концах? Когда-то был пример такой, после фоматирование - НЕТ!

Dim fNum As Integer
Dim sTagIdent As String * 3
Dim sTitle As String * 30
Dim sArtist As String * 30
Dim sAlbum As String * 30
Dim sYear As String * 4
Dim sComment As String * 30
fNum = FreeFile
Open "C:\1.mp3" For Binary As fNum
Seek #fNum, LOF(fNum) - 127
Get #fNum, , sTagIdent
If sTagIdent = "TAG" Then
Get #fNum, , sTitle
Get #fNum, , sArtist
Get #fNum, , sAlbum
Get #fNum, , sYear
Get #fNum, , sComment
End If
Close #fNum
MsgBox sTitle & "," & sArtist & "," & sAlbum & "," & sYear & "," & sComment




BV писал(а):2_Мика_
Смотрел последнюю версию моего EasyPlayer'а?
P.S. Хм... Никто не знает, куда подевался xolod?

- Будем брать или будем отступать?
- ...Да!








Сейчас этот форум просматривают: SemrushBot, Yandex-бот и гости: 7