Fun-Soft - Programmierforum

Autor

Thread - Seiten: [ 1 ] > 2 <

010
07.12.2004, 14:41 Uhr
~Christian.......
Gast

Das / hilft auch nicht....trotzdem danke!!

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

011
07.12.2004, 20:09 Uhr
Audron-AT-www
http://www.sXene.de Audron@sxene.de
(Operator)

Seid dem Media Player Update haben sich einige Funktionen geändert.

Ändere mmPlayer.CurrentPosition in

Visual Basic:

mmPlayer.controls.CurrentPosition

und es müsste klappen.

PS: Dein Code sollte so aussehen:

Visual Basic:

Private Sub tmrZeit_Timer()
Dim iMin As Integer, iSek As Integer

    'Hier wird der Text ersetzt.
    iMin = mmPlayer.controls.CurrentPosition \ 60
    iSek = mmPlayer.controls.CurrentPosition - iMin * 60

       If iMin > 0 Or iSek > 0 Then
         lblPosition.Caption = Format(iMin, "0#") & ":" & Format(iSek, "0#")
       Else
         lblPosition.Caption = "00:00"
       End If
End Sub

--
Mit freundlichen Grüßen
Audron, audron@sxene.de

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

012
08.12.2004, 15:11 Uhr
~Christian.......
Gast

Sper fett...DANKE!!!

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

013
08.12.2004, 15:16 Uhr
~Christian.......
Gast

Jetzt ist da noch ein Porblem!!

Visual Basic:

Sub PlaySong(MusicFile As String)
    With mmPlayer
     .FileName = MusicFile
     .play
    End With
    TitelInfoLöschen
    TitelTagLesen MusicFile
    TitelTagAusgeben
End Sub

in ".FileName = MusicFile" liegt der Fehler!

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

014
08.12.2004, 21:29 Uhr
~Christian.......
Gast

Das Problem hab ich selber gelöst!!

Jetzt fehlt mir nur noch wie der Code der dauer ist!!

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

015
09.12.2004, 17:30 Uhr
Audron-AT-www
http://www.sXene.de Audron@sxene.de
(Operator)

was für ein code der dauer???
^^
--
Mit freundlichen Grüßen
Audron, audron@sxene.de

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

016
09.12.2004, 19:47 Uhr
~Christian
Gast

Hab das Problem gelöst!

Mal eine andere Frage!!

Ich hab eine ListBox als Playlist verwendet, aber wenn das Lied zuende ist schaltet der nicht auf das nächste Lied! Vielleicht könnt ihr mir weiterhelfen

Visual Basic:

Private Sub mmPlayer_EndOfStream(ByVal Result As Long)
    If bPlayMode = True Then
       iPlayNr = iPlayNr + 1
       If iPlayNr < lstPlaylist.ListCount Then
        lstPlaylist.ListIndex = iPlayNr
        PlaySong lstPlaylist.List(iPlayNr)
       Else
        cmdPlaylistSpielen_Click
      End If
    End If
End Sub

Da muss irgentein Fehler drin sein

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

Seiten: [ 1 ] > 2 < [ Visual Basic 6.0 / VBA ]

ThWBoard 2.73 FloSoft-Edition
© by Paul Baecher & Felix Gonschorek (www.thwboard.de)

Anpassungen des Forums
© by Flo-Soft (www.flo-soft.de)

Sie sind Besucher: