Discussion :

[GetSS4]

Bonjour,

Je cherche un petit tuto pour faire de la manipulation d'image dans un winForm.
Je ne sait pas trop ou chercher. Merci de me donner des lien pour m'aider svp.

[olibara]

J'ai trouvé ceci (pas tres comple)
http://www.dotnettutorials.com/tutor...rawing-cs.aspx

Mais si tu as des question plus précise ?

[MABROUKI]

Bonjour
voici un exemple des possibilites de ce que tu peux faire avec un picturebox et vb.net.
-un winform ,un picturebox et un toolstripmenu avec different sous-menu(menu item).
Le code precedent etait incomplet.Donc repost du code complet.

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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
 
Public Class Form1
 
    Private Sub OuvrirImageToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OuvrirImageToolStripMenuItem.Click
        Dim strCheminFichier As String = ""
        OpenFileDialog1.Filter = "Fichier Images(*.bmp)|*.bmp|Fichier Images(*.png)|*.png|Fichier Images(*.jpeg)|*.jpeg|Fichier Images(*.emf)|*.emf|Fichier Images(*.icon)|*.icon|Fichier Images(*.gif)|*.gif"
        OpenFileDialog1.Title = "Ouvre Fichier Image"
        If OpenFileDialog1.ShowDialog Then
            strCheminFichier = OpenFileDialog1.FileName
            If Len(strCheminFichier) = 0 Then
                Exit Sub
            End If
            Call chargeImage(strCheminFichier)
        End If
    End Sub
    Private Sub chargeImage(ByVal strCheminFichier As String)
 
        Me.PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
        Me.PictureBox1.Load(strCheminFichier)
    End Sub
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Me.Text = "TraitementImage"
    End Sub
    Private Sub EnregistrerImageToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EnregistrerImageToolStripMenuItem.Click
        Dim strCheminFichier As String = ""
        SaveFileDialog1.Filter = "Fichier Images(*.bmp)|*.bmp|Fichier Images(*.png)|*.png|Fichier Images(*.jpeg)|*.jpeg|Fichier Images(*.emf)|*.emf|Fichier Images(*.icon)|*.icon|Fichier Images(*.gif)|*.gif"
        SaveFileDialog1.FilterIndex = 1
        SaveFileDialog1.Title = "Enregistre Fichier Image"
        SaveFileDialog1.ShowDialog()
 
        ' si FileName <> ouvrir et enregistrer
        If SaveFileDialog1.FileName <> "" Then
            ' enregistre  Image via un FileStream cree par methode OpenFile.
            'Dim fs As System.IO.FileStream = CType _
            '   (SaveFileDialog1.OpenFile(), System.IO.FileStream)
            ' enregistre  Image dans format approprie base 
            ' sur type de fichier selectionne.
            ' NOTE:FilterIndex est base sur 1.
            strCheminFichier = SaveFileDialog1.FileName
            Select Case SaveFileDialog1.FilterIndex
                Case 1
                    Me.PictureBox1.Image.Save(strCheminFichier, _
                       System.Drawing.Imaging.ImageFormat.Bmp)
                Case 2
                    PictureBox1.Image.Save(strCheminFichier, _
                       System.Drawing.Imaging.ImageFormat.Png)
                Case 3
                    Me.PictureBox1.Image.Save(strCheminFichier, _
                       System.Drawing.Imaging.ImageFormat.Jpeg)
                Case 4
                    PictureBox1.Image.Save(strCheminFichier, _
                       System.Drawing.Imaging.ImageFormat.Emf)
                Case 5
                    PictureBox1.Image.Save(strCheminFichier, _
                       System.Drawing.Imaging.ImageFormat.Icon)
                Case 6
                    PictureBox1.Image.Save(strCheminFichier, _
                       System.Drawing.Imaging.ImageFormat.Gif)
            End Select
            'fs.Close()
        End If
 
    End Sub
 
 
 
 
    Private Sub MirrorToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MirrorToolStripMenuItem.Click
        ' ----- Mirror-image the bitmap.
        Dim mirrorIt As New LockImage
        mirrorIt.Image = PictureBox1.Image
        mirrorIt.Mirror()
        PictureBox1.Image = mirrorIt.Image
    End Sub
 
    Private Sub MakeGrayToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MakeGrayToolStripMenuItem.Click
        Dim MakeGrayIt As New LockImage
        MakeGrayIt.Image = PictureBox1.Image
        MakeGrayIt.MakeGray()
        PictureBox1.Image = MakeGrayIt.Image
    End Sub
 
    Private Sub EdgeDetectToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EdgeDetectToolStripMenuItem.Click
        Dim EdgeDetectIt As New LockImage
        EdgeDetectIt.Image = PictureBox1.Image
        EdgeDetectIt.EdgeDetect()
        PictureBox1.Image = EdgeDetectIt.Image
    End Sub
 
    Private Sub QuitterToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QuitterToolStripMenuItem.Click
        Me.Close()
    End Sub
 
 
End Class

bon code...

[GetSS4]

Oui mai je ne travail pas en VB mais en C#, je voie pas comment je peut intégré cela.

[ultima69]

Pour de la manipulation d'image avancée, tu devrais plutôt te pencher sur du WPF et le xaml

[toxycyty]

Pour de la manipulation d'image avancée, tu devrais plutôt te pencher sur du WPF et le xaml

Mais je crois qu'il a demandé du winforms.
Pour le code en VB plus haut, tu vas http://www.carlosag.net/Tools/CodeTranslator/, et ça va convertir le VB en c# directement.

[GetSS4]

je cherche à faire une image défilante, et me donne une valeur en fonction de sont état. Une sorte de compteur de vitesse mais avec une image qui se déplace dans un espace définis.
Cette image se déplace avec un scrool dans le sens horizontal (comme les vieux jeux vidéo mais je ne fait pas un jeux).
Cella me renvoie une valeur en fonction de sont emplacement (0-20)

Voila une petite partie de mon projet. En espérant être clair.

[GetSS4]

Bon, j'ai trouver tout seul (j y ai mis du temps) et je propose se petit code a placer dan la fonction de l objet du scrool:

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
 
//déplacement de l image
            Graphics g = mAfficheImage.CreateGraphics();
            int xWidth = mAfficheImage.Width;
            int yHeight = mAfficheImage.Height;
            int x;
            int y;
            if (e.ScrollOrientation == ScrollOrientation.HorizontalScroll)
            {
                x = e.NewValue;
                y = mDeplaceImage.Value;
            }
            else
            {
                y = e.NewValue;
                x = mDeplaceImage.Value;
            }
            x = x * 179;//Cadrage
            g.DrawImage(mAfficheImage.Image,
              new Rectangle(0, 0, xWidth, yHeight),
              new Rectangle(x, 0, xWidth, yHeight),
              GraphicsUnit.Pixel);
            mAfficheImage.Update();
            mDef1.Refresh();