Freigeben über

Layout-Ereignis, OldLeft-, OldTop-, OldHeight-, OldWidth-Eigenschaft (Beispiel)

  • Artikel

Im folgenden Beispiel werden die Eigenschaften OldLeft und OldTop sowie OldHeight und OldWidth innerhalb des Layout-Ereignisses verwendet, um ein Steuerelement an seiner aktuellen Position und Größe zu halten.

Der Benutzer klickt auf das CommandButton-Steuerelement mit der Bezeichnung Move ComboBox , um das Steuerelement zu verschieben, und antwortet dann auf ein Meldungsfeld. Der Benutzer kann auf die mit Reset ComboBox beschriftete Befehlsschaltfläche klicken, um das Steuerelement für eine weitere Wiederholung zurückzusetzen.

Um dieses Beispiel zu verwenden, kopieren Sie diesen Beispielcode in den Deklarationsbereich eines Formulars. Stellen Sie sicher, dass das Formular folgende Komponenten enthält:

  • Zwei CommandButton -Steuerelemente mit der Bezeichnung "CommandButton1" und "CommandButton2".
  • Ein Kombinationsfeld -Steuerelement (ComboBox) mit der Bezeichnung "ComboBox1".
Dim Initialize As Integer 
Dim ComboLeft, ComboTop, ComboWidth, _ 
 ComboHeight As Integer 
 
Private Sub UserForm_Initialize() 
 Initialize = 0 
 CommandButton1.Caption = "Move ComboBox" 
 CommandButton2.Caption = "Reset ComboBox" 
 
 'Information for resetting ComboBox 
 ComboLeft = ComboBox1.Left 
 ComboTop = ComboBox1.Top 
 ComboWidth = ComboBox1.Width 
 ComboHeight = ComboBox1.Height 
End Sub 
 
Private Sub CommandButton1_Click() 
 ComboBox1.Move 0, 0, , , True 
End Sub 
 
Private Sub UserForm_Layout() 
 Dim MyControl As Control 
 Dim MsgBoxResult As Integer 
 'Suppress MsgBox on initial layout event. 
 If Initialize = 0 Then 
 Initialize = 1 
 Exit Sub 
 End If 
 
 MsgBoxResult = MsgBox("In Layout event " _ 
 & "- Continue move?", vbYesNo) 
 If MsgBoxResult = vbNo Then 
 ComboBox1.Move ComboBox1.OldLeft, _ 
 ComboBox1.OldTop, ComboBox1.OldWidth, _ 
 ComboBox1.OldHeight 
 End If 
End Sub 
 
Private Sub CommandButton2_Click() 
 ComboBox1.Move ComboLeft, ComboTop, _ 
 ComboWidth, ComboHeight 
End Sub

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.