Reseize VB6

Résolu
Signaler
Messages postés
270
Date d'inscription
mardi 17 décembre 2002
Statut
Membre
Dernière intervention
4 avril 2019
-
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
-
Bonjour,

Une petite question cucu mais j'arrive pas à trouver.
J'ai une fenêtre ou je gère le reseize sauf que je veux bloquer le reseize lorsque la fenêtre arrive à une taille aussi bien en hauteur qu'en largeur.

Avez-vous un petit exemple du style...
Private Sub Form_Resize()
On Error Resume Next
With Me
If .ScaleHeight < 9810 Or .ScaleWidth < 13515 Then
End If
.Frame1.Top = 0
.Frame1.Left = 30
.Frame1.Width = .Width - 150


Merci d'avance.

tolt

4 réponses

Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
240
et voilà donc la conjugaison :
Private Sub Form_Resize()
  With Me
    If .Height < 9810 Then .Height = 9810
    If .Width < 13515 Then .Width = 13515
   ' et là oui : on reprend maintenant les unités logiques de ton form !
    Frame1.Top = .ScaleTop
    Frame1.Left = .ScaleLeft + 30
    Frame1.Width = .ScaleWidth - 150
  End With
End Sub




____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
Messages postés
492
Date d'inscription
jeudi 5 avril 2007
Statut
Membre
Dernière intervention
2 juillet 2012
4
Bonjour,
If Me.ScaleHeight < 9810 then Me.ScaleHeight = 9810
if Me.ScaleWidth < 13515 Then Me.ScaleWidth = 13515

Par contre je ne vois pas l'utilité des lignes suivantes ?
A+
Messages postés
492
Date d'inscription
jeudi 5 avril 2007
Statut
Membre
Dernière intervention
2 juillet 2012
4
Hum, oublie ma dernière remarque je n'avais pas lu que c'était pour un Frame.
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
240
Bonjour,
1) que viennent faire ici les ScaleWidth et ScaleHeight ? ====> pas concernés !
2) jette-nous ce on error resume next (à moins qu'il n'ait une raison d'être, et alors : laquelle ici ?)
Private Sub Form_Resize()
  With Me
    If .Height < 9810 Then .Height = 9810
    If .Width < 13515 Then .Width = 13515

    Frame1.Top = 0
    Frame1.Left = 30
    Frame1.Width = .Width - 150
  End With
End Sub

Maintenant : je n'aime pas du tout ton :
Frame1.Width = .Width - 150

- 30 quoi ?
- 150 quoi ?
(car dépend du scalemode de ton form) !!!


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient