Quantcast
Viewing all articles
Browse latest Browse all 12583

Texturebrush and FillEllipse problem

Hi, i have the following code which loads a bmp from my resources. this image is a 24bit 24x24 bmp.

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Dim m_texturebrush As TextureBrush = Nothing
        Dim _image As Image = Nothing
        Try
            Dim g As Graphics = CreateGraphics()
            _image = New Bitmap(My.Resources.refresh)
            m_texturebrush = New TextureBrush(_image, New Rectangle(0, 0, 24, 24))
            'm_texturebrush.WrapMode = WrapMode.Clamp
            g.FillEllipse(m_texturebrush, Width - 50, 0, 24, 24)
            g.Dispose()
            _image.Dispose()
            m_texturebrush.Dispose()
        Catch ex As Exception
            'MsgBox(ex.Message)
        End Try
    End Sub

problem is i cannot seem to get Wrapmode.clamp to work. i want the 24x24 image displayed in a circle with a 24 radius. however my results are not right. i'm getting titled images that seem flipped.

Can anyone help me out.

Gary


Viewing all articles
Browse latest Browse all 12583

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>