26 lines
927 B
VB.net
26 lines
927 B
VB.net
Public Class frmGrayOut
|
|
|
|
Private Sub frmGrayOut_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
|
|
If Me.ParentForm IsNot Nothing Then
|
|
Me.ParentForm.BringToFront()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub frmGrayOut_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
|
|
If e.KeyCode = Keys.Escape Then
|
|
Me.Close()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub frmGrayOut_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
Me.Location = New Point(0, 0)
|
|
Me.Size = Screen.PrimaryScreen.WorkingArea.Size
|
|
'Damit Center von Child-Form richtig ist
|
|
End Sub
|
|
|
|
Private Sub frmGrayOut_Shown(sender As Object, e As EventArgs) Handles Me.Shown
|
|
Me.MaximumSize = Screen.PrimaryScreen.WorkingArea.Size
|
|
Me.Size = Screen.PrimaryScreen.WorkingArea.Size
|
|
Me.Location = New Point(0, 0)
|
|
End Sub
|
|
End Class |