Ngày tải lên :
21/08/2012, 10:12
...
SetWindowPos bWnd, 0, 0, 0, 0, 0, SWP_HIDEWINDOW
End Sub
Private Sub Form_Unload(Cancel As Integer)
'hiện lại start button
SetWindowPos bWnd, 0, 0, 0, 0, 0, SWP_SHOWWINDOW
Copyright ... milliseconds'', 0, 0, 0
mciSendString ''status MPEGPlay length'', s, Len(s), 0
LengthInSec = Round(Val(Mid$(s, 1, Len(s))) / 100 0) 'Round(CInt(Mid$(s, 1, Len(s))) / 100 0)
End ... Len(s)) / 100 0)
If sec < 60 Then Position = '&apos ;0: '' & Format(sec, '&apos ;00 '')
If sec > 59 Then
mins = Int(sec / 60)
sec = sec - (mins * 60)
Position...