[VB] avviare un processo di Media Player (maximizzata)...

[w_t]

VB.NET;


Salve!!!

Come posso fare ad attivare un filmato (.avi) in modalita full screen da codice...???

nel mio caso il lettore predefinito e' "Media Player"

io faccio cosi:

Process.Start("C:\FILMATI\pippo.avi")

ma mi si apre in modalita "normale", io lo voglio "Full Screen" all'avvio......


vi prego di aiutarmi.....!!!

[ddies]

Sei già a VB.NET tu?
Process.start non ha le stesse funzioni di Shell?
Senno usa l'api shellexecute dove puoi passarli anche vbmaximized

[w_t]

io ho fatto questo:

    Public Function LaunchProcess()
        Dim Proc As New Process()
        Proc.EnableRaisingEvents = True
        Proc.SynchronizingObject = Me
        Proc.StartInfo.Arguments = "C:\Programmi\Windows Media Player\"
        Proc.StartInfo.FileName = "wmplayer.exe"
        Proc.StartInfo.UseShellExecute = True
        Proc.StartInfo.WindowStyle = ProcessWindowStyle.Maximized
        Proc.Start()
    End Function

ma mi maximizza "Media Player" e io vorrei il "Full Screen" non solo la maximizzazione...

[ddies]

Ho paura di non saperti rispondere mi spiace.

Ma è un opzione del windows media player, è una voce di menù quindi non si può comandarla esternamente.

Prova a vedere nel file ini del windows media player, tra le opzioni se è possibile farlo partire in full screen ma dubito.

Ciao.

[w_t]

ok, mi sa che hai ragione, ti ringrazio per ora, ciao!!!

[w_t]

Ho risolto cosi':

AxMediaPlayer1.EnableFullScreenControls = True
AxMediaPlayer1.DisplaySize = MediaPlayer.MPDisplaySizeConstants.mpFullScreen
AxMediaPlayer1.Open("c:\FILMATI\start.avi")

Se volessi creare un evento quando il filmato e' finito, tipo:


If _filmato_finito_ Then

MsgBox("Il filmato e' finito!")

End If

Come posso fare ???

[ddies]

Non ti seguo, che è axMediaPlayer1? Un componente?

Se si non ha l'evento "done" come aveva il multimedia control ocx del VB6?

[w_t]

Si e' un componente Media Player, non conosco VB6...

[ddies]

Io devo ancora passare a vb.net per ora ho solo teoria. Prova questa

Private Sub FineFilmato(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxMediaPlayer1.Done
MsgBox("Il filmato è finito")
End Sub

[w_t]

Non esiste quell'evento.......