Discussion :

[JLuc01]

Bonsoir,

J'ai un petit probleme de zoom et je ne sais pas par quel bout le prendre.
Je voudrais zoomer plusieurs Images en meme temps: par exemple 2 images (normalement contenu dans des PictureBox), une image utilisee comme Background et une image ajoutee par dessus.

Je peux zoomer une Image dans une PictureBox (DockStyle.Fill) sur une Form. Mais, si j'ajoute une image dynamiquement sur la premiere image, cela se complique.
Je ne vois pas comment m'y prendre. En ecrivant cette question, je me demande si je devrais utiliser un support autre que PictureBox (Panel par exemple) et zoomer ce support avec les PictureBox (contenant l'Image complete), si toutefois c'est possible. Car on ne peut pas mettre plusieurs images dans un PictureBox.
Une autre idee serait peut-etre de zoomer tous les controles (pictureBox) en meme temps. Mais ... bref je ne sais pas trop comment faire!

J'espere avoir ete clair avec ma question.
Il est vrai que je recherche plus une idee, une facon de travailler que du code.
Mais, si vous avez quelque bout de code pour me montrer le chemin a suivre, je suis preneur.
Toute idee est la bienvenue.

Merci,
JLuc01

[Pol63]

zoomer selon quoi ?
juste zoomer à l'affichage ou c'est l'utilisateur qui peut zoomer à différent niveaux de zoom ?

en windows forms il n'y a rien pour zoomer des controles, et encore moins pour le faire proprement
par contre on peut se coder un zoom d'image avec la fonction drawimage

en wpf il y a un controle dédié qui permet le zoom de tout ce qui est à l'intérieur de celui ci (y compris le texte)

windows forms est le framework graphique historique de .net, wpf est apparu en 2008, il est beaucoup plus puissant mais très différent à appréhender

[MABROUKI]

bonjour

Comme dit par Pol63,les controls winforms ne sont pas "scalables",neamoins dessiner un Bitmap "bmp scale" dans l'event Paint est possible sans alterer le contenu du bitmap "bmpBack " assigne à la prop PictureBox.Image...

Le bitmap dessine dans l'event Paint est scale grace au class Rectangle et centre .....

exemple code avec un picturebox et 2 images:

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
44
45
46
47
48
49
50
51
52
53
54
55
56
 
Imports System.Drawing.Drawing2D
 
Public Class Form1
 
    Private bmpBack As Bitmap
    Private bmpFront As Bitmap
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
 
        'bitmap de background inalterable
        bmpBack = My.Resources.img1
        bmpBack = New Bitmap(bmpBack, 200, 200) ' on resize le bitmap background convenablement
 
        PictureBox1.Image = bmpBack ' on l'assigne à Image
        PictureBox1.SizeMode = PictureBoxSizeMode.AutoSize
 
        'bitmap de front scalable et dessine dans event Paint
        bmpFront = My.Resources.img2
        bmpFront = New Bitmap(bmpFront, 200, 200) ' on resize le bitmap scalable convenablement
 
        'rect 
        rectScale = New RectangleF(0, 0, 200, 200)
 
    End Sub
 
    Private increment As Single = 2.5
    Private rectScale As RectangleF
    Private Sub Form1_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseWheel
        If e.Delta = 120 Then
 
            rectScale.Inflate(increment, increment)
            rectScale.Width = Math.Min(rectScale.Width, 400) 'taille max souhaite
            rectScale.Height = Math.Min(rectScale.Height, 400)
        ElseIf e.Delta = -120 Then
            rectScale.Inflate(-increment, -increment)
            rectScale.Width = Math.Max(rectScale.Width, 50) 'taille min souhaite
            rectScale.Height = Math.Max(rectScale.Height, 50)
 
        End If
 
        PictureBox1.Invalidate()
 
 
 
    End Sub
 
    Private Sub PictureBox1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
        Dim gr As Graphics = e.Graphics
        Dim m As New Matrix
 
        gr.DrawImage(bmpFront, rectScale.X, rectScale.Y, rectScale.Width, rectScale.Height)
 
 
    End Sub
End Class

Rien n'empeche d'ajouter d'autres bmpFront et de les dessiner dans l'Event Paint (appel à PictureBox.Invalidate) ce qui fait une superposition de "calques"....Evidement il faut mettre les bmpFront dans ce cas dans un List(Of Bitmap) pour pouvoir les reorganiser....
bon code...

[JLuc01]

Bonjour,

Tout d'abord, merci pour les reponses instructives.

Pol63: zoomer a l'aide de la souris.
WPF serait peut-etre une solution plus simple, mais je ne l'ai jamais utilise.

En fait, ce que j'ai fait jusqu'a maintenant, c'est un zoom d'une image dans un picturebox (picturebox avec dockstyle.fill dans un panel) que j'utilise comme image de fond sur le panel. Je zoome cette image de fond avec la souris, donc je peux voir sur le panel une partie de cette image remplissant tout le picturebox ou bien toute l'image sur un fond colore vert (propriete background du picturebox = green) dependant du zoom.
Bref, le meme principe que le bout de code de Mabrouki. Les bouts de code de Mabrouki sont generalement tres instructif pour moi dans le forum.

Maintenant, je voudrais ajouter dynamiquement une autre (ou plusieurs) image (via un picturebox) sur ce background, et quand je zoome avec la souris etre capable de zoomer l'ensemble. Ajout a l'aide d'un bouton.
Bon, il y aura aussi le probleme du pointer qui peut se trouver sur une picturebox ajoute dynamiquement, donc zoom pas possible, mais je ne suis pas encore arrive a ce probleme., donc oublions pour maintenant.

Bref, je pensais que si les images ajoutees (avec la propriete Stretch) se trouvent sur mon image de fond, je serait capable de changer la taille et la position de ces images en meme temps que l'image de fond. Avec un For Each sur les controles PicturesBox (excepte l'image de fond qui fonctionne differement).
Mais, apres la remarque de Pol63, j'ai des doutes sur la faisabilite.

Si vous avez d'autres remarques, elles seront bienvenues.
Merci,

A+
JLuc01

[Pol63]

tu peux très bien arriver à ce que tu veux en windows forms, et il y a même plusieurs moyens de faire ca

tu peux par exemple superposer l'image de fond et l'image du dessus au sein d'une seule image, et c'est cette image finale que tu affiches, comme ca quand tu zoomes les 2 sont zoomées

[JLuc01]

En fait, je ne veux pas "merger" les images, car je veux pouvoir les bouger individuellement avec la souris si necessaire (sauf l'image de fond).
Mais, je pense avoir quelques idees maintenant, je dois juste les tester.
Par exemple a chaque fois que je change le parametre Zoom, j'applique une procedure qui s'occuperas des autres picturebox.
Procedure a mettre a la fin de cette sub "Private Sub DrawImage(ByRef g As Graphics)".

Merci.
JLuc01