Redimensionner une pictureBox

**Asdorve** · 03/07/2006, 14h43

bon, rien d'exceptionnel, mais je commence par proposer un bout de code pour le redimmensionnement de l'image pour que celle -ci s'adapte à la taille de la picture box.

Ouvrir un nouveau projet avec une PictureBox(Picture1) et 2 TextBox (Text1 et Text2).
Insérer le code suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
 
Option Explicit
Dim CoinSelect As Integer
Dim Xo, Yo, X, Y
 
Private Sub Text1_Change()
If Text1.Text = "" Then
    Exit Sub
End If
Picture1.Height = Text1.Text
Redimmensionner
End Sub
Private Sub Text2_Change()
If Text1.Text = "" Then
    Exit Sub
End If
Picture1.Width = Text2.Text
Redimmensionner
End Sub
 
 
 
Private Function Redimmensionner()
Picture1.PaintPicture Picture1.Picture, 0, 0, Picture1.Width, Picture1.Height, opcode:=vbSrcCopy
 
End Function

Voilà, maintenant question:

pour le redimmensionnement de la PictureBox, je suis entrain d'utiliser DragDrop, mais c'est pas satisfaisant, y-a-t-il un autre moyen pour "saisir" un coin et étirer?

**jmfmarques** · 03/07/2006, 15h33

pour le redimmensionnement de la PictureBox, je suis entrain d'utiliser DragDrop, mais c'est pas satisfaisant, y-a-t-il un autre moyen pour "saisir" un coin et étirer?

Non, hélàs... il va falloir "ajouter" autre chose à la picturebox.

Tu pourrais bien sûr décider que si tu es "proche" d'un bord, un mécanisme fonctionnerait mais ce ne serait pas satisfaisant, car tu pourrais avoir quelque chose à modifier précisément proche d'un bord... et l'ambiguité serait alors là.

Tu as par ailleurs oublié de préciser que ton code ne peut fonctionner que si une image est insérée dans la picture1 (sinon : plantage...)
Il ne peut enfin fonctionner que si la propriété autoredraw de picture1 = False

