求把窗体最小化的vb代码

来源：百度知道 编辑：UC知道 时间：2024/09/21 22:19:27

Me.WindowState = 1

观摩中...
我也在等答案
想写个心里测试.vbe 谁能教教我

Private Sub frmMain_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
If e.Button = Windows.Forms.MouseButtons.Right Then
Me.WindowState = FormWindowState.Minimized
End If
End Sub

Me.WindowState=1 '最小化
Me.WindowState=2 '最大化