Pegar evento KeyPress no MediaPlaye em FullScreen

[POLACK 0]

Olá pessoa olha eu aqui novamente!

Bom dessa vez acho que é mais simples, to tentantando pegar o evento KeyPress do componente MediaPlayer, ele estando em FullScreen, no form tirei de letra, mais quando fica full, só funciona "esc" "m" e "Barra de espaço".

 

Private Sub MediaPlayer_KeyPress(CharacterCode As Integer)

Select Case KeyPress

Case KeyPress = "70" 'caso precione a letra F

MediaPlayer.DisplaySize = mpFitToSize

Case KeyPress = "81" 'caso presione a letra Q

MediaPlayer.DisplaySize = mpFullScreen

End Select

tem algo errado no código, ou deve ser alguma propriedade?

[scorpio 7]

VEja a propriedade KeyPreview do formulário. Altere-a para TRUE.

[POLACK 0]

Ja verifiquei!

Em Design KeyPreview TRUE

 

Em execução:

 

Private Sub Form_Load()

KeyPreview = True

 

End Sub

 

 

Troquei o Media Player "msdxm.ocx" pelo Windows Media Player "wmp.dll"

 

agora o evento "EndOfStream" não ocorre ao fim do arquivo reproduzido

 

vou continuar tentando aqui..valeu aguardo mais soluções.