Preskoči na sadržaj
Ista raja. Nova runda.
GAMERZ.ba — REBORN
Diskusija

[TUT] VB.net Media Player

176 pregleda · 9 odgovora · otvorena 08.05.2009. u 10:55

PixelClaw PixelClaw [TUT] VB.net Media Player Napokon i moj drugi tutorial, davno je prošlo od prvog. Pošto sam primjetio da vi ono već znate pređimo na nešto komplikovanije npr. media player...On će raditi na principu Windows Media Playera. Pa počnimo: Prvi dio: P…
Napokon i moj drugi tutorial, davno je prošlo od prvog. :S Pošto sam primjetio da vi ono već znate pređimo na nešto komplikovanije npr. media player...On će raditi na principu Windows Media Playera.
Pa počnimo:

Prvi dio:

Pokrenite VB.net i napravite Windows Form pod imenom Media Player. U toolboxu scrollajte do kraja u podmenu zvan "General" i tu kliknite desnom tipkom i onda idite na "Choose Items" i gore nađite "COM Controls" i nađite Windows Media Player i checkajte ga i pritisnite OK !!! Pojaviti će se Windows Media Player ActiveX Control u podmeniju General.


Drugi dio:

Na vaš prozor stavite:
- Windows Media Player iz General podmenija;
- Button iz Common Controls podmenija 4x;
- OpenFileDialog iz Dialogs podmenija. (On se neće pojaviti na prozru nego u posebnoj traci ispod prozora)

Kliknite Windows Media Player i sa desne strane u djelu pod imenu "uiMode" obrišite full i napišite "none" te u dijelu "enableContextMenu" pormijenite sa True u False. Tako se neće moći primjetiti da je to Windows Media Player.
Kliknite na button1 i preimenujte ga u Open, button2 u Play, button3 u Pause i button4 u Stop.



Treći dio:
Dva put kliknite na Open i upišite sljedeće:
OpenFileDialog1.showdialog
Gore u traci nađite Form1.vb [Design*] i kliknite na Play i upišite:
AxWindowsMediaPlayer1.Ctlcontrols.play()
Uradite isto i i za Pause samo sad napišite:
AxWindowsMediaPlayer1.Ctlcontrols.pause()
Za dugme stop napišite:
AxWindowsMediaPlayer1.Ctlcontrols.stop()
A sad kliknite na OpenFileDialog1 i napišite slijedeći kod (on se nalazi u Form1.vb[Design*] u donjoj traci ispod prozora):
AxWindowsMediaPlayer1.URL = OpenFileDialog1.FileName
AxWindowsMediaPlayer1.Ctlcontrols.paly()

Četrvti dio:

To bi bilo to pritisnite F5i uživajte u domaće napravljenom Media Playeru
P.S.
Posržava sve formate kao i Windows Media Player
I NE ZABORAVITE KOMENTIRATI !!!!
Pozz

;)
korisno zarez mnogo bolji nego prethodni zarez napredujes tocka
Der Naps Sux
Are you fuck**g kidding me ?

http://www.planet-source-code.com/

Imaš Boga oca tamo :/

Post dobio šamar od Vilenjak

Kako mali ofirno radi :\
Ovo nije tvoj tut garantujem.

Post dobio šamar od Vilenjak

svidja mi se.. pokusat cu ovo
samo .. VB.net .. sta je to ?
visual basic 6 ili.. ?
Postavljaj teme u Software i konekcije, nemoj u coffe shop! Ovdje se sve gubi kao nevinost.
spY je napisao/la:
Postavljaj teme u Software i konekcije, nemoj u coffe shop! Ovdje se sve gubi kao nevinost.
Development? :S
Vec duzi period se bavim VB.net-om i VB 6.
Postoji mnogo tutova kako napravit playetr i to, ali staceti tut ako ljudima nisi objasnio sta sta znaci ko npr Integriranje i to, zna iz iskustva napises im takav slican tutorial oni copy/paste u vb i ko face neke napravili nesto. Meni se neda vise pisat ako ti hoces daljne preporucujem ti da stavis osnove pa dalje neke komplikacije ili da im objasnis djelove koda ( ovdje je jednostavno vecinu posla vec postoji, mislim na kompliciranije programe) ...
playerba je napisao/la:
svidja mi se.. pokusat cu ovo :D
samo .. VB.net .. sta je to ?
visual basic 6 ili.. ?
vb.net je visual basic 2008
imaš ga na microsoftovoj stranici
martinn je napisao/la:
korisno zarez mnogo bolji nego prethodni zarez napredujes tocka
Der Naps Sux
Mame ti ti nisi nap ?

Spameru bozji, gtfo !

Slične teme