「VB.NET」フォームを最大化、最小化する

2021年10月1日

書式
1.フォームを最大化
フォーム名.WindowState = FormWindowState.Maximized

2.フォームを最小化
フォーム名.WindowState = FormWindowState.Minimized

使用例

Plain text
Copy to clipboard
Open code in new window
EnlighterJS 3 Syntax Highlighter
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'フォームを最大化
Me.WindowState = FormWindowState.Maximized
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim frm2 As New Form2()
'フォームを最小化
frm2.WindowState = FormWindowState.Minimized
frm2.Show()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'フォームを最大化 Me.WindowState = FormWindowState.Maximized End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim frm2 As New Form2() 'フォームを最小化 frm2.WindowState = FormWindowState.Minimized frm2.Show() End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    'フォームを最大化
    Me.WindowState = FormWindowState.Maximized

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim frm2 As New Form2()
    'フォームを最小化
    frm2.WindowState = FormWindowState.Minimized
    frm2.Show()

End Sub

 

VB.net

Posted by arkgame