Tableau d'images

Question

Bonjour,

j'ai un pb avec un tableau d'images. En effet, je voudrais créer une sorte d'undo sur mon objet PictureBox.

Pour avoir une solution simple, j'ai décidé de créer un tableau de picturebox et de lui appliquer l'image du controle.

Lors de l'éxécution, il me dit "Variable Objet ou variable bloc with non défini ".

Voici mon code :

'déclaration en global

Private tab_im(5) As picturebox

'lors de l'appui sur le bouton Undo

Picture1.Picture = Picture1.image
        For i = 0 To 5
           If i = 0 Then
               tab_im.Picture = Picture1.Picture
           Else
                tab_im(i).Picture = tab_im(i - 1).Picture
            End If
        Next i

cs_labout · Answer

labout

Voila comment faire
Ici j'ai mis un bouton et 2 pictureBox

Private Sub Command1_Click()

Dim tab_im As New Collection
'lors de l'appui sur le bouton Undo

Dim i As Integer
For i = 1 To 5
If i = 1 Then
    tab_im.Add Picture1.Image
Else
    tab_im.Add tab_im(i - 1)
End If
Next i
Picture2.Picture = tab_im(2)
End Sub
@+

schub1015 · Answer

J'ai différents pb avec la sauvegardes de mes images. Il y a un pb lors de l'effacement de toutes les images et si on retrace des lignes, le truc part en vrille

Merci pour votre aide.

voici mon code :

' lors d'un clic souris sur le picture box

Static clic As Integer
    Static toto As Integer
    image1.DrawWidth = 3
    If clic = 0 Then
        
               
        ReDim Preserve tabcoord(indice + 1)
        tabcoord(indice).x = x
        tabcoord(indice).y = y
        indice = indice + 1
        clic = 1
    Else
                
        ReDim Preserve tabcoord(indice + 1)
        tabcoord(indice).x = x
        tabcoord(indice).y = y
        indice = indice + 1
        
        image1.Line (tabcoord(indice - 2).x, tabcoord(indice - 2).y)-(x, y)
        clic = 1
    
        image1.Picture = image1.Image
        tab_im.Add image1.Image
        toto = tab_im.Count
        
        Dim i As Integer
        i = 0
    End If

'lors d'un clic sur le bouton undo

 Dim i As Integer
    
    If (tab_im.Count > 2) Then
    image1.Picture = tab_im.Item(tab_im.Count - 2)
    
    tab_im.Remove (tab_im.Count - 1)
    indice = indice - 1        If ((tab_im.Count 2) And (titi False)) Then
            tab_im.Remove (2)
            titi = True
        End If
    Else
     
    'image1.Picture =     il faut remettre la première image
    End If

Tableau d'images

2 réponses

Discussions similaires