VB6 : ca morche po ...

VB6 : ca morche po ... - Programmation

Marsh Posté le 12-03-2001 à 17:15:24    

Je veux donner une taille minimale a mon appli : le gars peut la redimensionner mais pas la minimiser completement : elle a une taille minimale.
Alors je gere l'evenement rezise et quand le heigth ou le width est trop petit alors je le reajuste ... MAIS ...
c'est pas bo : ca arrete pas de se minimiser/reajuster ... ca tremble quoi et c'est tout laid ...
y'a un moyen simple ou alors faut faire un truc plus cho (faire un hook et se faire son propre gestionnaire d'evenement ???)

Reply

Marsh Posté le 12-03-2001 à 17:15:24   

Reply

Marsh Posté le 13-03-2001 à 12:55:51    

je crois que tu peux créer ton propre évènement pour un objet considéré, à vérifier !!!
sinon, dans ton application, logiquement, tu dois utiliser resize que lorsque la taille est réduite. Dans ce cas, je ne vois pas pourquoi tu aurais un clignotement ! :wahoo:

Reply

Marsh Posté le 13-03-2001 à 13:27:50    

Dès que le gars redimensionne la fenetre, le code que j'écris dans l'évènement resize n'est traité que lorsque le gars lache le bouton de la souris (quand il a fini le redimensionnement) si l'option de windows "afficher le contenu des fenetres pendant leur deplacement" n'est pas activée.
Donc le gars peut reduire la surface de la fenetre et c'est quand il lache la souris que mon code la remet a la taille minimale souhaitée.
Si l'option "afficher le contenu des fenetres pendant leur deplacement" est activée c'est pire : la fenetre n'arrete pas de se réduire et de se reajuster : elle clignote.
JE VEUX : quand le gars veut trop reduire la taille de la fenetre ben que ca ne fasse rien, comme si elle n'était pas redimensionnable (bord "fixed single" ...)
A part que le gars peut l'agrandir ...

Reply

Marsh Posté le 13-03-2001 à 13:30:47    

Cree un projet tout con et écrit ca :
Private Sub Form_Resize()
    If Form1.Width < 5000 Then
        Form1.Width = 5000
    End If
    If Form1.Height < 5000 Then
        Form1.Height = 5000
    End If
End Sub
Tu vas voir que c'est pas beau du tout !!!

Reply

Marsh Posté le 13-03-2001 à 17:40:16    

up up ...

Reply

Marsh Posté le 13-03-2001 à 18:06:24    

Chez moi, ton code marche nickel... ya pas du tout de clignotements...  :sol:

Reply

Marsh Posté le 13-03-2001 à 18:17:15    

... ??? ...
Pour etre tres clair : lancer paint ...
choper le coin inferieur droit et le rapprocher du superieur gauche ... au bout d'un moment ca bloque !
On ne PEUT PLUS BOUGER LE BORD ...
Alors qu'avec le code que je donne le bord continue de se balader (il se superpose (puis est effacé) a la taille minimale : ca "clignote" )
c'est assez dur a expliquer ...
Bref lancer Paint et regardez, c'est ca que je veux : limiter le retrecissement ...
(p'tet que j'ai ete un peu sec ... mais ce n'était pas mon intention ;))

Reply

Marsh Posté le 14-03-2001 à 08:28:58    

HelloWorld a écrit a écrit :

Cree un projet tout con et écrit ca :
Private Sub Form_Resize()
    If Form1.Width < 5000 Then
        Form1.Width = 5000
    End If
    If Form1.Height < 5000 Then
        Form1.Height = 5000
    End If
End Sub
 
Désolé pour le retard
 
 
chez moi ton CODE marche AUSSI nikel !!!!!!!
Tu vas voir que c'est pas beau du tout !!!



Reply

Marsh Posté le 14-03-2001 à 08:32:25    

En fait je penses qu'il faut voir du coté de la souris car l'évènement utilisé laisse effectivement le repositionnement se réaliser pour le corriger ensuite
Si je comprend bien, tu veux éviter que le cadre se rétrécisse déjà au déplacement de la souris, avant de relâcher le mulot donc !!
Si c'est bien cela, il faudrait changer d'évènement, voire le faire en C...

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed