Conversion Binaire en Image

Bonjour à tous.
Voila, je suis débutant en VB.Net.
Je développe une application qui fait le lien entre une image et les informations concernant une personne; Dans ma BD access j'ai un champ photo et nom. Le champ photo est de type Objet OLE dans lequel je stocke les photo en binaire. Le problème est que je n'arrive pas à restituer les données binaires stockées dans ma db dans un picturebox que j'ai nommé pb_photo.
La fonction qui me permet de convertir les fichier image en binaire est:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Public Function ConvImage(ByVal formulaire As OpenFileDialog) As Byte() On Error Resume Next   Dim oFileStream As System.IO.FileStream Dim tabImage As Byte()   tabImage = Nothing oFileStream = CType(formulaire.OpenFile(), System.IO.FileStream) ReDim tabImage(CInt(oFileStream.Length)) oFileStream.Read(tabImage, 0, CInt(oFileStream.Length)) Return tabImage End Function

---

Tu peux faire comme ça :

Code:

---

1 2 3 4 5

Public Function LoadImage(ByVal bytes As Byte()) As Image Using ms As New MemoryStream(bytes) Return Image.FromStream(ms) End Using End Function

---

Et dans ta première fonction, tu peux simplifier en utilisant la méthode File.ReadAllBytes (qui prend en paramètre le nom du fichier et renvoie un tableau de byte)

Au fait, n'utilise JAMAIS "On Error Resume Next". Cette instruction n'a aucun sens : il y a une erreur, mais on s'en fout, on continue comme si de rien n'était... ce qui va provoquer une autre erreur, qu'on va aussi ignorer, ce qui va causer une autre erreur, et ainsi de suite... jusqu'à la fin de la méthode. A la fin, ta méthode n'aura pas fonctionné et te renverra n'importe quoi, et tu n'auras aucune indication du pourquoi... un vrai cauchemar pour le débogage :aie:

Utilise plutôt la gestion d'exception avec Try/Catch. Intercepte les erreurs que tu peux gérer (et seulement celles-là). Et ne laisse jamais un bloc Catch vide : ça revient à ignorer l'erreur, ce qui ne sert généralement à rien et rend plus difficile le débogage