Maximiser un formulaire

Version imprimable

07/06/2007, 09h07
Janny

Maximiser un formulaire

Bonjour à tous !!!!
j'ai un formulaire qui n'est pas en plein écran.
Quand je clique sur le bouton "maximiser" en haut à droite de mon formulaire, il se met en plein écran, mais les objets reste à leur place.
Je voudrais que mes objets s'aggrandissent en meme temps.
Comment faire??

Merci
07/06/2007, 09h31
La Praline

Bonjour,

Citation:

Envoyé par Janny

j'ai un formulaire qui n'est pas en plein écran.

Ce n'est qu'une proriété à changer...

Citation:

Envoyé par Janny

Quand je clique sur le bouton "maximiser" en haut à droite de mon formulaire, il se met en plein écran

Normal...

Citation:

Envoyé par Janny

mais les objets reste à leur place.

Normal aussi... Je n'ai jamais croisé dans un quelconque univers Windows une fenêtre qui redimmensionnait la taille des composants lors du passage en plein écran...

En général on ne voit pas tous les éléments de la fenêtre lorsqu'on est pas en plein écran, mais c'est le fenêtre qui s'agrandi si on passe en plein écran, pas les composants...

Alors faisable c'est faisable... Il faudrait programmer la taille de tes controls (height, width, top, left) par rapport à la taille de la form visible... Mais ca risque d'être long et difficile...
07/06/2007, 11h05
Delbeke

Si çà peut t'aider, je viens d'uploader un composant qui pourrait bien résouldre ton problème dans les contributions.
07/06/2007, 11h49
rv26t
Bonjour,

LaPraline à dit :

Citation:

Normal aussi... Je n'ai jamais croisé dans un quelconque univers Windows une fenêtre qui redimmensionnait la taille des composants lors du passage en plein écran...

Je l'ai fait sous delphi sans aucun problème.
Mais on agit que sur 1, 2 ou 3 contrôles, généralement des listes.

Dans le cas ou tu n'aurais qu'une liste a agrandir : exemple avec listbox, mais cela fonctionne avec d'autre type de liste (listview, ...)
Tu la positionne en bas de ton formulaire et dans le rezise du formulaire tu fais
Code:

1 2 3 4 Private Sub Form_Resize() List1.Width = Form1.Width - List1.Left - 250 List1.Height = Form1.Height - List1.Top - 550 End Sub
Il faut contrôler que tu ne passes pas en négatif.
A+, Hervé.
07/06/2007, 13h26
La Praline

Le principe reste facile... après la réalisation, suivant la form peut s'avérer longue...
Suivant le niveau du developpeur aussi...
07/06/2007, 14h20
zazaraignée

Pour éviter que ce soit trop long...

Quand tu place un composant sur un formulaire, mets lui une valeur à sa propriété Tag selon le type de comportement souhaité. Ensuite fait une procédure qui boucle sur tous les composants de la fenêtre et selon la propriété Tag, se repositionne ou s'agrandit selon certains paramètres ou encore selon son conteneur qui serait plus facile à gérer. Si tu as plusieurs composants avec des comportements qui pourraient entrer en conflit avec d'autre, tu mets ces composants dans un autre conteneur, un PictureBox sans bordures par exemple.

Je tripote (heu... non... je concocte) un exemple et je reviens.

Ça c'est avéré moins complèxe que prévu en utilisant des conteneurs. J'ai juste utilisé le Tag d'un d'eux pour repositionner ses composants.

[Edit j'ai supprimé le fichier]Voici le projet exemple en format .rar. En passant, WinRar est gratuit au téléchargement (en version réduite mais fonctionnelle).

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Option Explicit
 
Private Sub Form_Load()
    Me.WindowState = vbMaximized
End Sub
 
Private Sub Form_Resize()
    ' Déplacer les boutons de droite
    picBoutonsDroite.Left = Me.ScaleWidth - picBoutonsDroite.Width
 
    ' Agrandir le panneau du bas en repositionnant les boutons
    ' et en étirant le label
    ' Note la propriété Tag du panneau contient la dernière largeur de celui-ci
    picPanneauBas.Width = Me.ScaleWidth
    picPanneauBas.Top = Me.ScaleHeight - picPanneauBas.Height
    ' position des boutons
    cmdAnnuler.Left = cmdAnnuler.Left + (picPanneauBas.Width - picPanneauBas.Tag)
    cmdEnregistrer.Left = cmdEnregistrer.Left + (picPanneauBas.Width - picPanneauBas.Tag)
    ' largeur du Label
    lblMessage.Width = lblMessage.Width + (picPanneauBas.Width - picPanneauBas.Tag)
    picPanneauBas.Tag = picPanneauBas.Width
 
    ' Taille du textbox en fonction des deux panneaux
    txtAffichage.Width = Me.ScaleWidth - picBoutonsDroite.Width
    txtAffichage.Height = Me.ScaleHeight - picPanneauBas.Height
End Sub

07/06/2007, 15h50
rv26t

La Praline a dit

Citation:

Le principe reste facile... après la réalisation, suivant la form peut s'avérer longue...
Suivant le niveau du developpeur aussi...

Cela dépend aussi du langage, Delphi permet d'ancrer les composants aux bords de la fenêtre et même le bord d'un composant sur le bord de la fenêtre ce qui simplifie beaucoup de chose. VB malheureusement ne le permet pas.

A+, Hervé
07/06/2007, 16h38
Janny

Merci à tous !!!
je vais essayer ça
zazaraignée je ne peux rien télécharger car je suis en entreprise et c'est bloqué, je l'ouvrirai chez moi ce soir et regarderai demain matin

encore merci !!!

J'ai fait quelques modifications au projet... L'ajout de deux constantes et deux petites lignes de code annoncées par un commentaire avec une astérisque '*.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Option Explicit
' Constantes
Private Const LargMin As Single = 3975
Private Const HautMin As Single = 3630
 
Private Sub Form_Load()
    picPanneauBas.Tag = Me.ScaleWidth
    Me.WindowState = vbMaximized
End Sub
 
Private Sub Form_Resize()
'*  ' Prévenir les erreurs provoquées par un redimentionnement vers des 
'*  ' dimentions trop petites pour les commandes qui suivent cette instruction
    If Me.ScaleWidth <= LargMin Or Me.ScaleHeight <= HautMin Then Exit Sub
 
    ' Déplacer les boutons de droite
    picBoutonsDroite.Left = Me.ScaleWidth - picBoutonsDroite.Width
'*  ' et sa hauteur
    picBoutonsDroite.Height = Me.ScaleHeight - picPanneauBas.Height
 
    ' Agrandir le panneau du bas en repositionnant les boutons
    ' et en étirant le label
    ' Note la propriété Tag du panneau contient la dernière largeur de celui-ci
    picPanneauBas.Width = Me.ScaleWidth
    picPanneauBas.Top = Me.ScaleHeight - picPanneauBas.Height
    ' position des boutons
    cmdAnnuler.Left = cmdAnnuler.Left + (picPanneauBas.Width - picPanneauBas.Tag)
    cmdEnregistrer.Left = cmdEnregistrer.Left + (picPanneauBas.Width - picPanneauBas.Tag)
    ' largeur du Label
    lblMessage.Width = lblMessage.Width + (picPanneauBas.Width - picPanneauBas.Tag)
    picPanneauBas.Tag = picPanneauBas.Width
 
    ' Taille du textbox en fonction des deux panneaux
    txtAffichage.Width = Me.ScaleWidth - picBoutonsDroite.Width
    txtAffichage.Height = Me.ScaleHeight - picPanneauBas.Height
End Sub