189 8069 5689
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赋值啊,这个地方鼠标动了值会有变化的.
还有疑问的话请补充
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本身没有Square函数,Circle画圆,Line 可以画矩形,
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)
参考一下下面这段代码：
‘ 首先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()
效果大致如下图所示：
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中画图的时候，把标准按钮的表面颜色作为实心的封闭图形（圆、矩形、三角形等等）的填充色