Private Sub Form_Resize()
If Me.WindowState <> vbMinimized And fMainForm.WindowState <> vbMinimized Then
If Me.ScaleHeight < 10 * lblTitle.Height Then
Exit Sub
End If
If Me.ScaleWidth < lblTitle.Width + lblTitle.Width / 2 Then
Exit Sub
End If
'¿ØÖƿؼþµÄλÖÃ
lblTitle.Top = lblTitle.Height
lblTitle.Left = (Me.Width - lblTitle.Width) / 2
msgList.Top = lblTitle.Top + lblTitle.Height + lblTitle.Height / 2
msgList.Width = Me.ScaleWidth - 200
msgList.Left = Me.ScaleLeft + 100
msgList.Height = Me.ScaleHeight - msgList.Top - 1500
Frame2.Top = msgList.Top + msgList.Height + 50
Frame2.Left = Me.ScaleWidth / 2 - 3000
End If
End Sub总是说 If Me.WindowState <> vbMinimized And fMainForm.WindowState <> vbMinimized Then有错!
“实时错误'91'
对象变量或者with块变量未设置”
大家帮忙看看啊~急~谢谢~
If Me.WindowState <> vbMinimized And fMainForm.WindowState <> vbMinimized Then
If Me.ScaleHeight < 10 * lblTitle.Height Then
Exit Sub
End If
If Me.ScaleWidth < lblTitle.Width + lblTitle.Width / 2 Then
Exit Sub
End If
'¿ØÖƿؼþµÄλÖÃ
lblTitle.Top = lblTitle.Height
lblTitle.Left = (Me.Width - lblTitle.Width) / 2
msgList.Top = lblTitle.Top + lblTitle.Height + lblTitle.Height / 2
msgList.Width = Me.ScaleWidth - 200
msgList.Left = Me.ScaleLeft + 100
msgList.Height = Me.ScaleHeight - msgList.Top - 1500
Frame2.Top = msgList.Top + msgList.Height + 50
Frame2.Left = Me.ScaleWidth / 2 - 3000
End If
End Sub总是说 If Me.WindowState <> vbMinimized And fMainForm.WindowState <> vbMinimized Then有错!
“实时错误'91'
对象变量或者with块变量未设置”
大家帮忙看看啊~急~谢谢~
If frmMainForm.WindowState <> vbMinimized And fMainForm.WindowState <> vbMinimized Then
If Me.WindowState <> vbMinimized And frmMain.WindowState <> vbMinimized Then
这句话什么意思啊?
vbMaximized 是窗体最大化
Top-返回或设置对象的内顶部和它的容器的顶边之间的距离。
Width-宽度
Height-高度你的程序里那些加加减减都是在调整控件的大小/位置,不难理解。
ScaleHeight、ScaleWidth 属性当使用图形方法或调整控件位置时,返回或设置对象内部的水平 (ScaleWidth) 或垂直 (ScaleHeight) 度量单位。对于 MDIForm 对象,在设计时 是不可用的,并且在运行时是只读的。
简单点说,也是用于表示高度和宽度的属性。
意思是 如果,MDI(多文档)主窗体frmMain不是最小化并且我这个窗体(指运行这段代码的这个窗体,应该是一个mdi子窗体,出现在frmMain中)也没有最小化的话就
简单的说:如果我的父窗体现在不是最小化并且我也不是最小化的话就执行下面的代码