Potrebna Pomoć Oko Windows Media Player Kontrole U VB 2008

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Pozdrav svima, izvinjavam se ako sam pokrenuo temu koja već postoji na forumu, ja je nisam uspio pronaći. Želio bih da u svom programu imam mogućnost da kontrolišem tok pjesme (mp3 fajla) pomoću Track Bara, za puštanje fajla se koristi windows media player kontrola.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

[Link mogu videti samo ulogovani korisnici]
Probaj ovo.Mozes izabrati WMP komandu i preko nje pratiti tok pesme.Ako zelis svoju komandu to ce ti teze ici

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Hvala na linku, ali meni treba vlastiti Track Bar na kojem cu kontrolisati tok pjesme...

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

[Link mogu videti samo ulogovani korisnici]
Joj probaj ovo ako ti ni to ne pomaze napisacu ti tutorijal kako da postavis WMP komandu.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Hvala ti na trudu, ali meni treba njezino svojstvo za kontrolu toka pjesme, jer ne zelim da WMP bude vidljiv... Ako znaš gdje ima nekakav dobar tutorijal o korištenju WMP-a u VB 2008 postavi link da vas ne gnjavim više...

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

E pa to za licnu komandu i meni treba ali pogledaj ovo.
[Link mogu videti samo ulogovani korisnici]
Meni je pomoglo ako ti ne pomogne ja ne znam stvarno.progruglaj trazi na YT neznam.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Napisano: 04 Mar 2011 23:15

Evo probavam nešto, vidjećemo šta će biti uglavnom ako uspije, objavit ću... Pomoglo je...

Dopuna: 06 Mar 2011 11:36

Za sve koji budu imali slične probleme evo jednostavno rješenje:
kao što sam naveo koristim WMP kontrolu koju sam preimenovao u Media Control, potrebn vam je Tajmer čiji interval postavite na 1000 (jedna sekunda) i u ovom slučaju Track Bar za kontrolu toka pjesme. Ako želite da ispišete vrijeme potreban je Label, u ovom slučaju je preimenovan u LblTime. Evo i kod:

ovo ide u formu:
dim min as integer
dim sec as integer

Private Sub TrackBar1_Scroll(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles TrackBar1.Scroll
MediaControl.Ctlcontrols.currentPosition = TrackBar1.Value
End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Timer2.Tick
Dim second As Integer
Dim total As Integer
total = MediaControl.Ctlcontrols.currentPosition
TrackBar1.Maximum = MediaControl.currentMedia.duration
TrackBar1.Value = total
second = MediaControl.Ctlcontrols.currentPosition
sec = sec + 1
If sec = 60 Then
minut = minut + 1
sec = 0
End If
If sec < 10 Then
LblTime.Text = minut & ":0" & sec
Else
LblTime.Text = minut & ":" & sec
End If
End Sub

Private Sub Play_Click(ByVal sender As System.Object, ByVal _
e As System.EventArgs) Handles Play.Click
timer2.enabled=true