vb.net判定区域 vb判断

提示：扫一扫查出行
【扫一扫了解最新限行尾号】
复制提示

VB.net 中如何判断一个圆和一个矩形相交

建立新窗体，新建timer控件，间隔随意，运行即可，输入以下代码，可以充分看到你要的效果

Dim yuanxin As New Point(50, 50) '圆心

Dim zhijing As Long = 100 '直径，其实里面用的多的是半径，但你说是直径，我就用直径

Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint

e.Graphics.Clear(Color.Beige) '刷除底色

Dim myRect As New RectangleF(150, 80, 100, 100) '建立矩形

e.Graphics.DrawRectangle(Pens.Red, Rectangle.Round(myRect)) '画出矩形

Dim p As System.Drawing.Drawing2D.GraphicsPath = New System.Drawing.Drawing2D.GraphicsPath() '新建路径

p.AddEllipse(yuanxin.X - zhijing \ 2, yuanxin.Y - zhijing \ 2, zhijing, zhijing) '向当前路径增加椭圆，里面的运算是把圆心转换为圆形外切矩形的左上角坐标以及这个矩形的宽和高，在本例中宽高即为圆形的直径

e.Graphics.DrawPath(Pens.Black, p) '在窗体上画出椭圆(本例中是圆形)

Dim myRegion As New [Region](p) '根据椭圆建立区域

Dim contained As Boolean = myRegion.IsVisible(myRect) '判断区域是否相交

Dim myFont As New Font("Arial", 8)

Dim myBrush As New SolidBrush(Color.Black)

e.Graphics.DrawString("相交 = " contained.ToString(), myFont, myBrush, New PointF(20, 260)) '输出结果

End Sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

yuanxin.X += 1

Me.Refresh()

End Sub