vbnet绘图的代码 vb编写画图程序

vb.net绘图问题

代码vbnet绘图的代码：

Public Class Form1

    '*********************************************************************   

    '作者：章鱼哥vbnet绘图的代码，QQ：3107073263 群：309816713       

    '如有疑问或好vbnet绘图的代码的建议请联系vbnet绘图的代码我vbnet绘图的代码，大家一起进步     

    '*********************************************************************     

    '绘制圆角矩形函数

    Private Function GetRoundedRectPath(ByVal rect As Rectangle, ByVal radius As Integer) As System.Drawing.Drawing2D.GraphicsPath

        rect.Offset(-1, -1)

        Dim RoundRect As New Rectangle(rect.Location, New Size(radius - 1, radius - 1))

        Dim path As New System.Drawing.Drawing2D.GraphicsPath

        path.AddArc(RoundRect, 180, 90)     '左上角

        RoundRect.X = rect.Right - radius   '右上角

        path.AddArc(RoundRect, 270, 90)

        RoundRect.Y = rect.Bottom - radius  '右下角

        path.AddArc(RoundRect, 0, 90)

        RoundRect.X = rect.Left             '左下角

        path.AddArc(RoundRect, 90, 90)

        path.CloseFigure()

        Return path

    End Function

    '绘制矩形

    Private Sub DrawingRect()

        Dim g As Graphics = Me.CreateGraphics

        Dim Pen As New Pen(Brushes.DarkRed, 2)

        Dim Hei As Integer = Me.Height

        Dim Wid As Integer = Me.Width

        '矩形的位置和长宽随着窗体的变化而改变

        Dim Rec As New Rectangle(Int(Wid / 5), Int(Hei / 5), Int(Wid / 2), Int(Hei / 2))

        '  g.DrawRectangle(Pen, Rec)

        '清楚现有的矩形

        g.Clear(Me.BackColor)

        g.DrawPath(Pen, GetRoundedRectPath(Rec, 30))

    End Sub

    Private Sub Form1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint

        DrawingRect()

    End Sub

    Private Sub Form1_SizeChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.SizeChanged

        Me.Invalidate() '此函数可引发Paint事件

    End Sub

End Class

效果截图:

原窗口：

缩小后：

相关问答

Q1: VB到VB.net的绘图API

VB.net里有个很简单的办法，就是把Form1的TransparencyKey 属性设置成白色，你的图片的白色就会变成透明的了，很方便吧。

Q2: 求VB.net程序源代码 绘图板、二十一点游戏、计算器、井字棋游戏、屏幕保护程序等

说明：1.共有4个文本框其，其中三个是填入或输出数据的（名称分别是：txta txtb txtc），剩下的那个是符号(txtd)2.共7个按钮，4个是符号按钮，一个计算，一个清零．这是我弄的程序”袖珍计算器”代码也是自己编写的，代码如下：通用声明Dim j As Integer '定义j为整型

Private Sub Text1_Change()End SubPrivate Sub Command1_Click()

txtfuhao.Text = "+" '将”＋”显示到文本框txtfuhao.Text中

End SubPrivate Sub Command2_Click()

txtfuhao.Text = "-" ''将”-”显示到文本框txtfuhao.Text中

End SubPrivate Sub Command3_Click()

txtfuhao.Text = "×" '将”×”显示到文本框txtfuhao.Text中

End SubPrivate Sub Command4_Click()

txtfuhao.Text = "÷" 将”÷”'显示到文本框txtfuhao.Text中

End Sub

Private Sub Command5_Click()

Dim a, b, c As Integer

a = Val(txta.Text) '将txta.Text里的内容转化为数值型,然后再赋给a

b = Val(txtb.Text) '将txtb.Text里的内容转化为数值型,然后再赋给b

If txtfuhao.Text = "+" Then '运算过程

c = a + b '运算过程

ElseIf txtfuhao.Text = "-" Then '运算过程

c = a - b '运算过程

