Prob pour afficher uen image dans imagebox !

Question

Slt tout le monde,je vais vous donner mon code etr vous me direz
pourquoi l'image ,moi je ne comprend pas pourquoi l'image ne s'affiche
dans l'imagebox !!!








Private Sub Winsockcap_DataArrival(ByVal bytesTotal As Long)

On Error Resume Next

Dim Data As String

Winsockcap.GetData Data

If fReceive = True Then

cAvance = cAvance + Len(Data)

z$ = Dir$("G:\Capture*.jpeg")

m = 0

While z$ <> ""

lg = Len(z$) - 6

v = Val(Mid$(z$, lg, 2))

If v > m Then m = v

z$ = Dir()

Wend

m = m + 1

Open "G:\Capture" & Format$(m, " 00") & ".jpeg" For Append As #1

Print #1, Data;

Label5.Caption = Int((cAvance / cLenTotal) * 100) & "%"

If cAvance cLenTotal Then Image1.Picture LoadPicture("G:\Capture" & Format$(m, " 00") & ".jpeg")

End If

If Data Like "FILE:*" And fReceive = False Then

Close #1

cLenTotal = Mid(Data, 6, Len(Data))

Label3.Caption = cLenTotal & " octets"

fReceive = True

Kill "G:\Capture" & Format$(m, " 00") & ".jpeg"

cAvance = 0

Winsockcap.SendData "READY"

End If

End Sub


En fait l'image se sauvegarde bien sous un nom différent à chaque fois
(Cpature 01,Capture02 ...) mais elle ne s'affiche pas dans
'image1.picture

Si je mets l'extenssion en .jpg (et pas .jpeg) ,c'est le contraire,l'image se charge mais s'enregistre toujour sous le meme nom !!! 

Est-ce un BUG ?!

Pouvez-vous m'aider à résoudre ce problème (en .jpeg s'il vous plaît)

Voila merci beaucoup ^^

erefdatacomputing · Answer

Soit 'pb' une picturebox posée sur une Form en VB.Net ou VB2005
quand tu veux faire apparaitre  une image dedans, il convient de taper le code suivant: 
pb.Image = System.Drawing.Image.FromFile(

"<chemin directeur+nom de l'image en .JPG>")

pour toi, le code serait:
pb.Picture = System.Drawing.FromFile("G:\Capture" & Format$(m, " 00") & ".jpeg")

PS: Ne pas oublier de mettre la propriété 'Sizemode' sur 'StretchImage' pour qu'elle rentre en entier dans le cadre.
Je crois que ceci ne marche qu'avec les picturebox !!!
(Les ImageBox existent toujours sous VB.Net ???) 

J'espère que cela t'aidera !!!  

Je Comprends vite mais il faut m'expliquer longtemps et tout en détails !!!

robapt · Answer

Slt, mais sa marche pas ton truc ,mais en plus moi je fait sa en VB pas
en VB.NET ton code serai pa du VB.NET ?Enfin bref sa marche pas l'image
s'affiche toujours pas en .jpeg mais s'enregistre avec un nom différent
a chaque fois et en .jpg s'affiche mais enregistre tout le temps sous
le meme nom !!!

Meric quand meme

Prob pour afficher uen image dans imagebox !

2 réponses

Votre réponse

Discussions similaires