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
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
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
Exit Sub
End If
这条if语句的作用!?
你上面那句的意思是:如果当前窗体的高度小于10倍labelTitle的高度的话,那么就直接跳出函数,不执行下面的语。