()
Newbie
Messaggi:
Iscritto:
|
ciao a tutti!
vorrei gentilmente sapere se qualcuno mi può aiutare:
sto sviluppando un player multimediale in VB6 con il controllo windows media player però mi sono bloccato in un punto: non riesco a creare il codice per una barra di progressione,niente di speciale,solo una barra come quella del media player e due label di durata.
mi hanno detto che è possibile farlo con la funzione mcisendstring ma io non ci riesco: qualcuno sarebbe così gentile da aiutarmi???
|
|
LuigiBiasi (Normal User)
Expert
Messaggi: 237
Iscritto: 15/09/2006
|
ciao per usare mcisendstring devi conoscere la stringa da passare, che non so ma ti posso aiutare in un altra maniera, come ho risolto io questo problema.
Io ho utilizzato uno slider e lo impostato come grandezza massima alla durata del brano, cmq io per fare questo ho utilizzato un instanza dell'oggeto mediaplayer.
In una classe
Codice sorgente - presumibilmente VB.NET |
dim withevents wmp as new mediaplayer.mediaplayer Property Get DuarataBrano(durata as integer) durata = wmp.Duration End Property
|
e usi la proprieta DurataBrano nello slider per settare l grandezza massima.
poi:
Codice sorgente - presumibilmente VB.NET |
dim wmp as new mediaplayer.mediaplayer Property Get StatoCorrenteBrano(durata as integer) StatoCorrenteBrano = wmp.CurrentPosition End Property ...
|
con questa ultima proprieta ottieni la posizione corrente del brano quando scorre(Play).
Poi magari con un timer puoi gestire l'avanzata dello slider settandolo ogni volta quest'ultimo valore.
Io nel mio progetto ho fatto cosi, visto che cosi ho gestito meglio.
Comuqnue nella classe gli altri controlli, Play Stop Pausa ecc...
Spero di esserti stato di aiuto.
Ciao. Ultima modifica effettuata da LuigiBiasi il 11/09/2007 alle 17:52 |
|
()
Newbie
Messaggi:
Iscritto:
|
Comuqnue nella classe gli altri controlli, Play Stop Pausa ecc...
cosa significa visto che io ho provato a inserire nella classe i codici ma non va e poi mi dice che in
"Dim Withevents wmp As New mediaplayer.mediaplayer"
New non va bene ma se tolgo Withevents non mi da errore tuttavia non ho capito molto bene come associare le proprietà allo slider visto che sono inesistenti scrivendo Es.: slider1.[proprietà]...
grazie in anticipo...
|
|
()
Newbie
Messaggi:
Iscritto:
|
Comuqnue nella classe gli altri controlli, Play Stop Pausa ecc...
cosa significa visto che io ho provato a inserire nella classe i codici ma non va e poi mi dice che in
"Dim Withevents wmp As New mediaplayer.mediaplayer"
New non va bene ma se tolgo Withevents non mi da errore tuttavia non ho capito molto bene come associare le proprietà allo slider visto che sono inesistenti scrivendo Es.: slider1.[proprietà]...
grazie in anticipo...
|
|
LuigiBiasi (Normal User)
Expert
Messaggi: 237
Iscritto: 15/09/2006
|
Prima di tutto devi aggiungere dalle reference tutti gli oggetti Windows Media Player.
Dopo nella classe scrivi:
Codice sorgente - presumibilmente VB.NET |
Dim Withevents wmp as mediaplayer.mediaplayer Private Sub Class_Initialize() set wmp = new mediaplayer.mediaplayer End Sub
|
wmp è l'instanza dell'oggetto mediaplayer, ed ha le sue proprieta e le sue funzioni.
Questo intendevo con i controlli Play Stop Pause ecc...
Codice sorgente - presumibilmente VB.NET |
Public Sub Play(brano as string) wmp.open(brano) End Sub
|
Sempre nella classe crei le proprieta che ti ho descritto prima.
Funziona è tutto testato.
Ciao. |
|