vb.net怎么画坐标图 vb怎么画坐标轴

vb.net怎么绘制带坐标轴的的一次函数？最好附上源码。1、利用公式求出Y值第一列设置表头为x，下面依次填入取值，比如x1234......第二例表头设置为y，在下面表格中填入计算公式如=2*x+1然后选中点右下角的十字型标记，拖下去，和前面x数量一致。2、然后选中数据源（即选中要进行操作的数据区域，这里指XY值所在区域。）3、执行菜单命令插入——图表——XY散点图执行命令，打开图表向导对话框选XY散点图－－选平滑线散点图－－完成最后使用图表向导在横坐标填入x值，纵坐标填入y值，生成图即可将一次函数的Y列用公式编辑出来，分别填写出当取不同的X值时得到不的函数值，选择函数值所在列，插入——图表按提示操作。执行菜单命令执行菜单命令
怎样在vb.net的picturebox里画出坐标?。?/h2>自己用GDI+画vb.net怎么画坐标图的无论什么什么尺寸vb.net怎么画坐标图的picturebox都行
不过别太小vb.net怎么画坐标图了o(∩_∩)o
代码放在哪里自己决定啊
最好是放在 picturebox的resize时间里
每次picturebox大小改变都重画一次坐标
Dim b As New Bitmap(PictureBox1.Width, PictureBox1.Height)
Dim g As Graphics = Graphics.FromImage(b)
g.Clear(Color.White)
Dim p As New Pen(Color.Black)
p.EndCap = Drawing2D.LineCap.ArrowAnchor
g.DrawLine(p, 30, PictureBox1.Height - 30, 30, 30)
g.DrawLine(p, 30, PictureBox1.Height - 30, PictureBox1.Width - 30, PictureBox1.Height - 30)
Dim i As Integer
Dim bs As New SolidBrush(Color.Green)
Dim po As New Point
po.X = 0
po.Y = PictureBox1.Height - 35
For i = 700 To 1000 Step 50
g.DrawString(i, Me.Font, bs, po.X, po.Y)
g.DrawLine(p, po.X + 28, po.Y + 5, po.X + 30, po.Y + 5)
po.Y -= (PictureBox1.Height - 100) / 6
Next
po.X = 30
po.Y = PictureBox1.Height - 30
For i = 0 To 40 Step 5
g.DrawString(i, Me.Font, bs, po.X, po.Y + 5)
g.DrawLine(p, po.X, po.Y + 2, po.X, po.Y)
po.X += (PictureBox1.Width - 100) / 8
Next
【vb.net怎么画坐标图 vb怎么画坐标轴】PictureBox1.Image = b
如何用vb实现坐标图太好玩啦~~~~~哈哈终于完工啦
窗体上放一个textbox 两条line 一个label 代码粘贴运行即见效果
'*************************************************************************
'**工程名称：平面座标
'**说明：小鸟工作室版权所有2007 - 2008(C)1
'**创建人：秋色烽火
'**日期：2007-12-18 14:08:15
'**版本：V1.0.0
'*************************************************************************
Const DPITCH = 300 '点距
Dim WithEvents oControlx1 As Line
Dim WithEvents oControlx2 As Line
Dim WithEvents oControly1 As Line
Dim WithEvents oControly2 As Line
Dim WithEvents oControlShape As Shape
Dim WithEvents oControlPixinfo As Label
Dim DPCound%, PixID%, PixBackColor, dotx%, doty%
Private Sub Form_Load()
Me.Caption = "平面座标 - by 秋色烽火[小鸟工作室]"
Me.Height = 9300
Me.Width = 9300
Line1.X1 = 150
Line1.X2 = Me.Width - 150
Line1.Y1 = Me.Height / 2
Line1.Y2 = Line1.Y1
Line2.Y1 = 150
Line2.Y2 = Me.Height - 150
Line2.X1 = Me.Width / 2
Line2.X2 = Line2.X1
Label1.Width = 255
Label1.Height = 255
Label1.AutoSize = ture
Label1.BackStyle = 0
Label1.FontItalic = True
Label1.FontBold = True
Label1.FontSize = 10
Label1.ForeColor = HFF
Label1.Caption = "O"
Label1.Left = Me.Width / 2 + Label1.Width - 100
Label1.Top = Me.Height / 2 - Label1.Height
Text1.Text = ""
Call AddLine
Text1.ToolTipText = "请输入整数座标(x,y) 中间用英文逗号分隔~~~,双击文本框或回车开始标注"vbCrLf" 右击显示帮助信息 "vbCrLf"输入座标请介乎于"DPCound \ 2"至"-1 * DPCound \ 2"之间~~"