Nicomendox Ответов: 0

Почему заполнение нарисованной фигуры (с изображением) не заменяется в растянутом режиме ?


Я пытаюсь заполнить прямоугольную форму изображением, но когда я пытаюсь заполнить изображение, то оно не вписывается в нарисованную форму. Не Растянутый Режим.

Что я уже пробовал:

Public Sub FillRectangle(ByVal g As Graphics, ByVal brush As Brush, ByVal x As Decimal, ByVal y As Decimal, ByVal width As Decimal, ByVal height As Decimal, ByVal radius As Decimal)
        Dim area As Rectangle = New Rectangle(x, y, width, height)
        Dim path As New Drawing2D.GraphicsPath

        'Add the corners
        path.AddArc(area.Left, area.Top, radius * 2, radius * 2, 180, 90) 'Upper-Left
        path.AddArc(area.Right - (radius * 2), area.Top, radius * 2, radius * 2, 270, 90) 'Upper-Right
        path.AddArc(area.Right - (radius * 2), area.Bottom - (radius * 2), radius * 2, radius * 2, 0, 90) 'Lower-Right
        path.AddArc(area.Left, area.Bottom - (radius * 2), radius * 2, radius * 2, 90, 90) 'Lower-Left

        'Fill the rounded rectangle
        g.FillPath(brush, path)
    End Sub


Private Sub PrintDocument2_PrintPage(sender As Object, e As PrintPageEventArgs) Handles PrintDocument2.PrintPage
        e.Graphics.PageUnit = GraphicsUnit.Millimeter
        e.Graphics.ResetTransform()
        PrintDocument2.OriginAtMargins = True
        Dim grpX As Graphics = e.Graphics

        Dim newImage As Image = Drawing.Image.FromFile("C:\Users\Yaman\Desktop\Frames\243.png")
        Dim brsh As New TextureBrush(newImage)

        FillRectangle(grpX, brsh, CDec(4.65), CDec(12.9), CDec(99.1), CDec(33.9), 5)

    End Sub

evry1falls

Вы хотите сказать, что он не работал только в режиме растяжки? или это вообще не сработало ?

0 Ответов