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的画矩形图问题

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

Q2: 请教如何在VB中画一个填充有颜色的矩形（详细一点）

使用Line 方法

在对象上画直线和矩形。

语法

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

Line 方法的语法有以下对象限定符和部分：

部分 描述

object 可选的。 对象表达式，其值为“应用于”列表中的对象。如果object 省略，具有焦点的窗体作为object。

Step 可选的。关键字，指定起点坐标，它们相对于由 CurrentX 和 CurrentY 属性提供的当前图形位置。

(x1, y1) 可选的。Single （单精度浮点数），直线或矩形的起点坐标。ScaleMode 属性决定了使用的度量单位。如果省略，线起始于由 CurrentX 和 CurrentY 指示的位置。

Step 可选的。关键字，指定相对于线的起点的终点坐标。

(x2, y2) 必需的。Single （单精度浮点数），直线或矩形的终点坐标。

color 可选的。Long （长整型数），画线时用的 RGB 颜色。如果它被省略，则使用 ForeColor 属性值。可用 RGB 函数或 QBColor 函数指定颜色。

B 可选的。如果包括，则利用对角坐标画出矩形。

F 可选的。如果使用了 B 选项，则 F 选项规定矩形以矩形边框的颜色填充。不能不用 B 而用 F。如果不用 F 光用 B，则矩形用当前的 FillColor 和 FillStyle 填充。FillStyle 的缺省值为 transparent。

例：

Private Sub Form_Load()

Me.AutoRedraw = True

Line (100, 100)-(2100, 2100), vbBlue, BF

End Sub

Q3: VB.NET我要用鼠标轨迹画一个矩形框 然后选中控件。就像星际和魔兽争霸里对部队单位的选中一样~等大神回答

这个类继承自Panel，把它加到你的项目里面，先运行一下，然后从工具箱里把它拖到窗体上，然后再向里面添加其它控件就可以了，支持Shift加选，Alt减选

Imports System.Linq

Imports System.Collections

Public Class MyPanel

    Inherits Panel

    ' 选择模式，相交还是包含

    Enum SelectMode

        Intersects

        Contains

    End Enum

    Dim down As New Point(-1, -1)

    Dim rect As Rectangle

    Dim selected As New List(Of Control)

    Dim editting As IEnumerable(Of Control)

    Dim mode As SelectMode = SelectMode.Contains

    Dim shift, alt As Boolean

    Public Sub New()

        Me.DoubleBuffered = True

    End Sub

    Protected Overrides Sub OnMouseDown(e As MouseEventArgs)

        MyBase.OnMouseDown(e)

        down = e.Location

        editting = selected.ToArray().ToList()

        OnMouseMove(e)

    End Sub

    Protected Overrides Sub OnMouseMove(e As MouseEventArgs)

        MyBase.OnMouseMove(e)

        If e.Button = Windows.Forms.MouseButtons.Left Then

            Dim loc As New Point(Math.Min(down.X, e.X), Math.Min(down.Y, e.Y))

            Dim size As New Size(Math.Abs(down.X - e.X), Math.Abs(down.Y - e.Y))

            rect = New Rectangle(loc, size)

            Dim cs As New List(Of Control)

            For Each c In Controls

                cs.Add(c)

            Next

            Dim a = cs.Where(Function(n As Control) (mode = SelectMode.Contains And rect.Contains(n.Bounds)) Or (mode = SelectMode.Intersects And rect.IntersectsWith(n.Bounds)))

            If shift Then editting = a.Union(selected) Else If alt Then editting = selected.Except(a) Else editting = a

            Invalidate()

        End If

    End Sub

    Protected Overrides Sub OnMouseUp(e As MouseEventArgs)

        MyBase.OnMouseUp(e)

        down = New Point(-1, -1)

        selected = editting.ToList()

        editting = Nothing

        Invalidate()

    End Sub

    Protected Overrides Function ProcessKeyPreview(ByRef m As Message) As Boolean

        Dim KeyCode As Keys = CInt(m.WParam) And CInt(Keys.KeyCode)

        Dim d As Boolean

        If m.Msg = H100 Or m.Msg = H104 Then d = True Else If m.Msg = H101 Or m.Msg = H105 Then d = False Else Return MyBase.ProcessKeyPreview(m)

        If KeyCode = Keys.ShiftKey Then

            shift = d

        ElseIf KeyCode = Keys.Menu Then

            alt = d

        End If

        Return MyBase.ProcessKeyPreview(m)

    End Function

    Protected Overrides Sub OnPaint(e As PaintEventArgs)

        MyBase.OnPaint(e)

        For Each c As Control In IIf(editting Is Nothing, selected, editting)

            e.Graphics.DrawRectangle(New Pen(Color.Gray) With {.DashStyle = Drawing2D.DashStyle.DashDot}, c.Left - 1, c.Top - 1, c.Width + 1, c.Height + 1)

        Next

        If (down.X  0) Then e.Graphics.DrawRectangle(New Pen(Color.Gray) With {.DashStyle = Drawing2D.DashStyle.DashDot}, rect)

    End Sub

