网站建设资讯

NEWS

网站建设资讯

vb.net坐标图 vb如何显示坐标

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

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

成都创新互联:自2013年起为各行业开拓出企业自己的“网站建设”服务,为近1000家公司企业提供了专业的网站设计制作、网站设计、网页设计和网站推广服务, 定制网站建设由设计师亲自精心设计,设计的效果完全按照客户的要求,并适当的提出合理的建议,拥有的视觉效果,策划师分析客户的同行竞争对手,根据客户的实际情况给出合理的网站构架,制作客户同行业具有领先地位的。

G.Clear(Colors.Black)

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

关于vb.net在picture.box里面画坐标图的

TranslateTransform方法是用来平移对象的。如果你学过计算机图形学,有个偏移矩阵,就是它了。

你只要知道TranslateTranform(0,240)表示把图形移动到当前位置+(0,240)的地方就行了。

ScaleTransform用于缩放对象,1,1的话表示大小不变。

怎样在vb.net的picturebox里画出坐标啊?

自己用GDI+画的 无论什么什么尺寸的picturebox都行

不过别太小了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

PictureBox1.Image = b


分享文章:vb.net坐标图 vb如何显示坐标
网页路径:http://njwzjz.com/article/dojjjhd.html