Keskustelu: Ohjelmointikysymykset: VB6: MP3-soitin

Joo oon tos koodannu mp3-soittimen aikoi sit mut tuli mielee jos käyttää mp3-tiedoston toistamiseen https://www.ohjelmointiputka.net/koodivinkit/23545-vb6-mp3-tiedoston-soittaminen koodia, niin olisiko mahdollista scroll barilla muuttaa kappaleessa toistettavaa kohtaa?

10 sekunnin guugletus:

mciSendString("seek " & sAlias & " to " & nPosition, "", 0, 0)

sivulta:
http://www.21code.com/school/artical_1806.html

Oi kiitos :)

No mietin ton kannssa sit koko eilisen ja nyt päätin kysyy et miten tota käytetää ku siis pitäs keksii tapa ku musiikin kuluessa muutetaan scroll baria aina yhellä eteenpäin ja jos sitä liikuttaa "käsin" niin sitten se vaihtaisi kappaleen kohtaa.

No siis teet vaikka timerin, joka sitten vaikka 100ms välein muuttaa scrolbarin arvoa ja sitten scrollbarin onChange-eventtiin (tai mikälie onkaan) käsket seekkaamaan kappaletta.
Tosin varmaan täytyy asettaa jokin boolean varmistamaan, ettei timerin koodi kutsu scrollbarin onChange:a muuttaessaan sen Valueta.

'Tämän jonnekkin kappaleen latauksen jälkeen
'Asettaa scrollbar1:n maxvaluen kappaleen pituiseksi
mciSendString("set " & alias & " time format ms", 0&, 0, 0)

Dim mssg As String * 255
mciSendString("Status " & sAlias & " length", mssg, 255, 0)
nLength = InStr(mssg, Chr$(0))
scrollbar1.Max = Val(Left$(mssg, nLength - 1))

'Timeriin
Dim sPosition As String * 255
mciSendString("Status " & sAlias & " position", sPosition, 255, 0)
nLength = InStr(sPosition, Chr$(0))
'TimerinSeekkaus on globaali boolean
TimerinSeekkaus = True
scrollbar1.Value = Val(Left$(sPosition, nLength - 1))
TimerinSeekkaus = False

'Scrollbarin onChange-eventtiin
If TimerinSeekkaus Exit Sub
mciSendString("seek " & alias & " to " & scrollbar1.Value, 0&, 0, 0)

Tämän toimivuudesta ei ole taketa, itse kun en pysty testaamaan. Koodit on sovellettu tuosta aiemmin antamastani linkistä.

Nyt sit totanoin... mites sais sillee et jos slider baria muutetaan enemmän ku yks jompaan kumpaan suuntaan niin tehdään jotain?

Edit:
Ja sit ku tuol on noi:

i =  mciSendString("pause mid1", 0&, 0, 0)

ja

i =  mciSendString("resume mid1", 0&, 0, 0)

ni eiks ne toimis iha tonallaa niinku:

Private Sub Command1_Click()
x =  mciSendString("resume alias", 0&, 0, 0)
End Sub

ku ite en saa oikee tolleekaa toimii

Eiku taisinkin jo kesiä~ Mut kiitti