vb.net怎么画坐标轴,vb中图形坐标y轴方向

VB如何画坐标轴！！！

VB画坐标轴方法：

Private Sub Form_paint()

Dim i, j As Integer

Me.CurrentX = 0

Me.CurrentY = 0

Print 0

Me.ScaleMode = 3

Me.Line (0, 0)-(0, 3000)

Me.Line (0, 0)-(3000, 0)

For i = 100 To 3000 Step 100

Me.Line (i, 0)-(i, 10)

temp = i

CurrentX = i - TextWidth(temp) / 2

Print i

Next

For i = 100 To 3000 Step 100

Me.Line (0, i)-(10, i)

temp = i

CurrentY = i - TextHeight(temp) / 2

Print i

Next

End Sub

加箭头

Private Sub Form_paint()

Dim i, j As Integer

Me.CurrentX = 10

Me.CurrentY = 10

Print 0

Me.ScaleMode = 3

Me.Line (10, 10)-(10, 600)

Me.Line (10, 10)-(600, 10)

For i = 100 To 500 Step 100

Me.Line (i, 10)-(i, 20)

temp = i

CurrentX = i - TextWidth(temp) / 2

Print i

Next

For i = 100 To 500 Step 100

Me.Line (10, i)-(20, i)

temp = i

CurrentY = i - TextHeight(temp) / 2

Print i

Next

Me.Line (590, 20)-(600, 10) 'x箭头

Me.Line (590, 0)-(600, 10) 'x箭头

Me.Line (0, 590)-(10, 600) 'y箭头

Me.Line (20, 590)-(10, 600) 'y箭头

End Sub

相关问答

Q1: vb.net怎么自定义坐标系

scale(x1,y1)-(x2,y2)

你只要记住，这里的x1,y1是左上角的坐标，x2,y2是右下角的坐标，通过这两个点的坐标设定，就可以决定坐标原点的位置以及坐标轴的方向了，比如

Scale (-300,200)-(300,-200)

以上是把坐标原点设在窗体中心，x轴长600，方向从左到右，y轴长400，方向从下向上。

Scale (800,0)-(0,600)

以上是把坐标原点设在窗体右上角，x轴长800，方向从右到左，y轴长600，方向从上向下。

下面说坐标轴和原点的标示法：

假定自定义坐标设为：

Scale (-300, 200)-(300, -200)

则

Line (-300, 0)-(300, 0) '画x轴

Line (0, 200)-(0, -200) '画y轴

CurrentX = 290

CurrentY = -5

Print "x" '标示x轴

CurrentX = 5

CurrentY = 200

Print "y" '标示y轴

CurrentX = 5

CurrentY = -5

Print "0" '标示原点

Q2: vb.net怎么绘制平面直角坐标系

创建Graphics对象，可以调用CreateGraphics()直接做图也可以创建Bitmap对象然后调用Graphics.FromBitmap(b)得到Graphics G

G.Clear(Colors.Black)

G.DrawLine(Pens.White, 画线的坐标

Q3: 如何用vb画坐标系？

坐标原点默认是左上角，可以改变的，FORM1.SCALE

(X1,Y1)-(X2,Y2)横坐标范围是从X1到X2，纵坐标是从Y1到Y2，若坐标设在窗体中间，则FORM1.SCALE

(-ME.WIDTH/2,-ME.HEIGTH/2)-(ME.WIDTH/2,ME.HEIGTH/2),画横坐标ME.LINE

(-ME.WIDTH/2,0)-(ME.WIDTH/2,0)

画纵坐标FORM1.LINE

(0,-ME.HEIGTH/2,0,ME.HEIGTH/2)

Q4: vb.net怎么绘制带坐标轴的的一次函数？最好附上源码。

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