实例101椭圆形图画

TextureBrush 类

https://docs.microsoft.com/zh-cn/dotnet/api/system.drawing.texturebrush?view=dotnet-plat-ext-3.1

构造函数 

TextureBrush(Image)	初始化使用指定图像的新 TextureBrush 对象。
TextureBrush(Image, Rectangle)	初始化使用指定图像和边框的新 TextureBrush 对象。
TextureBrush(Image, Rectangle, ImageAttributes)	初始化使用指定的图像、边框和图像特性的新 TextureBrush 对象。
TextureBrush(Image, RectangleF)	初始化使用指定图像和边框的新 TextureBrush 对象。
TextureBrush(Image, RectangleF, ImageAttributes)	初始化使用指定的图像、边框和图像特性的新 TextureBrush 对象。
TextureBrush(Image, WrapMode)	初始化使用指定的图像和自动换行模式的新 TextureBrush 对象。
TextureBrush(Image, WrapMode, Rectangle)	初始化使用指定图像、自动换行模式和边框的新 TextureBrush 对象。
TextureBrush(Image, WrapMode, RectangleF)	初始化使用指定图像、自动换行模式和边框的新 TextureBrush 对象。

属性

Image	获取与此 Image 对象关联的 TextureBrush 对象。
Transform	获取或设置 Matrix 对象的副本，该对象为与此 TextureBrush 对象关联的图像定义局部几何变换。
WrapMode	获取或设置 WrapMode 枚举，它指示此 TextureBrush 对象的换行模式。

一个Panel里添加一个PictureBox用于绘图

Public Class Form1
    Dim myGraph As Graphics
    Dim myBrush As TextureBrush
    Dim picRect As Rectangle
    Dim img As Image

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        img = Image.FromFile("C:\Users\Administrator\Pictures\4.jpg")
        myBrush = New TextureBrush(img)
        picRect = New Rectangle(5, 5, PictureBox1.Width - 5, PictureBox1.Height - 5)
        myGraph = Graphics.FromHwnd(PictureBox1.Handle)
    End Sub

    Private Sub btnPaint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPaint.Click
        myGraph.FillEllipse(myBrush, picRect)
    End Sub

   
    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        Me.Close()
    End Sub
End Class