Мой Kbyte.Ru
Рассылка Kbyte.Ru
Группы на Kbyte.Ru
Партнеры Kbyte.Ru
Реклама
Сделано руками
Сделано руками
> Исходные коды - Петр (Skript) Пономарев -

Visual Basic 5.0/6.0 - Звук

Все примеры / Мультимедиа / Звук

mp3 pleer

Автор: Петр (Skript) Пономарев | добавлено: 06.03.2010, 13:20 | просмотров: 3933 (1+) | комментариев: 0 | рейтинг: *x3
mp3 плеер поддерживает любые форматы.

Код

Option Explicit
Private Declare Function SHBRowseForFolder Lib "shell32" Alias "SHBrowseForFolderA" (ByRef b As Any) As Long
Private Declare Function SHGetPathFromIDList Lib "shell32" (ByVal ResPIDL As Any, ByVal Path As String) As Long
'константа Shell Api
Const CSIDL_DRIVES As Long = 17
Const BIF_RETURNONLYFSDIRS As Long = 1
Const MAX_PATH = 260

Const mcitormatmilleseconds = 0

Private Type bi 'browseinfo
hwndOwner As Long
pidlroot As Long
pszdisplayname As String
lpztitle As String
ulflags As Long
lpfn As Long
lParam As Long
iImage As Long
End Type
Dim status As Integer

Private Sub Command1_Click()
Dim t As bi
Dim ResPIDL As Long
Dim Path As String
Dim r As Long
Dim p As String
t.hwndOwner = File1.hWnd
t.lpztitle = ""
t.ulflags = BIF_RETURNONLYFSDIRS
t.pszdisplayname = String(MAX_PATH, 0)
ResPIDL = SHBRowseForFolder(t)
If ResPIDL <> 0 Then
Path = String(MAX_PATH, Chr(0))
r = SHGetPathFromIDList(ResPIDL, Path)
p = InStr(1, Path, Chr(0))
Path = Mid(Path, 1, p - 1)
File1.Path = Path
File1.ListIndex = 0
End If
End Sub

Private Sub File1_Click()
If MMControl1.Command <> "close" _
Then MMControl1.Command = "close"
Label1.Caption = File1.Path + "/" + File1.FileName
If File1.FileName <> "" Then
MMControl1.FileName = File1.Path + "/" + File1.FileName
MMControl1.Notify = True
MMControl1.Command = "open"
MMControl1.TimeFormat = mcitormatmilleseconds
Label2.Caption = toHMS(MMControl1.Length)
Label3.Caption = "00:00"
End If
End Sub

Private Sub Form_Initialize()
On Error Resume Next
File1.Path = CurDir + "/"
File1.Pattern = "*.mp3"
MMControl1.PrevVisible = False
MMControl1.NextVisible = False
MMControl1.RecordVisible = False
MMControl1.EjectVisible = False
Form1.ScaleMode = vbPixels
File1.ListIndex = 0
File1.BackColor = vbGreen
File1.FontBold = True
status = 0
End Sub

Private Sub Form_Unload(Cancel As Integer)
MMControl1.Command = "stop"
MMControl1.Command = "close"
End Sub

Private Sub MMControl1_StatusUpdate()
Label3.Caption = toHMS(MMControl1.Position)
End Sub

Private Function toHMS(time As Long) As String
Dim H As Integer
Dim M As Integer
Dim S As Integer

H = Int((time / 1000) / 3600)
M = Int((time / 1000 Mod 3600) / 60)
S = (time / 1000 Mod 3600) Mod 60
If H > 0 Then toHMS = Str(H) + "/"
toHMS = toHMS + Format(M, "0#") + "/" + Format(S, "0#")
End Function
Файлы arhiv_winrar.rar (0,53 Кб)
Обратите внимание
Язык Visual Basic 6.0 является устаревшим. Многие примеры, размещенные на нашем сайте, были созданы еще во времена Windows 98 и могут не работать в современных операционных системах.
Если у вас возникнут какие-либо проблемы или вопросы, вы можете обратиться за помощью на наш форум.
Об авторе

Петр (Skript) Пономарев

Нет информации об авторе...

См. также:
Профиль автора
Петр (Skript) Пономарев
Последние комментарии (всего: 0)

Добавлять комментарии могут только зарегистрированные пользователи сайта.
Если у Вас уже есть учетная запись на Kbyte.Ru, пройдите процедуру авторизации OpenID.
Если Вы еще не зарегистрированы на Kbyte.Ru - зарегистрируйтесь.


Нет комментариев...

Авторизация
 
OpenID
Зарегистрируйся и получи 10% скидку на добавление своего сайта в каталоги! Подробнее »
Поиск по сайту
Реклама
Счетчики