Close FullScreen with MouseMove Event (video)

ColdandUgly

New member
Joined
Jul 19, 2005
Messages
3
Seems like this should be easy enough.

Code:
Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
        If boolFull = True Then
            Try
                mobjVideo.Fullscreen = False
                boolFull = False
            Catch ex As Exception
                MsgBox(ex.ToString)
            End Try
        End If
    End Sub



But this doesnt work...
 
Re:

Sorry.

Doesnt work means it doesnt leave fullscreen mode.
I was unable to check mobjVideo.Fullscreen as Boolean
So to determine if the video was playing at full screen I set a boolean variable.

Code:
Private Sub cmdFull_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdFull.Click
        Try
            mobjVideo.Fullscreen = True
            boolFull = True
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
        Debug.Write(boolFull)
    End Sub

The debug log shows
false
fasle
false
false
false
true <- set full screen
false <- subsequently moved the mouse

boolFull is declared in the General declarations as boolean.
And looks like it holds its value.
I am geissing the following false is because I moved the mouse in full screen mode.

But DX didnt return the window to normal view.
 
Back
Top