Zoomer un UserForm

Pour le test, ouvrir un nouveau UserForm.

Coller quelque contrôles, n'importe lesquels c'est juste pour visualiser.

Coller un SpinBouton comme sur le modèle.

ZoomUF

Coller le code ci-dessous dans le module de l'UF.

Option Explicit
Dim LarUF As Single
Dim HautUF As Single
Dim LeftUF As Single
Dim TopUF As Single

Private Sub UserForm_Activate()
    LarUF = Me.Width
    HautUF = Me.Height
    LeftUF = Me.Left
    TopUF = Me.Top
End Sub

Private Sub SpinButton1_SpinDown()
Dim Taux As Single
    Taux = (Me.Zoom / 100) * 0.9
    Me.Move LeftUF / Taux, TopUF / Taux, LarUF * Taux, HautUF * Taux
    Me.Zoom = Me.Zoom - 10
End Sub

Private Sub SpinButton1_SpinUp()
Dim Taux As Single
    Taux = (Me.Zoom / 100) * 1.1
    Me.Move LeftUF / Taux, TopUF / Taux, LarUF * Taux, HautUF * Taux
    Me.Zoom = Me.Zoom + 10
End Sub

Augment/diminue le zoom de 10% à chaque clic.

Salut lermite

Merci pour ta proposition.

Votre code est simple comme vous l'avez dit mais je trouve que l'autre est plus pratique.

En un seul click on agrandi ou réduit et les icones sont standard. donc plus facile à comprendre par les autres utilisateurs.

Peut m'expliquer afin que je puisse adapter l'ancien code (agrandir, reduire à mes usf)?

Vous aviez parlé d'un code pour la gestion du format date. Jusqu'à present, j'ai pas senti de changement à ce niveau?

Cdlt

Salut Lermite

Au moment ou vous me proposiez ce code, je n'ai pas su l'apprécier à sa juste valeur.

Aujourd'hui, je bien compris qu'il est très pratique surtout les écrans n'ont pas les même tailles.

Je te remercie infiniment et te présente mes excuses.

Merci

Re Zombe,

Pas de souci, chacun "prend" ce qui l’intéresse.

Mais depuis il y a de l'eau qui a couler sous les ponts

Voire la version suivante

A+

Rechercher des sujets similaires à "zoomer userform"