nbsp; FormRecord(i).Top = pfrmIn.Top
FormRecord(i).Left = pfrmIn.Left
FormRecord(i).Height = pfrmIn.Height
FormRecord(i).Width = pfrmIn.Width Exit Sub End If
Next i
AddForm (pfrmIn) End If
End Sub
Public Sub RestoreFormPosition(pfrmIn As Form)
Dim i As Long If MaxForm > 0 Then
For i = 0 To (MaxForm - 1)
If FormRecord(i).Name = pfrmIn.Name Then
If FormRecord(i).Top < 0 Then pfrmIn.WindowState = 2 ElseIf FormRecord(i).Top < 30000 Then pfrmIn.WindowState = 0 pfrmIn.Move FormRecord(i).Left, FormRecord(i).Top, FormRecord(i).Width, FormRecord(i).Height Else pfrmIn.WindowState = 1 End If
Exit Sub End If
Next i
End If
End Sub Public Sub Resize_ALL(Form_Name As Form)
Dim OBJ As Object For Each OBJ In Form_Name ResizeControl OBJ, Form_Name Next OBJ
End Sub
Public Sub DragForm(frm As Form)
On Local Error Resume Next Call ReleaseCapture Call SendMessage(frm.hwnd, WM_NCLBUTTONDOWN, 2, 0)
End Sub
上一页 [1] [2] [3] [4] [5] [6] [7] 下一页 没有相关教程
|