锐客网

  1. 首页 > 生活百科 > it技术 > >

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

IT技术text

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)
【vbnet绘图的代码 vb编写画图程序】'清楚现有的矩形
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
效果截图:
原窗口：
缩小后：
VB到VB.net的绘图APIVB.net里有个很简单的办法，就是把Form1的TransparencyKey 属性设置成白色 ， 你的图片的白色就会变成透明的了，很方便吧 。
求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 = ab '运算过程
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
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
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的这种方法也可以绘制同心圆或者椭圆形的?。?有了这些基础知识之后，就可以灵活的使用它们来实现不同的形
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绘图的代码的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：学生会如何发展新媒体，在学生会新媒体以后的发展打算

    下一篇：搭建samba服务器，搭建samba服务器的心得