Private Sub Form_Resize()
    If Me.WindowState <> vbMinimized And frmMain.WindowState <> vbMinimized Then
        '边界处理
        If Me.ScaleHeight < 10 * LabelTitle.Height Then
            
            Exit Sub
        End If
        If Me.ScaleWidth < LabelTitle.Width + LabelTitle.Width / 2 Then
            
            Exit Sub
         End If
     end if
end sub

解决方案 »

  1.   

    Private Sub Form_Resize()
        If Me.WindowState <> vbMinimized And frmMain.WindowState <> vbMinimized Then'如果窗体的状态不是最小化和最大化就...
            '边界处理
            If Me.ScaleHeight < 10 * LabelTitle.Height Then'
                
                Exit Sub
            End If
            If Me.ScaleWidth < LabelTitle.Width + LabelTitle.Width / 2 Then
                
                Exit Sub
             End If
         end if
    end sub
      

  2.   

    通俗点说就是在窗口长宽发生变化的时候重新设置窗口的width和height属性咯
      

  3.   

    If Me.ScaleHeight < 10 * LabelTitle.Height Then'
                
                Exit Sub
            End If
    这条if语句的作用!?
      

  4.   

    Me.ScaleHeight < 10 * LabelTitle.Height就退出那?
      

  5.   

    我相信你下面是还有设置窗体控件位置和大小的语句的
    你上面那句的意思是:如果当前窗体的高度小于10倍labelTitle的高度的话,那么就直接跳出函数,不执行下面的语。