| VBA-Beispiel 110 | |
|
|
Anzeige der UserForm mit der Zoom-Eigenschaft ändern |
|
| Verändert zur Laufzeit die Größe der UserForm. | |
|
Private Sub cmbKleiner_Click() If Zoom <> 10 ThenWith Me .Zoom = .Zoom - 10 .Height = .Height - 30 .Width = .Width - 30 .Caption = "Zoom: " & .Zoom & " (min 10)" .lblWidth.Caption = "Breite: " & Me.Width .lblHeight.Caption = "Höhe: " & Me.Height .lblZoom.Caption = "Zoom: " & Me.Zoom & " (min 10 max 400) " End With Else Me.cmbGroesser.SetFocus End If End Sub Private Sub cmbGroesser_Click() If Me.Zoom <> 400 ThenWith Me .Zoom = .Zoom + 1 .Height = .Height + 3 .Width = .Width + 3 .Caption = "Zoom: " & .Zoom & " (max 400)" .lblWidth.Caption = "Breite: " & Me.Width .lblHeight.Caption = "Höhe: " & Me.Height .lblZoom.Caption = "Zoom: " & Me.Zoom & " (min 10 max 400) " End With Else Me.cmbKleiner.SetFocus End If End Sub |
|
|
Download: vba110.zip |
|
relevante Links:
|
|
| |