VB.NET我要用鼠标轨迹画一个矩形框 然后选中控件 。就像星际和魔兽争霸里对部队单位的选中一样~等大神回答这个类继承自Panelvb.net绘制矩形，把它加到你的项目里面vb.net绘制矩形，先运行一下vb.net绘制矩形，然后从工具箱里把它拖到窗体上，然后再向里面添加其它控件就可以了，支持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.Width1, c.Height1)
Next
If (down.X0) Then e.Graphics.DrawRectangle(New Pen(Color.Gray) With {.DashStyle = Drawing2D.DashStyle.DashDot}, rect)
End Sub
End Class
VB.NET利用visio进行2次开发，怎么设置定义出的矩形的属性？怎么画线段？你可通过录制宏来查看代码是怎么写的 ， 去年我写过一段时间的visio，都是这么弄出来的 。
在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.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绘制矩形 vb画矩形程序代码】vb.net绘制矩形的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb画矩形程序代码、vb.net绘制矩形的信息别忘了在本站进行查找喔 。
推荐阅读
- 怎么在公众号配音乐赚钱，怎么给公众号配音乐
- 打印机服务器脱机，打印机服务器脱机状态怎么恢复正常打印
- 高性能韩国服务器设置教程，韩国服务器英文怎么说
- java内嵌浏览器代码 java如何在浏览器上运行
- linux命令查看编码，linux如何查看编码
- 卡丁车自由射击游戏下载，卡丁车游戏在线玩
- excel下拉规则怎么改，EXcel下拉怎么取消
- oracle如何sid oracle如何创建表空间
- .net框架c教材，net框架技术包含内容