Next FormControl
On Error GoTo 0 pfrmIn.Height = MaxY pfrmIn.Width = MaxX End If
On Error GoTo 0 End If
For Each FormControl In pfrmIn ResizeControl FormControl, pfrmIn Next FormControl
On Error Resume Next
If Not pfrmIn.MDIChild Then On Error GoTo 0 pfrmIn.Visible = isVisible Else
If bNew Then pfrmIn.Height = StartY pfrmIn.Width = StartX
End If
bRunning = False End If
End Sub
Public Sub SaveFormPosition(pfrmIn As Form)
Dim i As Long
If MaxForm > 0 Then
For i = 0 To (MaxForm - 1)
If FormRecord(i).Name = pfrmIn.Name Then
&
上一页 [1] [2] [3] [4] [5] [6] [7] 下一页
Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长:MinTao ICP备案号:鄂ICP备11006601号-18