vb.net画填充矩形 vb画矩形代码

vb.net画填充的方形矩形

Dim canvas As New ShapeContainer

' To draw anoval, substitute

' OvalShapefor RectangleShape.

DimtheShape As NewRectangleShape

' Set theform as the parent of the ShapeContainer.

canvas.Parent = Me

' Set theShapeContainer as the parent of the Shape.

theShape.Parent = canvas

' Set thesize of the shape.

theShape.Size = New System.Drawing.Size(200,300)

' Set thelocation of the shape.

theShape.Location = New System.Drawing.Point(100,100)

' To draw arounded rectangle, add the following code:

theShape.CornerRadius = 12

theShape.FillStyle = FillStyle.Solid

theShape.FillColor = Color.Red

相关问答

Q1: VB里面怎么画矩形？

使用Line方法，向Form，PictureBox这些控件都支持这个方法。

语法:

object.Line [Step] (x1, 1) [Step] (x2, y2), [color], [B][F]

如：

Me.Line (100,100)-(600,600), vbred, bf

加B这个参数就是矩形，加F就是用就边框颜色填充

补充：

Color参数就是边框颜色，如果省略，就用对象的ForeColor（前景色，就是字体的颜色） 属性值

Q2: 关于VB里绘制矩形的问题

If Not drawing Then [这里为什么这里多了一个Not,后面的几个IF语句都没有Not的?] :not就是否的意思,或者说不什么什么,在这里就是没有drawing

xp1 = X: yp1 = Y [这里定义坐标为什么是用冒号:的,而不是用分号；的?:这是VB的规定,写成一行的时候就用冒号

Line (xp1, yp1)-(xp2, yp2), , B [这里后面的两个逗号跟B是什么意思的?]:并不是两个逗号,而是其中的参数未设置(在这里是没有设置线的颜色)

Line (xp1, yp1)-(X, Y), , B [这里的上一句不是已经定义了一个矩形的左上角和右下角坐标了吗,为什么还要加多这一句的?] :那么就是画两个矩形了,坐标不一样嘛.

xp2 = X: yp2 = Y [这句话又是什么意思?]:对xp2\yp2赋值啊,这个地方鼠标动了值会有变化的.

还有疑问的话请补充

Q3: vb的画矩形图问题

Pic1.Line (100, 100)-(100 + a, 100 + b), , BF

跟

Pic1.Line (100 + a, 100 + b)-(100, 100), , BF

的效果是一样的，只不过是把起点和终点对换过来而已（就像数学中从A点到B点画一条线段，跟从B点到A点画一条线段是一样的）。

BF是表示要画实心的矩形，如果是

Pic1.Line (100, 100)-(100 + a, 100 + b)

则是画一条线段。如果是

Pic1.Line (100, 100)-(100 + a, 100 + b), , B

则是画一个空心的矩形

pic1.Fillcolor = vbBottonFace是表示在Pic1中画图的时候，把标准按钮的表面颜色作为实心的封闭图形（圆、矩形、三角形等等）的填充色

关于vb.net画填充矩形和vb画矩形代码的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。