PictureBox en VB.netRésolu

Question

Bonjour,

Je voudrais placer sur une PictureBox plusieurs images &#224; partir de fichiers images
Pour chacune d'elles je doit pouvoir dire si elle doit se placer au premier plan ou au dernier plan et &#224; quelle position sur le picturebox (x,y en pixel)

Pour le moment j'utilise :

        Dim image As System.Drawing.Image
        image = System.Drawing.Bitmap.FromFile(lstCards().SelectedItem)

Mais si j'ajoute une deuxieme image de la meme facon, l'image remplace la premiere.

Quelqu'un pourrai m'aider ?

Merci

Utilisateur anonyme · Accepted Answer

Bonsoir,

On r&#233;cup&#233;re l'image de ta picturebox, on dessine une nouvelle image par dessus est on red&#233;fini la final comme nouvelle
Ca donne une petite fonction:

Private Sub AddImageToPicture(ByVal Img As System.Drawing.Image, ByVal Location As System.Drawing.Point)
  Dim FinalImg As System.Drawing.Image = New System.Drawing.Bitmap(Me.PictureBox1.Width, Me.PictureBox1.Height)
  Dim Graphics As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(FinalImg)
  If Me.PictureBox1.Image IsNot Nothing Then
    Graphics.DrawImage(Me.PictureBox1.Image, System.Drawing.Point.Empty)
  End If
  Graphics.DrawImage(Img, Location)
  Me.PictureBox1.Image = FinalImg
End Sub

Example d'utilisation:

Call AddImageToPicture(Image.FromFile(
"Chemin/de/ton/Image01"), New System.Drawing.Point(10, 10))

Call AddImageToPicture(Image.FromFile(
"Chemin/de/ton/Image02"), New System.Drawing.Point(40, 20))

Call AddImageToPicture(Image.FromFile(
"Chemin/de/ton/Image03"), New System.Drawing.Point(30, 30))

[...]

Kenji

<HR width="100%" SIZE=2>


Merci de cliquer sur "R&#233;ponse accept&#233;e" si une r&#233;ponse vous convient.

cs_Seb33300 · Answer

lstCards().SelectedItem contient le chemain vers mon fichier image

cs_Seb33300 · Answer

Il ne me prend pas la ligne :

If Me.PictureBox1.Image IsNot Nothing Then

C'est le IsNot qui coince: Une valeur de type ... ne peut etre convertie en Booleen

Utilisateur anonyme · Answer

Pour vs2003:
If Not Me.PictureBox1.Image Is Nothing Then

Kenji

<HR width="100%" SIZE=2>


Merci de cliquer sur "R&#233;ponse accept&#233;e" si une r&#233;ponse vous convient.

cs_Seb33300 · Answer

Merci sa marche !!

