资讯

精准传达 • 有效沟通

从品牌网站建设到网络营销策划,从策略到执行的一站式服务

vb.net如何画二维图 vb绘制图形

二维图形怎么绘制?

1.绘制直线

创新互联公司专业为企业提供阳新网站建设、阳新做网站、阳新网站设计、阳新网站制作等企业网站建设、网页设计与制作、阳新企业网站模板建站服务,10多年阳新做网站经验,不只是建网站,更提供有价值的思路和整体网络服务。

单击工具栏中的“直线”按钮可实现直线的绘制.在绘图区任一位置选择直线的起点,移动鼠标给直线一个方向,在命令行输入数字后按回车键确定直线的长度.配合使用下方的“正交”选项,可绘制垂直或水平的直线(连续按“F8”可打开或关闭正交).

2.绘制构造线

单击“构造线”按钮选择构造线命令,直接单击绘图区的任意两点可确定一条构造线.构造线是无限长的一条线,通常用来做参考线使用,如图所示.

绘制构造线

3.绘制多段线

单击“多段线”按钮,可绘制多段线图形.根据命令行的提示,输入相应字母可完成直线、圆弧等的绘制.单击鼠标右键“确定”按钮或使用“回车”“空格”可结束操作.按“Esc”键可放弃选择的命令.多段线绘制出的图形是一个整体.使用多段线还可进行箭头的绘制.单击“多段线”按钮,在视图中任意位置确定箭头的起点,此时命令行出现提示“指定下一个点或[圆弧(A)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:”,输入“W”后按回车键指定起点宽度,此时输入箭头的起点宽度,这里我们输入“0”按回车键即可.再次输入200,指定端点宽度.此时,在命令行中输入“L”按回车键指定箭头的长度,在命令行出现的“指定直线长度:”后面输入数值400按回车键,即可绘制成想要的箭头,如图所示.

多段线绘制箭头

4.绘制多线

输入多线样式名在建筑装饰绘图中,常使用多线来进行墙体等双线条的绘制.多线绘制前,可对多线进行设置,来实现双线或三线的绘制.设置方法是单击“格式”→“多线样式”命令.弹出“多线样式”对话框,单击“新建”按钮,在“新建样式名”中输入需要创建的多线样式名称,这里我们以240墙体为例.单击“继续”按钮,如图所示.

输入多线样式名

勾选直线的“起点”和“端点”选项,选择图元下方的第一个选项,在偏移文本框中输入墙线偏移量,这里我们输入120,在“颜色”下拉列表框中选择“绿”,单击“线型”按钮,弹出“选择线型”对话框,在已加载的线型列表中选择需要的线型,我们选择“ByBlock”单击“确定”按钮,如图所示

设置第一条直线偏移量

5.绘制点

单击工具栏中的“点”按钮,可以进行点的绘制.通常默认的点很小,不选中的情况下很难看到.单击“格式”→“点样式”命令弹出“点样式”对话框,可选择不同的点的样式,也可通过“点大小”选项调整点的大小.装饰工程制图中,常使用点的样式来作为灯的表示符号,如图所示.

点的样式

定数等分:如果要将点按照一定数量等分摆放,可以使用定数等分命令.例如,要在一条指定距离的线段上定数等分摆放5个点,操作方法为单击“绘图”→“点”→“定数等分”命令,单击要等分的线段,5个点会将线段分为6段,所以,在命令行提示中输入线段数目为6,按回车键即可完成操作,如图所示.

点的定数等分

定距等分:如果要使点按规定的距离摆放,则可使用定距等分命令.例如,绘制500长的线段,要在线段上每120的部分绘制一点,单击“绘图”→“点”→“定距等分”命令后,单击要定距等分的线段,指定线段长度为120,按回车键完成点的定距等分绘制,如图所示.

点的定距等分

6.绘制矩形

选择工具栏中的“矩形”按钮,激活矩形命令.矩形命令是通过确定两个对角点的位置来确定矩形的大小的,激活命令后命令行会出现指定第一个角点,确定点的位置后输入相对坐标(@600,200),表示绘制长600、宽200、相对起点为坐标原点的矩形.如果在指定第一个角点前输入“C”按回车键,则表示绘制带倒角的矩形,命令行提示指定倒角距离,倒角的距离可以相同也可以不同,第一个倒角的距离指的是逆时针方向的倒角距离,第二个倒角距离指的是顺时针方向的倒角距离.在指定矩形角点时还可输入标高、圆角、厚度、宽度、面积、尺寸、旋转等命令,如图所示

矩形命令提示

7.绘制圆

单击工具栏中的“圆”按钮,根据命令行提示“指定圆的圆心或[三点(3P)/两点(2P)/切点、切点、半径(T)]:”,直接单击视图上任意一点,即可确定圆心位置.(1)输入“3P”表示用指定圆周上三点的方法画圆.(2)输入“2P”表示指定直径的两端点画圆.(3)输入“T”表示按先指定两个相切对象,后给出半径的方法画圆.

8.绘制圆弧

单击工具栏中的“圆弧”按钮,激活圆弧命令.圆弧命令需要确定三个点.指定圆弧的起点,指定圆弧的第二个点(圆弧上中间部分的一个点),指定圆弧的端点.

9.绘制椭圆

单击工具栏中的“椭圆”按钮,激活椭圆命令.根据命令行提示单击视图中任意位置指定椭圆的圆心,单击另一点确定椭圆的其中一个轴的半轴长度.再次单击,确定椭圆另一个轴的半轴长度.命令行提示如图所示。

椭圆命令行提示

10.绘制样条曲线

样条曲线用来绘制形状不规则的曲线,在装饰制图中通常用来绘制花纹.单击工具栏中的“样条曲线”按钮,通过在视图中连续点击创建点来进行曲线的绘制,结束时可单击鼠标右键确定或输入“T”指定端点的切向、输入“C”选择闭合绘制的图形,如图所示.

样条曲线绘制效果

VB.net中如何画图?

分类: 电脑/网络 程序设计 其他编程语言

问题描述:

VB6中的form1.circle (100,200),rgb(0,255,0)的语句如何在VB中使用啊?

急用啊!!!!!!!!

解析:

VB与VB不同。

VB已经有专门绘图的类。

可以定义笔刷然后用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 画二维数组的曲线图

Private Sub PictureBox2_Paint(sender As Object, e As PaintEventArgs) Handles PictureBox2.Paint

Dim points As New List(Of Point)

points.Add(New Point(0, 0))

points.Add(New Point(1, 10))

points.Add(New Point(3, 15))

points.Add(New Point(14, 0))

points.Add(New Point(20, 60))

points.Add(New Point(40, 20))

points.Add(New Point(70, 50))

e.Graphics.DrawCurve(Pens.Red, points.ToArray)

End Sub

供参考,points可设为全局变量,那样add随便在哪增加,想要看见看上去动态的图,那就在新增完n个后,继续增加n+1个之时,放弃points中的第一个。

Vb.net怎么实现图像的处理

这问题有点笼统,软糖来说说把:

图像处理由System.Drawing命名空间负责。

主要是Bitmap类和Graphics类。

Bitmap表示一个位图,可以是BMP,JPG,PNG等文件。

装载位图

Dim 位图 As Bitmap = Bitmap.FromFile("C:\Image1.PNG")

Graphics表示一张画纸,能够进行绘制操作。

它可以被窗体、控件、位图调用CreateGraphics()方法来创建。

然后调用Graphics.Draw开头的一系列函数来绘制图像和图形,Fill开头的填充图形。

创建画纸并绘制位图

Dim 画纸 As Graphics = Me.CreateGraphics()

画纸.DrawImage(位图, 100, 100, 256, 256)

可以将上面三行放到Form1_Load中测试,把路径改一下,

还可以把Me改为能在上面绘图的控件的名称。

更多内容请看MSDN的System.Drawing命名空间。

如满意,请采纳,谢谢。


网页名称:vb.net如何画二维图 vb绘制图形
链接分享:http://cdkjz.cn/article/dosidgj.html
多年建站经验

多一份参考,总有益处

联系快上网,免费获得专属《策划方案》及报价

咨询相关问题或预约面谈,可以通过以下方式与我们联系

业务热线:400-028-6601 / 大客户专线   成都:13518219792   座机:028-86922220