View Full Version : [VB] avviare un processo di Media Player (maximizzata)...
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.....!!!
Invece di lanciare il tuo filmato con un altro processo puoi includere il componente di Windows MEdia Player nella tua form, visualizzare il file e settare il player in FullScreen...
MediaPlayer1.EnableFullScreenControls = True
MediaPlayer1.DisplaySize = mpFullScreen
MediaPlayer1.Open ("c:\percorso\pippo.avi")
ho gia provato ma non e' perfetto, ho un timer che mi maximizza e mi minimizza il Form ma alla seconda maximizzazione media Player mi proietta il filmato in modalita' normale, c'e' un bug...
Non devi massimizzare il form...il form lo lasci com'è...devi impostare questa proprietà del componente : MediaPlayer1.DisplaySize = mpFullScreen
OK certo, che stupido, ora funziona.........
Grazie mille ciao!!!
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 ???
C'è l'evento EndOfStream del componente MediaPlayer :
Private Sub MediaPlayer1_EndOfStream(ByVal Result As Long)
MsgBox ("Il filmato e' finito!")
End Sub
Seei un grande, ma dove studi per sapere tutte queste cose???
io mi vorrei documentare nei protocolli di rete e varie applicazioni network per VB.NET , ma non trovo nulla........
Originariamente inviato da race2
[B]Seei un grande, ma dove studi per sapere tutte queste cose???
Ho installato VB la prima volta circa 3 o 4 giorni fa :)
Per .Net non ti posso aiutare...
Originariamente inviato da cionci
[B]C'è l'evento EndOfStream del componente MediaPlayer :
Private Sub MediaPlayer1_EndOfStream(ByVal Result As Long)
MsgBox ("Il filmato e' finito!")
End Sub
ma non funziona...............
come lo faccio attivare???
A me funziona...
Non so in VB.Net come tu possa gestire l'evento...
C'è un qualche tool che ti permetta di vedere tutti gli eventi di un oggetto ? Magari da quello puoi passare alla parte del codice da scrivere...
Originariamente inviato da cionci
[B]
Ho installato VB la prima volta circa 3 o 4 giorni fa :)
Per .Net non ti posso aiutare...
ma ti diverti a prendermi per il c... ???? :D:D:D
Originariamente inviato da cionci
[B]A me funziona...
Non so in VB.Net come tu possa gestire l'evento...
C'è un qualche tool che ti permetta di vedere tutti gli eventi di un oggetto ? Magari da quello puoi passare alla parte del codice da scrivere...
il mio evento e' questo:
Private Sub AxMediaPlayer1_EndOfStream(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxMediaPlayer1.EndOfStream
MsgBox("Il filmato e' finito!")
End Sub
ma ho modificato l'Handles , pero me lo sottolinea come errore
questo e' il messaggio di errore:
-- impossibile trovare un evento EndOfStream con la stessa firma del metodo che lo gestisce---
Originariamente inviato da race2
[B]ma ti diverti a prendermi per il c... ???? :D:D:D
Nono è vero... :)
Ma l'intestazione di quella funzione ci pensa VB .Net a scriverla ?
quindi se inserisco la tua Sub nel progetto e non faccio altro dovrebbe funzionare ???
non devo richiamare la Sub o altro ???
Originariamente inviato da race2
[B]quindi se inserisco la tua Sub nel progetto e non faccio altro dovrebbe funzionare ???
non devo richiamare la Sub o altro ???
Non credo che funzioni in VB.Net...
In VB si può selezionare ogni oggetto e scegliere l'evento da implementare... Scegliendolo viene scritta l'intestazione della funzione...
In pratica devi fare in modo che VB.Net ti scriva da solo l'intestazione della funzione...
Mi fai uno screenshot dell'ambiente di sviluppo quando sei nella finestra che ti eprmette di scrivere il codice ?
Non so cosa intendi per "finestra che ti eprmette di scrivere il codice"
La foto ???
ALLEGATO......
Ho trovato questi tre errori, cosa sono???
eppure non mi danno noia il prog. gira ugualmente......
ma non vorrei che impediscono il funzionamento di quella Sub......
Proprio quella...
Se te ora clicki sulla freccia della listbox dove c'è scritto Form1...e selezioni AxMediaPlayer1...
Poi vai sulla seconda listbox e cerchi EndOfStream e la selezioni (mi raccomando prima cancella la EndOfStream che hai già implemetato)...cosa succede ?
Non ho idea di che tipo di errori si tratti...
Cacchio.........!!!
funziona!!!!!!!!!!!!!!!
mi ha creato un evento funzionante.!!!!!!!!!
Private Sub AxMediaPlayer1_EndOfStream(ByVal sender As Object, ByVal e As AxMediaPlayer._MediaPlayerEvents_EndOfStreamEvent) Handles AxMediaPlayer1.EndOfStream
Me.WindowState = System.Windows.Forms.FormWindowState.Minimized
End Sub
ma in quel modo posso creare tutti gli eventi possibili ???
Originariamente inviato da race2
Cacchio.........!!!
funziona!!!!!!!!!!!!!!!
mi ha creato un evento funzionante.!!!!!!!!!
Eh sì...non so com'è in VB.Net, ma in VB si possono scorrere tutti gli eventi di ogni oggetto...e di conseguenza gestirli...
Dato che sei un grande, :D , mi puoi dire nel secondo allegato quei tre errori come mai ??? :confused: :confused: :confused:
Originariamente inviato da race2
[B]Dato che sei un grande, :D , mi puoi dire nel secondo allegato quei tre errori come mai ??? :confused: :confused: :confused:
Come ti ho già detto non ne ho idea... Da quel punto di vista VB sembra essere molto diverso da VB.Net...
OK, sei un grande ugualmente, grazie a presto, ciao!!!
Originariamente inviato da race2
[B]OK, sei un grande ugualmente, grazie a presto, ciao!!!
Grazie...e spero che tu abbia ragione :)
vBulletin® v3.6.4, Copyright ©2000-2025, Jelsoft Enterprises Ltd.