Zjištění délky celého CD

Postup:
Na formulář přidejte TextBox a MCI control. Na událost Form_Load zapište:

Sub Form_Load ()

   
' Inicializace CD:
   mmcontrol1.TimeFormat = 10
   mmcontrol1.DeviceType = "CDAudio"
   mmcontrol1.Command = "Open"

   Dim Length As Variant
   Dim CDSeconds As Integer, CDMinutes As Integer

   ' Kalkulace minut a sekund:
   CDSeconds = CDSeconds + (mmcontrol1.Length And &HFF00&) / &H100
   CDMinutes = CDMinutes + (mmcontrol1.Length And &HFF)

   ' Sumarizace minut a sekund:
   Length = DateAdd("s", CDSeconds, Length)
   Length = DateAdd("n", CDMinutes, Length)

   ' Zjištění, zda je celkový čas větší než hodina:
   If (Left$(Length, 2)) = "12" Then
      Text1.Text = Mid(Length, 4, (Len(Length) - 4))
   Else
      Text1.Text = Left(Length, (Len(Length) - 3))
   End If

End Sub

Zpět

Autor: The Bozena