form maximizebox 点击时触发的是R…

最新推荐文章于 2023-10-12 13:35:24 发布

ncgege

最新推荐文章于 2023-10-12 13:35:24 发布

阅读量317

点赞数

分类专栏： VB.NET编程

本文链接：https://blog.csdn.net/esonbest1234/article/details/50724973

版权

VB.NET编程专栏收录该内容

82 篇文章 8 订阅

订阅专栏

以前理解错了，一位maximizebox点击时触发MaximumSizeChanged，原来是Resize事件，晕。

下面的代码示例处理 Form 的 Resize 事件。在调整窗体大小时，事件处理程序将确保窗体仍为正方形（其 Height 和 Width 仍保持相等）。

Visual Basic2008
Private Sub Form1_Resize(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Resize Dim myControl As Control myControl = sender ' Ensure the Form remains square (Height = Width). If myControl.Size.Height <> myControl.Size.Width Then myControl.Size = New Size(myControl.Size.Width, myControl.Size.Width) End If End Sub

Visual Basic2008

Private Sub Form1_Resize(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Resize

   Dim myControl As Control
   myControl = sender

   ' Ensure the Form remains square (Height = Width).
   If myControl.Size.Height <> myControl.Size.Width Then
      myControl.Size = New Size(myControl.Size.Width, myControl.Size.Width)
   End If
End Sub