ElseIf txtfuhao.Text = "÷" Then '运算过程

c = a / b '运算过程

ElseIf txtfuhao.Text = "×" Then '运算过程

c = a * b '运算过程

Else

j = MsgBox("您输入的符号不正确", vbOKOnly, "错误信息")

End If

txtc.Text = c '将运算结果c输出到文本框txtc中

End SubPrivate Sub Command6_Click()

txta.Text = "" '将空字符输入到文本框内（刷新）

txtb.Text = "" '将空字符输入到文本框内（刷新）

txtc.Text = "" '将空字符输入到文本框内（刷新）

txtfuhao.Text = "" '将空字符输入到文本框内（刷新）

End SubPrivate Sub Command7_Click()

End '结束程序

End SubPrivate Sub Form_Load()End Sub

Q3: vb.net绘制曲线图

。net  其实还是很好绘制图形的

你可以看下 Graphics  类

   Dim d As New Bitmap(Me.Width, Me.Height)  ‘一个图片吧

      Dim g As Graphics = Graphics.FromImage(d)’绘制  准备在这个图片是进行

然后  就是你绘制的东西了

线 就是   g.DrawLine()

圆 弧度  就用  g.DrawArc(Pens.Black, New Rectangle(0, 0, 400, 200), 0, 360)

复杂的就是      g.DrawBezier()

 等  如果你用的是 VS的  编译  上面都有详细的参数说明

     Dim d As New Bitmap(Me.Width, Me.Height)

        Dim g As Graphics = Graphics.FromImage(d)

        g.DrawArc(Pens.Black, New Rectangle(0, 0, 200, 200), 0, 360)

        g.DrawLine(Pens.Red, New Point(0, 0), New Point(200, 200))

        g.DrawLines(Pens.Green, New Point() {New Point(0, 0), New Point(50, 40), New Point(50, 80), New Point(90, 70), New Point(100, 400)})

        g.DrawBezier(Pens.Yellow, New Point(0, 100), New Point(0, 0), New Point(200, 0）， New Point(200, 200))

        g.Dispose()

        Me.BackgroundImage = d

Q4: vbnet三点画弧代码

为vbnet绘图的代码了在VB.NET中绘制一个弧线vbnet绘图的代码，可以使用Graphics类的DrawArc方法。该方法需要指定五个参数，它们分别是：Pen对象、X坐标传入区域左上角、Y坐标传入区域左上角、宽度传入区域右下角和高度传入区域右下角、开始角度和结束角度。 例如，绘制一个宽120，高150的从角度30°开始，以210°结束的弧的代码将为：

e.Graphics.DrawArc(Pens.Black, 0, 0, 120, 150, 30, 210)

所有的这些参数都是必需的，因为所绘制的弧是依赖于这些参数来指定的，DrawArc的这种方法也可以绘制同心圆或者椭圆形的弧，有了这些基础知识之后，就可以灵活的使用它们来实现不同的形

Q5: VB.net中如何画图？

VB.net与VB不同。

VB.net已经有专门绘图的类。

可以定义笔刷然后用Drawing类中的方法绘制。

Private Sub DrawEllipse()

Dim myPen As New System.Drawing.Pen(System.Drawing.Color.Red)

Dim formGraphics as System.Drawing.Graphics

formGraphics = Me.CreateGraphics()

formGraphics.DrawEllipse(myPen, New Rectangle(0,0,200,300))

myPen.Dispose()

formGraphics.Dispose()

End Sub

Private Sub DrawRectangle()

Dim myPen As New System.Drawing.Pen(System.Drawing.Color.Red)

Dim formGraphics as System.Drawing.Graphics

formGraphics = Me.CreateGraphics()

formGraphics.DrawRectangle(myPen, New Rectangle(0,0,200,300))

myPen.Dispose()

formGraphics.Dispose()

End Sub

vbnet绘图的代码的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb编写画图程序、vbnet绘图的代码的信息别忘了在本站进行查找喔。