Try
Button1.Show()
AxWindowsMediaPlayer1.fullScreen = True
Button1.Focus()
Button1.Top = True
Catch ex As Exception
MessageBox.Show("An error has occured, please contact the coder.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Button1.hide ()
End Try
Public Class Form2
Private Sub mexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mexit.Click
Application.Exit()
End Sub
Private Sub play_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles play.Click
AxWindowsMediaPlayer1.Ctlcontrols.play()
End Sub
Private Sub mstop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mstop.Click
AxWindowsMediaPlayer1.Ctlcontrols.stop()
End Sub
Private Sub mpause_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mpause.Click
AxWindowsMediaPlayer1.Ctlcontrols.pause()
End Sub
Private Sub mup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mup.Click
AxWindowsMediaPlayer1.settings.volume = AxWindowsMediaPlayer1.settings.volume + 10
End Sub
Private Sub mdown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mdown.Click
AxWindowsMediaPlayer1.settings.volume = AxWindowsMediaPlayer1.settings.volume - 10
End Sub
Private Sub mmute_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mmute.Click
If AxWindowsMediaPlayer1.settings.volume = AxWindowsMediaPlayer1.settings.mute() Then
AxWindowsMediaPlayer1.settings.volume = 20
Else
AxWindowsMediaPlayer1.settings.volume = AxWindowsMediaPlayer1.settings.mute()
End If
End Sub
Private Sub Open_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Open.Click
Try
OpenFileDialog1.InitialDirectory = "My Computer"
OpenFileDialog1.ShowDialog()
AxWindowsMediaPlayer1.URL = OpenFileDialog1.FileName
AxWindowsMediaPlayer1.Ctlcontrols.play()
Catch ex As Exception
MessageBox.Show("An error has occured, please try again.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Sub FullScreenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FullScreenToolStripMenuItem.Click
Try
Button1.Show()
AxWindowsMediaPlayer1.fullScreen = True
Button1.Focus()
Button1.Top = True
Catch ex As Exception
MessageBox.Show("An error has occured, please contact the coder.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Button1.Hide()
End Try
End Sub
Private Sub NotifyIcon1_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseClick
Me.Show()
NotifyIcon1.Visible = False
End Sub
Private Sub MinimizeToTrayToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MinimizeToTrayToolStripMenuItem.Click
Me.Hide()
NotifyIcon1.Visible = True
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
AxWindowsMediaPlayer1.fullScreen = False
Button1.Hide()
End Sub
End Class
can u help me with dim on my tic tac toe code?