Forum di Excel e VBA, per condividere esperienze e risolvere problemi su:
Excel, Word, Access, Power Point, Microsoft Office, macro, Visual Basic e Visual Studio.
Controllo windows media player
- Hai un problema con Excel?
Controllo windows media player
di Antonio (utente non iscritto) data: 08/07/2011
Ciao amici,
con windows xp ho realizzato da tempo un progetto vba (excel) per mio nipote disabile, usando il controllo windows media player per la riproduzione di video e mp3 e monitor touch per l'esecuzione tramite tocco su anteprime. in pratica quando il video è in riproduzione su finestra ridotta di wmp, questo viene visualizzato full screen al tocco (proprietà click sinistro del mouse) e ad un successivo tocco viene visualizzato di nuovo su finestra ridotta. il problema nasce se questo progetto vba viene avviato da so windows 7, dotato della versione 12 (non disistallabile) di wmp.
il codice vba viene normalmente eseguito quando il video è in finestra ridotta (tocco su monitor touch), viceversa quando il video è full screen al tocco (o clic sinistro del mouse) il video viene messo in pausa (come da nuova proprietà di wmp 12) e i codici vba vengono totalmente ignorati come se wmp prendesse totalmente il controllo del so in modalità full screen. ovviamente la stessa cosa succede se il video viene riprodotto esternamente al progetto vba e non ho trovato nessuna opzione di wmp 12 per disabilitare la pausa al click sinistro del mouse (con la versione 9 di wmp, se il video è full screen viene semplicemente ridimensionato al click sinistro del mouse, senza mettere in pausa e senza ignorare i codici vba).
vi chiedo: visto che è impossibile installare versioni precedenti alla 12 in windows 7, esiste qualche codice vba che impedisca che wmp 12 prenda il controllo in modalità full screen ignorando vba? in alternativa, è possibile modificare qualche chiave del registro di windows? grazie comunque per l'interessamento, nella speranza che non debba per forza maggiore continuare ad utilizzare windows xp se voglio eseguire questo progetto!
antonio
p.s. è inutile che incolli il codice, perchè in modalità full screen di wmp 12 non viene visualizzato neanche un semplice messaggio msgbox!
Per essere fiscale....
di Antonio (utente non iscritto) data: 08/07/2011
A completamento della mia discussione, per correttezza incollo comunque i codici relativi al controllo windows media player.
grazie e saluti.
antonio
CODICE FUNZIONANTE, se WMP è in riproduzione e NON FULL SCREEN (al click sinistro del mouse, o al tocco su monitor touch screen, il video viene visualizzato FULL SCREEN): If Wmp1.playState = 3 And Wmp1.fullScreen = False Then Wmp1.fullScreen = True Exit Sub End If CODICE NON FUNZIONANTE (o meglio, totalmente ignorato se WMP 12 è in modalità full screen): If Wmp1.playState = 3 And Wmp1.fullScreen = True Then Wmp1.fullScreen = False Wmp1.uiMode = "none" Exit Sub End If
- Vuoi Approfondire?
