VBA-Beispiel 110
mail schreiben
mail schreiben

Anzeige der UserForm mit der Zoom-Eigenschaft ändern

Verändert zur Laufzeit die Größe der UserForm.
Private Sub cmbKleiner_Click()

If Zoom <> 10 Then
  With 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 Then

  With 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