VB 6 [Résolu]
tchaptcheut
- Messages postés
- 21
- Date d'inscription
- dimanche 17 octobre 2010
- Statut
- Membre
- Dernière intervention
- 18 mai 2011
- Messages postés
- 161
- Date d'inscription
- lundi 28 février 2011
- Statut
- Membre
- Dernière intervention
- 11 février 2013
A voir également:
- Vb.6
- Vb 6.0 creation d'une calculatrice(corrigé) - Forum - Visual Basic 6
- Faire une calculatrice en VB 6.0 ✓ - Forum - Visual Basic 6
- Faire une calculatrice avec C# [debutant] ✓ - Forum - C# / .NET
- Lire et ecrire dans une cellule nommée avec VBA/Excel ✓ - Forum - Visual Basic 6
- Différence entre VB6 et VB.net ✓ - Forum - Visual Basic 6
12 réponses
Meilleure réponse
- Messages postés
- 161
- Date d'inscription
- lundi 28 février 2011
- Statut
- Membre
- Dernière intervention
- 11 février 2013
Il faut que tu créer un sub resize:
Voici un exemple:
Tu peu voir que j'utilise scalWidth affin que les objets suivent le bord droit... Je te laisse tester ca n'est pas trop dure à comprendre...
Tu peu voir aussi que j'ai créé une fonction me permettant de définir une taille minimal et maximal de ma fenetre (If WindowState <> vbMinimized Then), car tu verra qu'une fois que tu définis les places de tes object, ton programme plantera l'orsque la fenètre sera trop petite pour les afficher.
J'ai le module de cette fonction si tu la souhaite contacte moi par mail et je t'enverrais un zip comtenant cette fonction définissant les tailles min et max de ta forme.
Voila
Silvère
Voici un exemple:
Private Sub Form_Resize()
If WindowState <> vbMinimized Then
'Placement dynamique des objet en fonction de la taille de la fenètre
With pctgraph
.Width = ScaleWidth - 2300 - .Left '- MargeDroite
.Height = ScaleHeight - .Top '- MargeBasse
End With
With Chk_Tc
.Left = ScaleWidth - 2230
.Top = 1450
End With
With Lbl_Tc
.Left = ScaleWidth - 1850
.Top = 1450
End With
With Chk_Tin
.Left = ScaleWidth - 2230
.Top = 1950
End With
With lbl_Tin
.Left = ScaleWidth - 1850
.Top = 1950
End With
End sub
Tu peu voir que j'utilise scalWidth affin que les objets suivent le bord droit... Je te laisse tester ca n'est pas trop dure à comprendre...
Tu peu voir aussi que j'ai créé une fonction me permettant de définir une taille minimal et maximal de ma fenetre (If WindowState <> vbMinimized Then), car tu verra qu'une fois que tu définis les places de tes object, ton programme plantera l'orsque la fenètre sera trop petite pour les afficher.
J'ai le module de cette fonction si tu la souhaite contacte moi par mail et je t'enverrais un zip comtenant cette fonction définissant les tailles min et max de ta forme.
Voila
Silvère
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
191 internautes nous ont dit merci ce mois-ci
- Messages postés
- 21
- Date d'inscription
- dimanche 17 octobre 2010
- Statut
- Membre
- Dernière intervention
- 18 mai 2011
- Messages postés
- 161
- Date d'inscription
- lundi 28 février 2011
- Statut
- Membre
- Dernière intervention
- 11 février 2013
Voila un exemple, ce qui conte c'est que dans le titre on voi à peu près qu'es ce que tu veux
http://www.vbfrance.com/forum/sujet-DIMMENTIONER-PICTUREBOX-AUTOMATIQUEMENT-FONCTION-TAILLE-FORME_1507851.aspx
http://www.vbfrance.com/forum/sujet-DIMMENTIONER-PICTUREBOX-AUTOMATIQUEMENT-FONCTION-TAILLE-FORME_1507851.aspx
- Messages postés
- 21
- Date d'inscription
- dimanche 17 octobre 2010
- Statut
- Membre
- Dernière intervention
- 18 mai 2011
Aussi, comment je peux gérer l'agrandissement ou le rétrécissement automatique si dans mon form il y a plusieurs objets (labels, shape, textbox, combo box). Est ce que je peux trouver une instruction qui peut regrouper tous ces objets au lieu de chaque objet tour à tour. Merci
Yacinthe TCHAPTCHEUT
Elève-ingénieur
Yacinthe TCHAPTCHEUT
Elève-ingénieur
- Messages postés
- 21
- Date d'inscription
- dimanche 17 octobre 2010
- Statut
- Membre
- Dernière intervention
- 18 mai 2011
- Messages postés
- 21
- Date d'inscription
- dimanche 17 octobre 2010
- Statut
- Membre
- Dernière intervention
- 18 mai 2011
- Messages postés
- 161
- Date d'inscription
- lundi 28 février 2011
- Statut
- Membre
- Dernière intervention
- 11 février 2013
Alors, je te montre tout d'abord comment je définit dans mon prog le min et max de ma fenètre :
Ici je n'ai déclaré que le min car je laisse la fenètre s'agrandire en plein écran.
Je pense que tu n'arrive pas à comprendre comment ca marche car tu ne sais pas comment la tester, en fait c'est un peu compliqué.
En fait pour tester si tu as bien définis le min max de ta fenètre tu doit créer un .exe de ton programmle et la le min max vas fonctionner, si tu regarde dans le code du module, tu verrra qu'il est programmé pour ne fonctionner qu'en mode exécutable....
Voila ;)
Private Sub Form_Load()
'spécifier les dimensions Min & Max de la Form En mode COMPILE UNIQUEMENT
SetFormMinMaxSize form1, 13095, 9600
End Sub
Ici je n'ai déclaré que le min car je laisse la fenètre s'agrandire en plein écran.
Je pense que tu n'arrive pas à comprendre comment ca marche car tu ne sais pas comment la tester, en fait c'est un peu compliqué.
En fait pour tester si tu as bien définis le min max de ta fenètre tu doit créer un .exe de ton programmle et la le min max vas fonctionner, si tu regarde dans le code du module, tu verrra qu'il est programmé pour ne fonctionner qu'en mode exécutable....
Voila ;)
- Messages postés
- 21
- Date d'inscription
- dimanche 17 octobre 2010
- Statut
- Membre
- Dernière intervention
- 18 mai 2011
Lorsque j'essai avec
avec Enregistrement qui est le formulaire concerné
et les valeurs après sont les longueurs et largeurs (min et max) du formulaire
un message d'erreur apparait disant "Compile error! Excpected:="
qu'en pense tu ?
Yacinthe TCHAPTCHEUT
Elève-ingénieur
SetFormMinMaxSize Enregistrement, 16245, 11655
avec Enregistrement qui est le formulaire concerné
et les valeurs après sont les longueurs et largeurs (min et max) du formulaire
un message d'erreur apparait disant "Compile error! Excpected:="
qu'en pense tu ?
Yacinthe TCHAPTCHEUT
Elève-ingénieur