|
Ein Visual Basic-Form können Sie beispielsweise mit folgendem
Code in der Mitte des Bildschirms platzieren:
With Form1
.Move (Screen.Width - .Width) \ 2, (Screen.Height - .Height) \ 2
End With
Wenn Sie dagegen ein MDI-Childform in der Mitte der
Arbeitsfläche eines MDI-Hauptforms platzieren möchten, ersetzen
Sie die Bezüge Screen.Width bzw. Screen.Height
durch MDIForm1.ScaleWidth bzw. MDIForm1.ScaleHeight.
Die Prozedur CenterMDIChild zentriert ein MDI-Childform in einem
MDI-Hauptform. Optional können Sie dazu, ähnlich der Move-Methode,
die gewünschte Breite und/oder Höhe des MDI-Childforms gleich mit
angeben.
Public Sub CenterMDIChild(MDIForm As MDIForm, Child As Form, _
Optional ByVal Width As Single, Optional ByVal Height As Single)
Dim nWidth As Single
Dim nHeight As Single
With Child
If Width > 0 Then
nWidth = Width
Else
nWidth = .Width
End If
If Height > 0 Then
nHeight = Height
Else
nHeight = .Height
End If
.Move _
(MDIForm.ScaleWidth - nWidth) \ 2, _
(MDIForm.ScaleHeight - nHeight) \ 2, nWidth, nHeight
End With
End Sub
|