退出程序时,如何同时关闭已打开的画面
打开程序后,阅览中打开了“08”画面,但关闭程序后,画面总留在屏幕上。不知如何在关闭程序后,也将先前打开的画面同时关闭,部分代码如下:请高手指点一下,先谢了!Private Sub form_resize()
If Frame1.Height > Me.Height Then
VScroll1.Visible = True
Else
VScroll1.Visible = False
End If
If Frame1.Width > Me.Width Then
HScroll1.Visible = True
Else
HScroll1.Visible = False
End If
HScroll1.Left = 0
HScroll1.Top = Me.ScaleHeight - HScroll1.Height
VScroll1.Left = Me.ScaleWidth - VScroll1.Width
VScroll1.Top = 0
HScroll1.Width = Me.ScaleWidth
VScroll1.Height = Me.ScaleHeight
If VScroll1.Visible = True Then
If HScroll1.Visible = True Then
HScroll1.Width = Abs(Me.ScaleWidth - VScroll1.Width)
VScroll1.Height = Abs(Me.ScaleHeight - HScroll1.Height)
End If
End If
HScroll1.Max = (Frame1.Width - Me.Width) + 3 * VScroll1.Width
VScroll1.Max = (Frame1.Height - Me.Height) + 3 * HScroll1.Height
HScroll1.ZOrder
VScroll1.ZOrder
Frame1.Left = (Me.ScaleWidth - Frame1.Width) / 2
End Sub
Private Sub Image10_Click()
Load 08a
08a.Show
End Sub
[此贴子已经被作者于2015-12-5 15:28编辑过]