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
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(前景色,就是字体的颜色) 属性值
关于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赋值啊,这个地方鼠标动了值会有变化的.
还有疑问的话请补充
vb的画矩形图问题Pic1.Line (100, 100)-(100a, 100b), , BF

Pic1.Line (100a, 100b)-(100, 100), , BF
的效果是一样的,只不过是把起点和终点对换过来而已(就像数学中从A点到B点画一条线段 , 跟从B点到A点画一条线段是一样的) 。
BF是表示要画实心的矩形,如果是
Pic1.Line (100, 100)-(100a, 100b)
则是画一条线段 。如果是
Pic1.Line (100, 100)-(100a, 100b), , B
则是画一个空心的矩形
pic1.Fillcolor = vbBottonFace是表示在Pic1中画图的时候,把标准按钮的表面颜色作为实心的封闭图形(圆、矩形、三角形等等)的填充色
【vb.net画填充矩形 vb画矩形代码】关于vb.net画填充矩形和vb画矩形代码的介绍到此就结束了,不知道你从中找到你需要的信息了吗 ?如果你还想了解更多这方面的信息,记得收藏关注本站 。

    推荐阅读