contrôles d'un USF plein écran[RESOLU]

[spyki]

Bonjour le forum,
je vous demande de l'aide, j'ai un USF que je met en plain écran a l'ouverture, bouton Saisie
ma difficulté est de mettre les objets de l'USF en proportion avec le plein écran
fichier joint

merci de votre aide
J

 

[Roland_M]

Re : contrôles d'un USF plein écran

bonjour,

MSG supprimé !

EDIT: voir comme ceci

Private Sub UserForm_Activate()
Dim SvgMeWidth!, SvgMeHeight!, NewSvgMeWidth!, NewSvgMeHeight!, RX!, RY!
SvgMeWidth! = Me.Width: SvgMeHeight! = Me.Height
With Application
    Me.Top = .Top
    Me.Left = .Left
    Me.Height = .Height
    Me.Width = .Width
End With
NewSvgMeWidth! = Me.Width: NewSvgMeHeight! = Me.Height
RX! = NewSvgMeWidth! / SvgMeWidth!: RY! = NewSvgMeHeight! / SvgMeHeight!
Dim Ctrl As MSForms.Control
For Each Ctrl In Me.Controls
    Ctrl.Move Ctrl.Left * RX!, Ctrl.Top * RY!, Ctrl.Width * RX!, Ctrl.Height * RY!
Next
End Sub

 

[spyki]

Re : contrôles d'un USF plein écran

merci de ta réponse, mais maintenant le usf est plus grand que mon écran et ceci dois s'adapter a plusieurs tailles d'écran, si tu peux m'aider
merci
J.

 

[xhudi69]

Re : contrôles d'un USF plein écran

Bonjour spyki, le Forum,
Bonjour Roland_M

En PJ differrents UserForm pris au hazard de mes périgrinations Forumesques, si cela peut t'aider.

Merci au contributeurs

@+

EDIT: Désolé pour le Chassé_Croisé

 

[spyki]

Re : contrôles d'un USF plein écran

Merci a vous deux, je vais essayer de les adapter a mes besoins
bonne week end et à nouveau un gran merci

 

[Roland_M]

Re : contrôles d'un USF plein écran

re

salut xhudi69 !

@spyki, je crois que tu n'as pas pris la modif !?

 

[spyki]

Re : contrôles d'un USF plein écran

Oui je bien pris le nouveau code celui-ci marche bien,même s'il déborde qq peut

merci beaucoup et bon week end
J

 

[Roland_M]

Re : contrôles d'un USF plein écran[RESOLU]

re

il est possible de jouer avec le rapport x,y

exemple:

Private Sub UserForm_Activate()
Dim SvgMeWidth!, SvgMeHeight!, NewSvgMeWidth!, NewSvgMeHeight!, RX!, RY!
SvgMeWidth! = Me.Width: SvgMeHeight! = Me.Height
With Application
    Me.Top = 0: Me.Left = 0
    Me.Height = .Height * 0.99
    Me.Width = .Width * 0.99
End With
NewSvgMeWidth! = Me.Width: NewSvgMeHeight! = Me.Height
RX! = NewSvgMeWidth! / SvgMeWidth!: RY! = NewSvgMeHeight! / SvgMeHeight!
Dim Ctrl As MSForms.Control
For Each Ctrl In Me.Controls
    Ctrl.Move Ctrl.Left * RX!, Ctrl.Top * RY!, Ctrl.Width * RX!, Ctrl.Height * RY!
Next
End Sub

 

[spyki]

Re : contrôles d'un USF plein écran[RESOLU]

Merci beaucoup celui-ci marche très bien.
Bonne semaine
<j