Guest User

Untitled

a guest
Apr 3rd, 2023
193
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VB.NET 1.85 KB | Source Code | 0 0
  1. Public Class Form1
  2.  
  3.     Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles Button1.Click
  4.         Using regularThatOverrides As New RegularThatOverrides()
  5.             regularThatOverrides.StartPosition = FormStartPosition.CenterParent
  6.             regularThatOverrides.WindowState = FormWindowState.Normal
  7.             regularThatOverrides.ShowDialog(Me)
  8.             regularThatOverrides.Close()
  9.         End Using
  10.     End Sub
  11.  
  12.     Private Sub SimpleButton2_Click(sender As Object, e As EventArgs) Handles Button2.Click
  13.         Using regularThatOverrides As New RegularThatOverrides()
  14.             regularThatOverrides.StartPosition = FormStartPosition.CenterParent
  15.             regularThatOverrides.WindowState = FormWindowState.Normal
  16.             regularThatOverrides.ShowDialog()
  17.             regularThatOverrides.Close()
  18.         End Using
  19.     End Sub
  20.  
  21.  
  22.     Public Class RegularThatOverrides
  23.         Inherits Form
  24.  
  25.         Protected Overrides Sub OnLoad(e As EventArgs)
  26.             MyBase.OnLoad(e)
  27.             Me.WindowState = FormWindowState.Maximized
  28.         End Sub
  29.     End Class
  30.  
  31.     Private Sub SimpleButton3_Click(sender As Object, e As EventArgs) Handles Button3.Click
  32.         Using regularForm As New Form()
  33.             regularForm.StartPosition = FormStartPosition.CenterParent
  34.             regularForm.WindowState = FormWindowState.Normal
  35.             regularForm.ShowDialog(Me)
  36.             regularForm.Close()
  37.         End Using
  38.     End Sub
  39.  
  40.     Private Sub SimpleButton4_Click(sender As Object, e As EventArgs) Handles Button4.Click
  41.         Using regularForm As New Form()
  42.             regularForm.StartPosition = FormStartPosition.CenterParent
  43.             regularForm.WindowState = FormWindowState.Maximized
  44.             regularForm.ShowDialog(Me)
  45.             regularForm.Close()
  46.         End Using
  47.     End Sub
  48.  
  49. End Class
  50.  
Advertisement
Add Comment
Please, Sign In to add comment