also ich habe jetzt mit VB angefangen und habe mir vorgenommen einen audio player zu erstellen.... naja der geht irgendwie net hab auch keine ahnung warum, kann mir jemand helfen?
Steuerelement-------Eigenschaft------Wert
Form1---------------Caption----------Mars's Audioplayer
Form1---------------BorderStyle------Fester Dialog
MMControl1----------DeciceType-------False
MMControl1----------BackVisible------False
MMControl1----------RecordVisible----False
MMControl1----------StepVisible------False
Code:
Private Sub Form_Load()
MMControl1.Command = "Open"
MMControl1.TimeFormat = mciFormatTmsf
MMControl1.UpdateInterval = 50
End Sub
Private Sub Form1_Unload()
MMControl1.Command = "Stop"
MMControl1.Command = "Close"
End Sub
Private Sub Form1_StatusUpdate()
Dim Minute As Integer
Dim Sekunde As Integer
With MMControl1
Minute = (.Position And &HFFFF&) \ &HFF
Sekunde = (.Position \ &H10000) And &HFF
Lebel1.Caption = "Track " & CStr(.Track) & ", Gespielt " & Format$(Minute, "00") & ":" & Format$(Sekunde, "00")
End With
End Sub
Private Sub Label1_Click()
End Sub
Steuerelement-------Eigenschaft------Wert
Form1---------------Caption----------Mars's Audioplayer
Form1---------------BorderStyle------Fester Dialog
MMControl1----------DeciceType-------False
MMControl1----------BackVisible------False
MMControl1----------RecordVisible----False
MMControl1----------StepVisible------False