Jag fick en god hjälp av Sven att få till hur lång(i tid) en låt är.
<code>
Dim strTid As Single
playTime = (1.024 * FileLength) / (4 * 44100)
playTime = playTime * SEKUND
</code>
Det jag skulle vilja göra är att i en brogressbar visar hur mycket som har spelats.
Man borde väll kunna använda sig av detta tal?
Kan man sedan ändra färgen på progressbarens stapel?

Lite snabbt:

Starta nytt projekt med en form som har en progressbar, en timer och en
commandbutton.

Lägg till följande kod:

Private Sub Command1_Click()
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Dim playtime As Long
playtime = 200
ProgressBar1.Min = 0
ProgressBar1.Max = playtime
ProgressBar1.Value = ProgressBar1.Max
End Sub

Private Sub Timer1_Timer()
ProgressBar1.Value = ProgressBar1.Value - 1
If ProgressBar1.Value = 0 Then
Timer1.Enabled = False
End If
End Sub

Hur man ändrar färg på en progressbar, vet jag inte (om det ens går).
Annars får du väl göra en egen progressbar kontroll då!

/[peter.h]

Om du kollar in min prgWin2Mac, Programarkivet:prgWin2Mac
så finns det två stycken"bar"-er
som du givetvis kan "låna".

/ChristerGbg

Hej
Om du tycker det är intressant så kan du göra
en progressbar av en Label där kan du ju även
ändra till vilken färg du vill.
Avvaktar ditt svar.

mvh
Sven

Hej Sven.
Jo jag är öppen för alla förslag. Det jag ville göra är ju att ha en indikator på hur mycket som är spelat av låten.
Kunde jag sedan komma ifrån VB:s "tråkiga" utseende, så är det enbart att beteckna som posetivt.
Jag misstänker desutom att jag började på fel ända, jag borde väll börja med filstorleken(FileLen). Varje steg som progressbaren(labelen eller picture) tar, borde väl vara FileLen /60??
Är jag ute i blåsväder nu?

Koden ovan, var inte vad jag hadde tänkt mig, den snurrade baklänges.
Jag har därimot fått detta problem löst av den suveräne Sven...
Tack.