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

关于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.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里面怎么画矩形？

你的要求没人能达到VB本身没有Square函数,Circle画圆,Line 可以画矩形,

vb.net画一个矩形图片的代码

g = Me.picDisplay.CreateGraphics

Dim mybrush As Brush = New SolidBrush(Map_Empty_Color)

Dim rect2 As System.Drawing.Rectangle = New System.Drawing.Rectangle(0, 0, Map_Width, Map_Height)

g.FillRectangle(mybrush, rect2)

vb.net 画图对象问题

参考一下下面这段代码：

‘ 首先picturebox1 加载一张图像

FolderBrowserDialog1.Description = "选择图片文件夹导入图片"

FolderBrowserDialog1.ShowDialog()

path = FolderBrowserDialog1.SelectedPath()

If path = "" Then Return

strSrcFile = Dir(path  "\*.tif")

PictureBox1.Image = Image.FromFile(path  "\"  strSrcFile)

’  然后再在picturebox1中用graphic画图而不清空原图像

' 建立一个画图对象

Dim g As Graphics = Me.PictureBox1.CreateGraphics

‘ 定义画笔

Dim myPen As System.Drawing.Pen = New System.Drawing.Pen(Color.Blue)

’ 画出矩形框并且填充颜色（颜色保持50%的透明度，使得下面原来的图片背景能看得到）

g.DrawRectangle(myPen, New System.Drawing.Rectangle(50, 50, 30, 20))

g.FillRectangle(New SolidBrush(Color.FromArgb(50, Color.YellowGreen)), New System.Drawing.Rectangle(50, 50, 30, 20))

' 最后释放画图对象

g.Dispose()

效果大致如下图所示：

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中画图的时候，把标准按钮的表面颜色作为实心的封闭图形（圆、矩形、三角形等等）的填充色