🚀 go-pugleaf

       Problema:
Ho la necessit� di visualizzare File-Video con VB6
con funzioni particolari....
Come regolare la velocit� del video.
Quindi ho scartato l'ocx di Windows-Media-Player
e utilizzo l'API mciSendString.

Sono riuscito ad ottenere quello che cercavo
mi restano i seguenti problemi:

1)Se apro e avvio un File-Video
il Monitor Di Sistema segnala che il
processore lavora al 100%.

Cosa che non succede con un File-Audio,
rallentando le risposte del computer.

Aprendo lo stesso File-Video con Windows-Media-Player
il processore � impegnato si e no 40~50%
-------------------------------------------------
2) Aprendo e avviando un File-Video con:

    xcorso = App.Path & "\MyClip.avi"
    comando = "Open " & xcorso & " Alias MyVideo"
        r1 = mciSendString(comando, rtn, 254, 0)
        r2 = mciSendString("Play MyVideo ", rtn, 254, 0)

Si apre un'altro form che visualizza il video.
eseguendo il resize del Form il video viene Strech-iato
adattandosi al form.

Disgraziatamente devo inserirlo nella Picture1
di un mio Form quindi, secondo MSDN:

    comando = "Window MyVideo handle " & Str$(frmVIDEO.Picture1.hWnd)
    r3 = mciSendString(comando, "", 0, 0)

Il comando viene eseguito ma se vario le dimensioni
della Picture1 il filmato non s'adatta.

allora aggiungo :
    comando = "WINDOW MyVideo Stretch"
    Rn = mciSendString(comando, rtn, Len(rtn), 0)

   MMSYSTEM259
   Parametro non definito nei comandi MCI.
-------------------------------------------------
infine x regolare la luminosit�

 comando = "Setvideo MyVideo Brightness to 5"

MMSYSTEM274
La periferica MCI in uso non supporta il comando specificato.
----------------------------------------------------

Eppure aprendo lo stesso file con Windows-Media-Player
il tutto funziona.

Qualsiasi consiglio � bene accetto