Je vous laisse chercher (je n'interviens que pour dire si une chose convient ou non)

**Asdorve** · 03/07/2006, 15h36

exact, mais c'est juste pour le code d'adaptation de l'image.
Y'a en d'autres qui bossent dessus?

**Theocourant** · 03/07/2006, 16h41

Envoyé par Asdorve

exact, mais c'est juste pour le code d'adaptation de l'image.
Y'a en d'autres qui bossent dessus?

Désolé, je n'ai pas le temps de me lancer à fond dedans mais dès que j'en ai plus (septembre après le mariage) je travaille dessus.

Théo

**Asdorve** · 03/07/2006, 16h42

compréhensible, à part toi?

**Asdorve** · 05/07/2006, 16h25

bon, j'essaye d'avancer dans l'optique du projet, mais j'en suis encore loin.

Insérez dans une form une PictureBox (Picture1) et insérez une image,

mettez le code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
37
38
39
40
41
42
43
 
Dim CLic As Single
 
Private Sub Form_Load()
 
With Picture1
    .AutoRedraw = True
    .AutoSize = True
    .Appearance = 0
    .BorderStyle = 0
End With
 
End Sub
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
'là c'est du bricolage
If (X >= (Picture1.Width - 135) And X <= (Picture1.Width)) And (Y >= Picture1.Height - 135) And Y <= Picture1.Height Then
Picture1.MousePointer = vbSizeNWSE
CLic = 1
        Xa = X: Ya = Y
End If
End SubEnd Sub
 
 
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
If X < 0 Or Y < 0 Then Exit Sub
 
If CLic = 1 Then
Form1.Refresh
Picture1.Width = X
Picture1.Height = Y
Picture1.PaintPicture Picture1.Picture, 0, 0, Picture1.Width, Picture1.Height, opcode:=vbSrcCopy
 
End If
End Sub
 
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.Width = X
Picture1.Height = Y
CLic = 0
Picture1.MousePointer = vbArrow
End Sub

Clic droit en bas à droite seulement et étirez ou vous voulez,

normalement, ça marche

**jmfmarques** · 05/07/2006, 16h44

C'est un bon début..

Toutefois, il faut que l'utilisateur puisse quand-même :

savoir que l'image est en état de pouvoir être étirée. Un double-clic, peut-être, qui permettrait de signaler qu'un va étirer l'image ? Accompagné alors d'une modification de l'image en ses bordures ou, peut-être, une autre image vide avec des poignées qui viendrait, en second plan, encadrer la 1ère ?
Puis un étirement de la 2ème image (la bordure) qui entraînerait un étirement de la 1ère image ?

**ThierryAIM** · 05/07/2006, 16h44

Ce sujet, qui entre lui aussi, dans le cadre des contributions (c'est l'objectif final, il me semble, non ?) devrait être déplacé dans le forum adéquat, que je pensais initialement destiné à ce genre de discussion (apparement, je me suis trompé, donc, je me demande bien pourquoi je l'ai créé

)

Mais comme je ne veux m'attirer les foudres de personne, je le laisserai donc anonyme, au milieu du reste, et m'abstiendrai de toute remarque, commentaire, suggestion, critique, test et autre

**Asdorve** · 05/07/2006, 16h49

Envoyé par jmfmarques

C'est un bon début..

Toutefois, il faut que l'utilisateur puisse quand-même :

savoir que l'image est en état de pouvoir être étirée. Un double-clic, peut-être, qui permettrait de signaler qu'un va étirer l'image ? Accompagné alors d'une modification de l'image en ses bordures ou, peut-être, une autre image vide avec des poignées qui viendrait, en second plan, encadrer la 1ère ?
Puis un étirement de la 2ème image (la bordure) qui entraînerait un étirement de la 1ère image ?

j'y travaille, mais chaque chose en son temps,

Bonne soirée.

**Asdorve** · 05/07/2006, 16h50

Ce sujet, qui entre lui aussi, dans le cadre des contributions (c'est l'objectif final, il me semble, non ?) devrait être déplacé dans le forum adéquat, que je pensais initialement destiné à ce genre de discussion (apparement, je me suis trompé, donc, je me demande bien pourquoi je l'ai créé )

ce sujet a me semble-t-il été créé avant l'apparition du nouveau forum (sauf erreur de ma part)
il faut donc que ceux qui ont les pleins pouvoirs le déplace.
Mais bon, c'est à l'auteur du topic de dire...

**jmfmarques** · 05/07/2006, 18h39

Moi je veux bien, mais en faisant remarquer qu'il ne deviendra une proposition que lorsqu'il aura été conduit à son terme.

Si l'on n"y prend garde, nul ne s'y rtetrouvera certes plus entre les propositions et les préparatifs d'une proposition. Mais bon...

Quant à l'esprit et à ceux qui peuvent ou non partiicipier à cette construction, je crois que tout a parfaitement été défini d'entrée de jeu : Les plus avertis pourront ici et là guider... mais ne devront jamais "coder".

http://www.developpez.net/forums/sho...26&postcount=1

Seuls ceux qui n'ont pas encore atteint une grande dextérité sont donc les bienvenus..pour coder. Les autres ne pourront que conseiller sur les mécanismes (pas le code)

**Theocourant** · 06/07/2006, 07h47

Bonjour,

Une idée, peut-être, pour permettre la différentiation entre projet et présentation de réalisations :
- garde le sous-forum "Vos contributions VB" pour la présentation des réalisations : applications, codes, sources, FAQ
- mettre en place un sous-forum type "Projets en cours" où là ce genre de thread pourrait se retrouver

Bonne journée

Théo

**jmfmarques** · 06/07/2006, 08h00

Theo a tout-à-fait raison.

J'ai pensé la même chose...

Reste à savoir si elle est techniquement envisageable.

**Asdorve** · 10/07/2006, 16h10

j'essaye d'avancer petit à petit, voici la suite de ma proposition:

double clic sur l'image (que vous chargez vous même dans les propriétés de la picturebox),

-> étirement horizontal : milieu du bord droit
-> étirement vertical : milieu du bord bas
->étirement proportionnel : coin bas droit.

J'attends les suggestions pour avancer.

Correction dans le code:

dans le fonction Picture1.MouseMove:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
...
 'Etirement horizontal
    If CLic = 2 Then
        Form1.Refresh
        Poignées
        Picture1.Width = X
        Picture1.PaintPicture Picture1.Picture, 0, 0, Picture1.Width, Picture1.Height, opcode:=vbSrcCopy
        Poignées
        Coeff = Picture1.Width / Picture1.Height
    End If
     'Etirement horizontal
    If CLic = 3 Then
        Form1.Refresh
        Poignées
        Picture1.Height = Y
        Picture1.PaintPicture Picture1.Picture, 0, 0, Picture1.Width, Picture1.Height, opcode:=vbSrcCopy
        Poignées
        Coeff = Picture1.Width / Picture1.Height
...

**jmfmarques** · 10/07/2006, 17h09

Voilà qui est déjà beaucoup mieux.

BRAVO !

Tu demandes une suggestion ?

Oui, il y en a :

Au lieu de calculer si ton curseur se trouve ou non sur (ou suffisamment près, comme tu as fait) d'une poignées... Serait-il idiot de
1) dessiner un rectangle extérieur avec côtés en pointillés à l'extéroeir de ta picture (mais tout contre elle).
2) d'utiliser un tout petit bouton de commande carré que tu appelerais par exemple poignées, à placer sur ta Form avec index 1
3) au démarrage, dupliquer ce bouton de sorte à en créer 7 autres (dynamiquement) et d'en obtenir ainsi 8 au total, indexés de 1 à 8 ? tous invisibles ?
4) au double clic : dessiner le rectangle pointillé par la méthode Line avec l'argument B et y placer les 8 poignées à leur place, le tout dans une procédure qui serait également appelée pendant les étirements ?

