Postada em 11/11/2010 22:14 hs
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?
|
