Afficher une image danx un picture box

**france38** · 27/01/2007, 19h52

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
Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
Dim Arrive As String
Dim hop As String
Dim a
On Error Resume Next
For a = 1 To 100000000
If PathFileExists("C:\Picture" & a & ".bmp") = False Then
If OuvrirImage = False Then
Open ("C:\Picture" & a & ".bmp") For Binary Access Write As #2
OuvrirImage = True
ElseIf OuvrirImage = True Then
DoEvents
Set Form6.Image1.Picture = LoadPicture("C:\Picture(a).bmp")
Exit For
End If
End If 
Next a
 
Winsock2.GetData Arrive
hop = Arrive
 
If hop = "END" Then
Close #2
OuvrirImage = False
Winsock2.Close
Else
Put 2, , hop
Close #2
End If
End Sub

Bonjour

voila ceci est mon code, il marche bien mon seul probléme c'est que je n'arrive pas a afficher ma nouvelle photo crée dans le picturebox car enféte les photos s'enregistre sous des noms different picture1.bmp aprés picture2.bmp si la 1 existe et insi de suite donc mon probleme est a cette ligne
Set Form6.Image1.Picture = LoadPicture("C:\Picture(a).bmp")
je c'est pas comment faire pour l'afficher car elle change de nom a chaque fois. merci de m'aider

**mortalino** · 27/01/2007, 20h33

Salut,

vu que a est dans la chaine de caractères (entre ""), il ne prend pas en compte la variable.

Voici la façon de procéder :

Code :

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

Set Form6.Image1.Picture = LoadPicture("C:\Picture" & a & ".bmp")

Regarde bien ton code d'ouverture, la syntaxe pour le nom fichier reste la même :

Code :

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

Open ("C:\Picture" & a & ".bmp") For Binary Access Write As #2

@++

**france38** · 27/01/2007, 21h41

oui ben ca marche toujour pas et j'ai changer les ligne que tu ma dit mes ca marche pas

**ProgElecT** · 27/01/2007, 22h00

bonsoir
Inscrit le mercredi 28 juin 2006, Total message: 7, discussions ouvertes: 4, Nbr.de TAGs utilisés: 1, moyenne: 25/100, ma partitipation jusqua ce post: 2

Si (a) est un chiffre, les lignes de commande doivent être:

Code :

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

If PathFileExists("C:\Picture" & CStr(a) & ".bmp") = False Then

Code :

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

Set Form6.Image1.Picture = LoadPicture("C:\Picture" & CStr(a) & ".bmp")

et

Code :

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

Open ("C:\Picture" & CStr(a) & ".bmp") For Binary Access Write As #2

De plus tu as un On Error Resume Next, mais aucune gestion de/des erreurs?

voir ce lien
http://www.developpez.net/forums/sho...d.php?t=229650

penser au tag

ou tenir au courant des problemes qui ne permettent pas de l'utiliser.

**france38** · 27/01/2007, 22h16

oui ca ne marche pas non plus désoler pour les de même message seulement je savait plus sur quelle site je l'avait posté même si c'est pas touta fait la même question j'aurai pue le poster dans le premier.ta technique ne marche toujour pas

**ProgElecT** · 27/01/2007, 22h21

mais un point d'arret sur la ligne

Code :

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

Set Form6.Image1.Picture = LoadPicture("C:\Picture" & cstr(a) & ".bmp")

lors de l'arret, allez voir par l'explorateur si le fichier existe réellement, et si oui, tu essais de l'ouvrire avec ton logiciel de dessin preferé

**france38** · 27/01/2007, 22h27

oui elle existe et même quand je mes
Set Form6.Image1.Picture = LoadPicture("C:\Picture1.bmp")
par exemple cela marche.

**ProgElecT** · 27/01/2007, 22h31

essais d'enlever le Set de Set Form6.Image1.Picture = ....
le point d'arret a-il ete jusqu'a cette ligne ?

**france38** · 27/01/2007, 22h39

j'ai enlevé le point set ca ne marche pas mieu.
et pour le point d'arret si j'en mais un a cette endroit la photo ne s'ouvre pas.

**ProgElecT** · 27/01/2007, 22h42

essais encor cela

met ta Form6.AutoRedaw = true
Ajoutes une ligne apres Set Form6.Image1.Picture =...

Code :

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

1
2
3
   If Err.Number <> 0 Then
    MsgBox "Erreur N°" & CStr(Err.Number) & vbCrLf & Err.Description
   End If

ops

j'ai oublié , vbInformation

Code :

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

MsgBox "Erreur N°" & CStr(Err.Number) & vbCrLf & Err.Description, vbInformation

**france38** · 27/01/2007, 22h58

tu peut re expliqué ca j'ai pas comprit ou je doit le metre

**ProgElecT** · 27/01/2007, 23h01

juste apres la ligne de chargement de l'image

Code :

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

1
2
3
4
   Set Form6.Image1.Picture = LoadPicture("C:\Picture" & CStr(a) & ".bmp")
   If Err.Number <> 0 Then
    MsgBox "Erreur N°" & CStr(Err.Number) & vbCrLf & Err.Description, vbInformation
   End If

**ProgElecT** · 27/01/2007, 23h11

En relisant encore une fois la question que tu as posé, tu veux récuperer la derniére photo arrivée ?
La/les présédantes photos sont toujours sur ton disque dur dans le mçeme repertoire (C:\) ?
Si oui, tu veux récuperer la derniere arrivée je suppose ! tonc avec ta procedure tu ne récuperes jamais que la premiére arrivée, il faut revoir la façon de faire.

**france38** · 27/01/2007, 23h14

j'ai trouver l'erreur mes pas la solution. c'est bien ta technique
enfete il me mes erreur 53 le fichier C:\picture2.bmp est introuvable alor que il fait la picture1.bmp enfin il decale 1 photo mes je ces pas pourquoi.

oui je veux recuperé la derniere arrivée

**ProgElecT** · 27/01/2007, 23h19

ta photo commence toujours par Picture?

**france38** · 27/01/2007, 23h20

oui pourquoi?

**ProgElecT** · 27/01/2007, 23h25

Je suis en train d'ecrire la routine pour recuperation de la derniere arrivée,
encor une petite question, quand tu recuperes une image un, deux trois ... jours apres, le fichier recommance a Picture1, Picture2, .... ?

**france38** · 27/01/2007, 23h26

non si il en n'est a picture17.bmp par exemple il continue a picture 18.bmp ect..

**ProgElecT** · 27/01/2007, 23h40

je continue, Mets un FileListbox sur ta Frm

Code :

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

1
2
3
4
5
6
7
8
9
Option Explicit
Dim DerniereImageDansFile1 As String
 
Private Sub Form_Load()
File1.Pattern = "Picture*.bmp"
File1.Path = "C:\"
DerniereImageDansFile1 = File1.List(File1.ListCount - 1)
Form6.Image1.Picture = LoadPicture(DerniereImageDansFile1)
End Sub

au demarage de ton prog, tu charge cette image dans ta picture, puis

dans Private Sub Winsock2_DataArrival(ByVal ....

Code :

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

1
2
3
4
5
If File1.List(File1.ListCount - 1) <> DerniereImageDansFile1 Then
 'la nouvelle image est arrivée
 DerniereImageDansFile1 = File1.List(File1.ListCount - 1)
 Set Form6.Image1.Picture = LoadPicture(DerniereImageDansFile1)
End If