[vb.net]afficher une image

Bonjour, je voudrais pour l'instant just aller chercher une image et l'afficher dans une picture box, j'ai donc le code suivant:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Private Sub UiButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UiButton1.Click If OpenFileDialog.ShowDialog() = DialogResult.OK Then Dim Fs As FileStream = New FileStream(OpenFileDialog.FileName, FileMode.Open, FileAccess.Read) Dim Value() As Byte = New Byte(Fs.Length) {} Fs.Read(Value, 0, Fs.Length) Fs.Close() UpdatePictureBox() End If End Sub   Private Sub UpdatePictureBox() PictureBox.Image = Nothing Dim Value As Object If Not Value Is DBNull.Value Then If Value.Length > 0 Then PictureBox.Image = Bitmap.FromStream(New MemoryStream(CType(Value, Byte()))) End If End If End Sub

---

Malheureusement quand je lance le debug, je n'ai aucun message d'erreur, rien.
Le programme s'arrete juste... :cry:
Si quelqu'un pouvait me dire ce qui ne va pas...
Merci
Le

et avec Image.FromFile au lieu de Bitmap.FromStream tu as essayé ?

@+

il me dit:

Citation:

---

une valeur de type 'System.IO.MemoryStream' ne peut pas etre converti en 'string'

---

bah en fait c'est bon pour visualiser l'image c'est juste

Code:

---

picturebox.image = image.fromfile(openfiledialog.filename)

---

Par contre quelqu'un saurait pour redimensionner l'image automatiquement a la taille de la picturebox??
Merci

Citation:

---

Envoyé par Alex35

bah en fait c'est bon pour visualiser l'image c'est juste

Code:

---

picturebox.image = image.fromfile(openfiledialog.filename)

---

Par contre quelqu'un saurait pour redimensionner l'image automatiquement a la taille de la picturebox??
Merci

---

ben tu peux essyer de fixer les property Width et Heigth avec les valeurs de ton picturebox.

@+

comment ca les property de mon image??
il faut que je leur donne les memes que ma picture box??
c'est quoi la syntaxe...? :oops:

Citation:

---

Envoyé par Alex35

comment ca les property de mon image??
il faut que je leur donne les memes que ma picture box??
c'est quoi la syntaxe...? :oops:

---

oui tu essaye un truc comme ca:

Code:

---

1 2 3

tonimage.Heigth = tapicturebox.Heigth; tonimage.Width = tapicturebox.Width;

---

Apres fait voir le resultat, suivant les cas l'image va peut etre pas etre belle.

@+

Parfait,
Merci beaucoup!!
Ensuite (j'en suis pas encore la, mais juste pour renseignement)
Pour l'enregistrer dans une base de données, il faut la convertir en byte, c'est ca?
puis la reconvertir en image pour la voir du programme??

Citation:

---

Envoyé par Alex35

Parfait,
Merci beaucoup!!
Ensuite (j'en suis pas encore la, mais juste pour renseignement)
Pour l'enregistrer dans une base de données, il faut la convertir en byte, c'est ca?
puis la reconvertir en image pour la voir du programme??

---

ca je ne sais pas trop. ca depend de la base de données que tu utilise car pour faire cela tu peux utiliser un blob mais toutes les bases ne le supportent pas.

@+

Citation:

---

ca je ne sais pas trop. ca depend de la base de données que tu utilise car pour faire cela tu peux utiliser un blob mais toutes les bases ne le supportent pas.

---

c quoi un blob???

et pour l'instant j'ustilise postgresql en local mais je vais passer sous sqlserver

Citation:

---

Envoyé par Alex35

et pour l'instant j'ustilise postgresql en local mais je vais passer sous sqlserver

---

les 2 doivent le faire me semble t il.

@+

par contre j'ai le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub UiButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UiButton1.Click Dim img As Image If OpenFileDialog.ShowDialog() = DialogResult.OK Then img = Image.FromFile(OpenFileDialog.FileName) img.Width = PictureBox.Width img.Height = PictureBox.Height PictureBox.Image = img End If End Sub

---

et il me dit

la proprite width est ReadOnly
pareil pour height....

Ca veut dire koi???
Desole pour ces questions surement connes et MERCI de me consacrer du temps!!

cela veut dire que ces propriétés sont en lecture seule et ne peuvent être modifier
donc utilise un Bitmap intermediaire que tu redefinit à la taille du picturebox puis ensuite utilises la méthode Graphics.DrawImage

aie c'est que ces properrty sont en lectures seules. Donc tu peux les consulter mais pas leur donner la valeur que tu veux. Meme chose pour la bitmap.

@+

ca signifie que je ne peux pas visuliser l'image comme je veux?
il n'ya pas moyen de bidouiller??

ben pas a ma connaissance mais ca veux pas dire que tu peux pas bidouiller. juste que je sais pas comment faire.

@+

oki merci de ton aide c'est deja cool!
Sinon neguib dit qu'il faut passer par un bitmap intermediare comment faire cela??

non tu peux faire plus directe j'ai testé

Code:

---

1 2 3

Dim img As Image = Image.FromFile("filePath") Dim g As Graphics = Graphics.FromHwnd(Me.PictureBox1.Handle) g.DrawImage(img, Me.PictureBox1.ClientRectangle)

---

oui en effet j'avais pas penser à faire cela.
Bien vu.

@+

avec la bitmap intermédiaire çà donne ceci

Code:

---

1 2 3 4

Dim img As Image = Image.FromFile("filePath") Dim bmp As New Bitmap(img, Me.PictureBox1.Width, Me.PictureBox1.Height) Me.PictureBox1.Image = bmp

---

PARFAIT!!!!
Merci beaucoup!!!!!! :lol: :D :lol: :D :lol:

et juste alors c'est quoi un blob???

:) :arrow: Blob: definition

:lol: MERCI

Bonjour, escusez moi mais je débute et j'aimerais faire la même chose ouvrir une image et utiliser un zoom.
j'ai essayé de copier le code d'alex malheuresement ca ne marche pas chez moi.
J'ai plusieur ligne de code en rouge et je ne sais pas pourquoi