Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - mcisendstring
Forum - Visual Basic 6 - mcisendstring

Avatar
()
Newbie


Messaggi:
Iscritto:

Segnala al moderatore
Postato alle 1:00
Giovedì, 01/01/1970
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???:)

PM Quote
Avatar
LuigiBiasi (Normal User)
Expert


Messaggi: 237
Iscritto: 15/09/2006

Segnala al moderatore
Postato alle 17:49
Martedì, 11/09/2007
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

  1. dim withevents wmp as new mediaplayer.mediaplayer
  2. Property Get DuarataBrano(durata as integer)
  3. durata = wmp.Duration
  4. End Property


e usi la proprieta DurataBrano nello slider per settare l grandezza massima.
poi:
Codice sorgente - presumibilmente VB.NET

  1. dim wmp as new mediaplayer.mediaplayer
  2. Property Get StatoCorrenteBrano(durata as integer)
  3. StatoCorrenteBrano = wmp.CurrentPosition
  4. End Property
  5. ...


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
PM Quote
Avatar
()
Newbie


Messaggi:
Iscritto:

Segnala al moderatore
Postato alle 18:19
Martedì, 11/09/2007
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...:)

PM Quote
Avatar
()
Newbie


Messaggi:
Iscritto:

Segnala al moderatore
Postato alle 18:23
Martedì, 11/09/2007
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...:)

PM Quote
Avatar
LuigiBiasi (Normal User)
Expert


Messaggi: 237
Iscritto: 15/09/2006

Segnala al moderatore
Postato alle 22:02
Martedì, 11/09/2007
Prima di tutto devi aggiungere dalle reference tutti gli oggetti Windows Media Player.
Dopo nella classe scrivi:
Codice sorgente - presumibilmente VB.NET

  1. Dim Withevents wmp as mediaplayer.mediaplayer
  2. Private Sub Class_Initialize()
  3. set wmp = new mediaplayer.mediaplayer
  4. 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

  1. Public Sub Play(brano as string)
  2. wmp.open(brano)
  3. End Sub


Sempre nella classe crei le proprieta che ti ho descritto prima.
Funziona è tutto testato.
Ciao.

PM Quote