Reseize VB6

Résolu
cs_tolt Messages postés 270 Date d'inscription mardi 17 décembre 2002 Statut Membre Dernière intervention 4 avril 2019 - 7 nov. 2011 à 18:43
ucfoutu Messages postés 18038 Date d'inscription lundi 7 décembre 2009 Statut Modérateur Dernière intervention 11 avril 2018 - 7 nov. 2011 à 20:11
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

ucfoutu Messages postés 18038 Date d'inscription lundi 7 décembre 2009 Statut Modérateur Dernière intervention 11 avril 2018 223
7 nov. 2011 à 20:11
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
3
cs_lermite222 Messages postés 492 Date d'inscription jeudi 5 avril 2007 Statut Membre Dernière intervention 2 juillet 2012 4
7 nov. 2011 à 19:35
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+
0
cs_lermite222 Messages postés 492 Date d'inscription jeudi 5 avril 2007 Statut Membre Dernière intervention 2 juillet 2012 4
7 nov. 2011 à 19:37
Hum, oublie ma dernière remarque je n'avais pas lu que c'était pour un Frame.
0
ucfoutu Messages postés 18038 Date d'inscription lundi 7 décembre 2009 Statut Modérateur Dernière intervention 11 avril 2018 223
7 nov. 2011 à 20:05
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
0
Rejoignez-nous