锐客网

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

vb.net绘图源码 vb绘图程序代码

IT技术思维

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
vb.net怎么绘制带坐标轴的的一次函数？最好附上源码 。1、利用公式求出Y值第一列设置表头为xvb.net绘图源码，下面依次填入取值vb.net绘图源码，比如x1234......第二例表头设置为yvb.net绘图源码，在下面表格中填入计算公式如=2*x+1然后选中点右下角vb.net绘图源码的十字型标记，拖下去，和前面x数量一致 。2、然后选中数据源（即选中要进行操作的数据区域，这里指XY值所在区域 。）3、执行菜单命令插入——图表——XY散点图执行命令，打开图表向导对话框选XY散点图－－选平滑线散点图－－完成最后使用图表向导在横坐标填入x值，纵坐标填入y值，生成图即可将一次函数的Y列用公式编辑出来，分别填写出当取不同的X值时得到不的函数值 ， 选择函数值所在列 ， 插入——图表按提示操作 。执行菜单命令执行菜单命令
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
求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 '运算过程

推荐阅读


上一篇：oracle多表相同数据合并，oracle两表合并后条件查询

下一篇：软件苹果耳机安卓，苹果耳机安卓用什么软件