You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
39 lines
1.4 KiB
39 lines
1.4 KiB
|
|
Public Class CDGWindow |
|
|
|
Private Sub CDGWindow_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.DoubleClick |
|
AutoSizeWindow() |
|
End Sub |
|
|
|
Private Sub PictureBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox1.DoubleClick |
|
AutoSizeWindow() |
|
End Sub |
|
|
|
Private Sub AutoSizeWindow() |
|
If Me.WindowState = FormWindowState.Normal Then |
|
Me.WindowState = FormWindowState.Maximized |
|
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None |
|
Me.TopMost = True |
|
Me.Refresh() |
|
Else |
|
Me.WindowState = FormWindowState.Normal |
|
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Sizable |
|
Me.TopMost = False |
|
Me.Refresh() |
|
End If |
|
End Sub |
|
|
|
Private Sub CDGWindow_SizeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.SizeChanged |
|
If Me.WindowState = FormWindowState.Maximized Then |
|
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None |
|
Me.TopMost = True |
|
Else |
|
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Sizable |
|
Me.TopMost = False |
|
End If |
|
End Sub |
|
|
|
Private Sub CDGWindow_FormClosing(sender As System.Object, e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing |
|
|
|
End Sub |
|
End Class |