hejsan.. WindowsMediaPlayer1 visar hur länge en låt har spelas.
jag undrar hur man kan få samma klocka/räknare att visas i en label

Kan du inte få ut det värdet?
Testa att skriva:
<code>
WindowsMediaPlayer1.
</code>

Och sedan vänta nån sekund så får du upp massa val, ju. Kan du inte kolla om det finns nåt vettigt där?

det har jag gjort, men hittade inget matnyttigt där.

Lägg till en label som heter lblTime, och en timer med interval = 1000

och sen följande kod:

<code>
Private Sub Timer1_Timer()
Dim dMin, dSec
'sekunder
dSec = MediaPlayer1.CurrentPosition
'minuter
dMin = dSec / 60
'sekunder kvar när minutrarna är borta
dSec = dSec Mod 60
'följande rader snyggar till lite
If dMin >= 0 And dSec >= 0 Then
dSec = CStr(Int(dSec))
dMin = CStr(Int(dMin))
If Len(dSec) = 1 Then dSec = "0" & dSec
If Len(dMin) = 1 Then dMin = "0" & dMin
lblTime.Caption = dMin & ":" & dSec
Else
lblTime.Caption = "00:00"
End If
End Sub

</code>


EDIT: Ändrade koden ovan då jag såg att det inte blev riktigt rätt, samtidigt som jag kom på att jag svarat på detta en gång tidigare ;)


/Fredrik

jag har inte alternativ
<code>
.CurrentPosition
</code>

som allternativ på WindowsMediaPlayer1

Inte jag heller. Har du fått det att funka själv, Fredrik?

<b>Inte jag heller. Har du fått det att funka själv, Fredrik?</b>

Hoppsan.
Det kan ju vara så att WindowsMediaPlayer1 och MediaPlayer1 inte är samma sak..
Fel av mig i så fall.

Men ja, min kod fungerar för mig.. Med MediaPlayer1.

Fredrik

<b>MixMax</b>, du kanske kan använda MediaPlayer istället?

har inte MediaPlayer
troligtvis så har det blivit något fel eller så är det så att jag installerade
Windows Media Player 9.0 innan jag installerade
visual basic.

så därför så hittar jag inte mediaplayer..
Kul och se ifall någon annan har samma fel.

Annars kan du ju gå över till mci... ;) Sök efter "mci" bland länkarna... :) Mycket bättre då den inte kräver någon installation på datorn mer än själva programmet, dvs. media player behövs inte...