[RESOLVED] How can I create a rectangle with a repeated image as background?

[Simonetos The Greek]

For example, I have this part of code which draw an image on a rectangle.

'
Dim _Image = My.Resources.MyImage
Dim _Rectangle As New Rectangle(0, 0, 100,100)
e.Graphics.DrawImage(_Image, _Rectangle)
'

And I want this image to appear as repeated background image. Any idea how can I do that?

---

EDIT: I changed the title because it didn't exactly describe what I wanted to do. I also changed a part of my question's body for the same reason.

[Simonetos The Greek]

Sorry I found what I was looking for, here. And here is a simple example...

Dim image As New Bitmap("HouseAndTree.gif")
Dim tBrush As New TextureBrush(image)
Dim blackPen As New Pen(Color.Black)
e.Graphics.FillRectangle(tBrush, New Rectangle(0, 0, 200, 200))
e.Graphics.DrawRectangle(blackPen, New Rectangle(0, 0, 200, 200))

---

EDIT: Please ignore this answer!!!

[digitalShaman]

there is a graphics.drawimage as well so you do not need the texture brush

[Simonetos The Greek]

there is a graphics.drawimage as well so you do not need the texture brush

Oh, thank you very much my friend I'll look for it!!!

---

EDIT: Please ignore this answer!!!

[dday9]

Not only can you use the DrawImage method like digitalShaman suggested, but I would also suggest wrapping the pen in a Using statement:

'Declare the image and the size/location it'll be drawn
Dim image As New Bitmap("HouseAndTree.gif")
Dim bounds As New Rectangle(0, 0, 200, 200)

With e.Graphics
    .DrawImage(image, bounds) 'Draw the image

    'Create a pen to draw the border
    Using border As New Pen(Color.Black)
        .DrawRectangle(border, bounds) 'Draw the border
    End Using
End With

[passel]

there is a graphics.drawimage as well so you do not need the texture brush

Oh, thank you very much my friend I'll look for it!!!

Since you used DrawImage in your first post, haven't you already looked at it. I'm not sure why it was brought up if you've already tried it and decided it didn't do what you needed.

Dim _Image = My.Resources.MyImage
Dim _Rectangle As New Rectangle(0, 0, 100,100)
e.Graphics.DrawImage(_Image, _Rectangle)

Since you discounted it after the first post, I'm not sure how the requirements description in your first post are solved by the code in the second post, i.e. "... image to appear as BackGroundImage? With Layout property. ..."

[Simonetos The Greek]

Since you used DrawImage in your first post, haven't you already looked at it. I'm not sure why it was brought up if you've already tried it and decided it didn't do what you needed.

Dim _Image = My.Resources.MyImage
Dim _Rectangle As New Rectangle(0, 0, 100,100)
e.Graphics.DrawImage(_Image, _Rectangle)

Since you discounted it after the first post, I'm not sure how the requirements description in your first post are solved by the code in the second post, i.e. "... image to appear as BackGroundImage? With Layout property. ..."

Yes you are right, I am sorry, I confused with a question on another site... Tomorrow I'll correct it!!!

[Simonetos The Greek]

Well, first of all sorry that I marked my question as solved without this actually being true in relation to the code example I gave. The reason is because I confused with an other question which I made on another site.

In a few words, in my initial question, I asked how can I create a rectangle with a repeated image as background. I gave this example, which creates a rectangle with an image "inside" but I couldn't achieve the repeat of this image...

'
Dim _Image = My.Resources.MyImage
Dim _Rectangle As New Rectangle(0, 0, 100,100)
e.Graphics.DrawImage(_Image, _Rectangle)
'

Then I came up with a wrong solution cause as I said before I confused with an other question which I made on another site. So, this is the solution on which I ended up and I found it here.

Dim _Image As New Bitmap(My.Resources.my_image)
Dim _TextureBrush As New TextureBrush(_Image, WrapMode.Tile)
Dim _Rectangle As New Rectangle(0,0, 100, 100)
e.Graphics.FillRectangle(_TextureBrush, _Rectangle)

The "key" was the TextureBrush and the WrapMode property.

---

Now, about digitalShaman's post...

there is a graphics.drawimage as well so you do not need the texture brush

I looked for it but I didn't find any example on how can make it repeat the image. This was my problem. I did use drawimage but I didn't know how to repeat the image. So, If anyone have an other solution with the use of drawimage...

Since you used DrawImage in your first post, haven't you already looked at it. I'm not sure why it was brought up if you've already tried it and decided it didn't do what you needed.

Dim _Image = My.Resources.MyImage
Dim _Rectangle As New Rectangle(0, 0, 100,100)
e.Graphics.DrawImage(_Image, _Rectangle)

Since you discounted it after the first post, I'm not sure how the requirements description in your first post are solved by the code in the second post, i.e. "... image to appear as BackGroundImage? With Layout property. ..."

Sorry for this confusion I caused!!!

---

PS: For anyone who posted here, please change the title of your post to "Re: How can I create a rectangle with a repeated image as background?". Thank you and sorry again...

[Goggy]

Wouldn't it just be a mather of looping?

something like so?

        Dim Img As Bitmap = My.Resources.MyImage
        Dim Size As New Size(100, 100)
        Dim Offset As New Point(0, 0)

        Do While Offset.Y < Me.Height
            Do While Offset.X < Me.Width
                e.Graphics.DrawImage(Img, New Rectangle(Offset.X, Offset.Y, Size.Width, Size.Height))
                Offset.X += Size.Width
            Loop
            Offset.Y += Size.Height
            Offset.X = 0
        Loop

[Simonetos The Greek]

Wouldn't it just be a mather of looping?

something like so?

        Dim Img As Bitmap = My.Resources.MyImage
        Dim Size As New Size(100, 100)
        Dim Offset As New Point(0, 0)

        Do While Offset.Y < Me.Height
            Do While Offset.X < Me.Width
                e.Graphics.DrawImage(Img, New Rectangle(Offset.X, Offset.Y, Size.Width, Size.Height))
                Offset.X += Size.Width
            Loop
            Offset.Y += Size.Height
            Offset.X = 0
        Loop

Yes, nice idea, thank you for your answer!!! But I'll prefer the solution I posted last because it gives me the ability of WrapMode property. Except if there is any similar way to do that with DrawImage...

[passel]

DrawImage will only draw one image. You could do a nested loop to do multiple draws, but there is really no reason to do that. Filling a rectangle with a pattern, such as a seamless tile image, is a primary reason for having a texturebrush.

Also, using a texturebrush usually draws much quicker than using DrawImage. If you're reusing the same image to fill the background whenever you need to draw, I would normally create the texturebrush at the Form Class level so I could use it repeatedly whenever needed without having the overhead of creating and disposing of it every time used.

[Simonetos The Greek]

If you're reusing the same image to fill the background whenever you need to draw, I would normally create the texturebrush at the Form Class level so I could use it repeatedly whenever needed without having the overhead of creating and disposing of it every time used.

Thank you for your advice my friend!!!