End Class

Q4: 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)

Q5: 请问如何用vb的图片框画图？要求是鼠标按下来画矩形、圆之类的图（旁边有单选按钮来选择图形）。

Dim x1 As Single, y1 As Single, s As Integer

Const pi = 3.14159265

Private Sub Form_Load()

Command1.Caption = "圆"

Command2.Caption = "矩形"

Command3.Caption = "三角"

Command4.Caption = "五角"

Command5.Caption = "清"

End Sub

Private Sub Command1_Click()

s = 1

End Sub

Private Sub Command2_Click()

s = 2

End Sub

Private Sub Command3_Click()

s = 3

End Sub

Private Sub Command4_Click()

s = 4

End Sub

Private Sub Command5_Click()

Picture1.Cls

End Sub

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)

If Button = 1 Then x1 = x: y1 = y

End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)

If Button = 1 Then

Picture1.AutoRedraw = False

Picture1.Refresh

Picture1.PSet (x1, y1)

Select Case s

Case 1

Picture1.Circle (x1, y1), Sqr((x - x1) ^ 2 + (y - y1) ^ 2)

Case 2

Picture1.Line (x1, y1)-(x, y), , B

Case 3

duobianxing x1, y1, x, y, 3, 60

Case 4

duobianxing x1, y1, x, y, 5, 36

End Select

End If

End Sub

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)

If Button = 1 Then

Picture1.AutoRedraw = True

Select Case s

Case 1

Picture1.Circle (x1, y1), Sqr((x - x1) ^ 2 + (y - y1) ^ 2)

Case 2

Picture1.Line (x1, y1)-(x, y), , B

Case 3

duobianxing x1, y1, x, y, 3, 60

Case 4

duobianxing x1, y1, x, y, 5, 36

End Select

End If

End Sub

'duobianxing函数参数vb.net画矩形图：

'zhongxinX-多边形中心vb.net画矩形图的横坐标

'zhongxinY-多边形中心vb.net画矩形图的纵坐标

'dingdianX-多边形一个顶点的横坐标

'dingdianY-多边形一个顶点的纵坐标

'bianhuoxing-正多边形的边数或者星形的星角数vb.net画矩形图，例如biaohuoxing=5,dingjiao=72则为正五边形,若dingjiao=36则为五角星(该函数将正多边形按相邻顶角点间的折点成直线的特殊星形绘制)

'dingjiao-多边形的顶角的角度(角度制°)

Function duobianxing(ByVal zhongxinX As Single, ByVal zhongxinY As Single, ByVal dingdianX As Single, ByVal dingdianY As Single, ByVal bianhuoxing As Integer, ByVal dingjiao As Single)

If bianhuoxing = 0 Then Exit Function

l = Sqr((zhongxinX - dingdianX) ^ 2 + (zhongxinY - dingdianY) ^ 2) '星形中心到顶角距离

t1 = Abs(Tan((dingjiao / 2) * pi / 180)) '星形顶角的1/2求正切

t2 = Abs(Tan((360 / (2 * bianhuoxing)) * pi / 180)) '星形每条边所对应的中心角的1/2求正切

r = l * t2 / (t1 + t2) / Cos((dingjiao / 2) * pi / 180) '星形边长

If zhongxinX = dingdianX Then '求星形中心到顶角这条线的角度j

j = IIf(dingdianY zhongxinY, 90, -90)

Else

j = Atn((zhongxinY - dingdianY) / (dingdianX - zhongxinX)) * 180 / pi

If dingdianX zhongxinX Then

If dingdianY zhongxinY Then

j = j - 180

Else

j = j + 180

End If

End If

End If

j1 = j - dingjiao / 2 '边偏离初始角1

j2 = 360 / bianhuoxing + dingjiao + j - dingjiao / 2 '边偏离初始角2(如果是正多边形j1=j2)

px1 = dingdianX: py1 = dingdianY '指定星形的第一个顶点

For i = 1 To bianhuoxing * 2

If i Mod 2 = 0 Then

px2 = px1 + r * Cos(j2 * pi / 180): py2 = py1 - r * Sin(j2 * pi / 180) '指定星形下一个顶点

j2 = j2 + 360 / bianhuoxing '边偏角+2个边长对应的中心角

Else

px2 = px1 - r * Cos(j1 * pi / 180): py2 = py1 + r * Sin(j1 * pi / 180)

j1 = j1 + 360 / bianhuoxing

End If

Picture1.Line (px1, py1)-(px2, py2) '画线

px1 = px2: py1 = py2

Next

End Function

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