Et tu peux me dire comment mettre du texte &#224; un endroit precis ? (avec les coordonn&#233;es)
en choisissant sa police, et sa forme (gras, soulign&#233;, ...)

merci encore !

Utilisateur anonyme · Answer

M&#234;me principe:

Tu peux dessiner un peut n'importe quoi sur ta picture (Image, Text,Formes ...)

Private Sub AddTextToPicture(ByVal Text As String, ByVal Location As System.Drawing.Point, ByVal Brush As System.Drawing.Brush, ByVal Font As System.Drawing.Font)
  Dim FinalImg As System.Drawing.Image = New System.Drawing.Bitmap(Me.PictureBox1.Width, Me.PictureBox1.Height)
  Dim Graphics As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(FinalImg)
  If Not Me.PictureBox1.Image Is Nothing Then
    Graphics.DrawImage(Me.PictureBox1.Image, System.Drawing.Point.Empty)
  End If
  Graphics.DrawString(Text, Font, Brush, Location)
  Me.PictureBox1.Image = FinalImg
End Sub

Et n'oublie pas les "r&#233;ponses accept&#233;es" 

Kenji

<HR width="100%" SIZE=2>


Merci de cliquer sur "R&#233;ponse accept&#233;e" si une r&#233;ponse vous convient.

cs_Seb33300 · Answer

ok mais comment on met en paramettre un truc de type 
System.Drawing.Font

-_-'

Utilisateur anonyme · Answer

Par example:
Dim TonFont As New System.Drawing.Font("Tahoma", 8, FontStyle.Bold Or FontStyle.Underline)

Kenji

<HR width="100%" SIZE=2>


Merci de cliquer sur "R&#233;ponse accept&#233;e" si une r&#233;ponse vous convient.

cs_Seb33300 · Answer

D&#233;sol&#233; mais c'est quoi le Brush ?

Il me dit qu'il ne doit pas etre null

Utilisateur anonyme · Answer

C'est pour la couleur:
Ex:
Dim TaBrush As System.Drawing.Brush = New System.Drawing.SolidBrush(System.Drawing.Color.Red)

Kenji

<HR width="100%" SIZE=2>


Merci de cliquer sur "R&#233;ponse accept&#233;e" si une r&#233;ponse vous convient.

cs_Seb33300 · Answer

Derniere chose :

Tu sais si il existe un moyen de placer un texte modifiable dans la picturebox ?

Utilisateur anonyme · Answer

La, il faut placer des contr&#244;les textbox sur la picture:

Private TextBoxList As System.Collections.ArrayList
Private Sub AddTextBoxToPicture(ByVal Bounds As System.Drawing.Rectangle)
  If TextBoxList Is Nothing Then TextBoxList = New System.Collections.ArrayList()
  Dim TxtBox As New System.Windows.Forms.TextBox()
  TxtBox.Bounds = Bounds
  Me.PictureBox1.Controls.Add(TxtBox)
  TextBoxList.Add(TxtBox)
End Sub

Kenji

<HR width="100%" SIZE=2>


Merci de cliquer sur "R&#233;ponse accept&#233;e" si une r&#233;ponse vous convient.

cs_Seb33300 · Answer

Sa marche comment les bounds ? -_-'

Utilisateur anonyme · Answer

Dim TonRect as New System.Drawing.Rectangle(PositonX, PositionY, Largeur, Hauteur)

Kenji

<HR width="100%" SIZE=2>


Merci de cliquer sur "R&#233;ponse accept&#233;e" si une r&#233;ponse vous convient.

cs_Seb33300 · Answer

Cela ne marche pas car le texte n'est pas "dans" l'image

losrque j'essai d'enregistrr l'image le texte n'aparai pas

cs_Seb33300 · Answer

j'ai trouv&#233; une autre solution c'est bon merci encore !

Utilisateur anonyme · Answer

Je poste quand m&#234;me. Ca peut-&#234;tre utile.
Avec la fonction pr&#233;c&#233;dente pour les TextBox:

Private TextBoxList As System.Collections.ArrayList
Private Sub AddTextBoxToPicture(ByVal Bounds As System.Drawing.Rectangle)
  If TextBoxList Is Nothing Then TextBoxList = New System.Collections.ArrayList()
  Dim TxtBox As New System.Windows.Forms.TextBox()
  TxtBox.Bounds = Bounds
  Me.PictureBox1.Controls.Add(TxtBox)
  TextBoxList.Add(TxtBox)
End Sub

Private Function GetBitmap() As System.Drawing.Image
  If Not Me.PictureBox1.Image Is Nothing Then
    Dim Img As System.Drawing.Image = Me.PictureBox1.Image
    Dim Graphics As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(Img)
    For Each TxtBox As System.Windows.Forms.TextBox In TextBoxList
      Dim TxtImage As New System.Drawing.Bitmap(TxtBox.Width, TxtBox.Height)
      TxtBox.DrawToBitmap(TxtImage, TxtBox.ClientRectangle)
      Graphics.DrawImage(TxtImage, TxtBox.Location)
    Next
    Return Img
  End If
  Return Nothing
End Function

Kenji

<HR width="100%" SIZE=2>


Merci de cliquer sur "R&#233;ponse accept&#233;e" si une r&#233;ponse vous convient.

cs_Seb33300 · Answer

Salut c'est encore moi

Peut etre pourra tu me renseigner :

Quand j'ajoute une image au format .png avec ta fonction AddImageToPicture
celle ci s'ajoute correctement par contre si j'ajoute de la transparence sur les contours de cette image et que j'utilise la fonction la taille de l'image que j'ajoute s'agrandi

Par contre si je la convertie au format gif, il n'y a pas de probleme

Est ce un bug avec le format png ?

Utilisateur anonyme · Answer

Effectivement, m&#234;me probl&#234;me
Oui, le pb vient peut-&#234;tre du format png.
Sinon, ca sa marche, la m&#234;me fonction avec en plus la taille final de l'image

Private Sub AddImageToPicture(ByVal Img As System.Drawing.Image, ByVal Location As System.Drawing.Point, ByVal Size As System.Drawing.Size)
  Dim FinalImg As System.Drawing.Image = New System.Drawing.Bitmap(Me.PictureBox1.Width, Me.PictureBox1.Height)
  Dim Graphics As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(FinalImg)
  If Me.PictureBox1.Image IsNot Nothing Then
    Graphics.DrawImage(Me.PictureBox1.Image, System.Drawing.Point.Empty)
  End If
  Graphics.DrawImage(Img, New System.Drawing.Rectangle(Location, Size))
  Me.PictureBox1.Image = FinalImg
End Sub

Kenji

<HR width="100%" SIZE=2>


Merci de cliquer sur "R&#233;ponse accept&#233;e" si une r&#233;ponse vous convient.

cs_Seb33300 · Answer

Salut 

tu saurais me dire comment effacer le contenu d'un picture box ?
Mettre tt en blanc par exemple

Utilisateur anonyme · Answer

Toujours vivant ce topic 

TaPictureBox.Image = Nothing
et tu met le BackColor &#224; la couleur que tu veut (ici blanc).

Kenji

<HR width="100%" SIZE=2>


Merci de cliquer sur "R&#233;ponse accept&#233;e" si une r&#233;ponse vous convient.

cs_Willi · Answer

Seb33300 pose tes questions sur le forum au lieu de reposter &#224; la suite de ton premier post.

cs_Seb33300 · Answer

Hey

j'ai mis en ligne la source cr&#233;&#233; avec ton aide ;)

Si ca t'interesse :
http://www.vbfrance.com/code.aspx?ID=36982

a+

LAYLO1010 · Answer

bonjour 
j'ai besoin d'aide
je cherche le code de connexion de webcom avec vb6

PictureBox en VB.net

24 réponses

Discussions similaires