Avantage : les poignées étant maintenant identifiées (chacun des 8 boutons de commandes indexés de 1 à 8) : plus besoin de calculer si on est au bon endroit pour étirer ...

Pour le reste : tes calculs d'étirement (qui sont bons) et tu joues avec les propriétés visible et avec Cls (pour tout faire disparaitre une fois l'étirement fini).

Vas - y

**Asdorve** · 12/07/2006, 11h51

bonjour à tous,

voilà ma proposition pour ce jour, en tenant compte de ce que tu me dis dans ton dernier mess jmf.

J'attends des nouvelles...

**jmfmarques** · 12/07/2006, 19h13

Mais Bravo, asdorve. C'est très bien.

Il te reste à faire celà à chacune des huit poignées, en essayant de traiter celles qui sont "symétiques" par envoi de paramètres de signe inversé. Et de traiter celles qui sont dans les coins (qui, elles, doivent provoquer des étirements proportionnels.

Tu es presque arrivé au bout. Je te félicite.

Edit : je n'avais pas vu que la diagonale était également traitée en étirement proportionnel dans le coin inférieur droit.

C'est donc encore plus avancé que je ne l'avais vu. TRES BIEN

Utilise maintenant les signes inversés (voir plus haut) ou autre chose de ton cru pour doter toutes les poignées du même mécanisme.

BRAVO

**Asdorve** · 19/07/2006, 12h40

SAlut à tous,

Vous trouverez le code pour intégrer des poignées à une pictureBox et pour gérer tous les étirements (2 horizontaux, 2 verticaux et 4sur les coins en gardant la proportionnalité).
Lien:
http://www.developpez.net/forums/sho...d.php?t=184198

Voilà.

Redimensionner une pictureBox

VB 6 et antérieur

Discussions similaires

Partager

Partager