Discussion :

[titella]

Bonsoir
Sur un form j’ai un imagebox avec une image
Sur le imagebox il y a une array de 3 shapes
Les shapes sont NON visible
Si je presse (sur un point quiconque de la image) sur le gauche du mouse alors le premier shape devient visible
Si je presse une deuxieme fois devient visible le deuxieme
Si je presse une troisieme fois devient visible le troisieme.
Si je presse sur le droite du mouse tous le shape deviennent non visible don effacés.
Tout ca avec cette code

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
Option Explicit
 
Private Teller As Integer
 
Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim i As Integer
 
    Select Case Button
      Case 1      'button gauche mouse
        If Teller < 3 Then
          Timer1.Enabled = True
          Teller = Teller + 1
          With Shape1(Teller - 1)
            .Left = Image1.Left + X - .Width \ 2     '<=====
            .Top = Image1.Top + Y - .Height \ 2      '<=====
            .Visible = True
          End With
        End If
      Case 2      'Button droite mouse
        Timer1.Enabled = False
        For i = 0 To Teller - 1
          Shape1(i).Visible = False
        Next
        Teller = 0
    End Select
 
End Sub
 
 
Private Sub Timer1_Timer()
Dim i As Integer
 
  Shape1(0).Visible = Not Shape1(0).Visible
  For i = 1 To Teller - 1
    Shape1(i).Visible = Shape1(0).Visible
  Next
 
End Sub

Avec ca je sauve la image, mais PAS les shapes au dessus

Code :

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

SavePicture Image1.Picture, "C:\Immagine.bmp"

Pouvez moi m’aider a modifier cette code pour sauver aussi le shapes en meme temps que l’image ? Donc sauver les shapes AVEC la image dans la position ou ils sont devenu visibles ?

Merci

titella

[Pynuch]

A ma conaissance ce n'est pas possible ... une shape est un objet totalement a part d'une picturebox ... que cherches tu as faire ?

[titella]

Ce que j'ai dit.
sauver l'image AVEC le shapes au dessus, là ou il se trouvent.
Peut etre il faut adapter le file ou la maniere de sauvautage.
Par exemple sauver les coordonés (x,y) des shapes a part.
Il n'est moi pas reussi.

[ucfoutu]

Si tu veux sauvegarder cette "image", il faut qu'elle existe

Or là : tu as un contrôle image et "par dessus" d'autres contrôles (des shapes) qui ne font pas partie de ton "image"

Seules possibilité :

1) la "lourde" et déconseillée : faire une capture d'image de la partie de ta fenêtre ===>> sauvegarder le résultat de cette capture en pixels vers un fichier .bmp

2) la "normale" : remplacer ton contrôle Image par une picturebox et y dessiner (méthode Line ou circle) en remplacement de tes shapes. Sauvegarder ensuite le résultat qui, lui, sera un véritable élément graphique.

[ProgElecT]

Premiere façon
dessine sur un picturebox "PictImprime", ton image, puis avec PictImprime.Line ou Circle
tu dessines toute les Shapes visibles, et tu sauve cette PictImprime sous le nom de ton image de départ.
Mais la prochaine fois que tu réutiliseras cette image sauvgardée, tu auras bien le dessin de ta/tes shapes,
mais pas de possibilité de rendre a nouveau invisible, puisque se serat des pixels de couleurs et
non des Shapes.

Deuxiéme facon
Creér un.txt du nom de ton image, pour chaque shape visible tu ecris une ligne de toutes les propriétés utiles,
quand tu réouvriras l'image tu lis le fichier .txt pour replacer et donner toutes les propriétés a la/les shapes.
Motif de l'edit
Salut ucfoutu, On s'est encor croisé

[titella]

Merci a tous
1 - Je voudrais essayer le methode 'lourde' de ucfoutu.
Comment faire une capture de image de la fenetre (image)?