锐客网

  1. 首页 > 睿知 > it技术 > >

关于vb.net画实心圆的信息

IT技术绘制

vb 中 pset (500,800) 这个点，在vb.net中怎么写，求代码，谢谢在VB.NET用绘制实心圆来完成：
下面代码是用黑色在PictureBox1控件上vb.net画实心圆 ， '绘制一个实心圆vb.net画实心圆 ， 该圆在：直线x=200，y=200 ， x=200 4，y=200 4所划vb.net画实心圆的矩形区域内 。
PictureBox1.CreateGraphics.FillEllipse(Brushes.Black, 200, 200, 4, 4)
绘制空心圆代码如下：
PictureBox1.CreateGraphics.DrawEllipse(Pens.Black, 200, 300, 4, 4)
注意：当最后两个数值不一样时，绘制椭圆 。
在VB.Net中如何画实心的圆在PictureBox1上画红色的实心圆：
Private Sub DrawCircle(ByVal cp As Point, ByVal radius As Integer, ByVal color As Brush)
Dim gr As Graphics
gr = PictureBox1.CreateGraphics
【关于vb.net画实心圆的信息】Dim rect As Rectangle = New Rectangle(cp.X - radius, cp.Y - radius, 2 * radius, 2 * radius)
gr.DrawEllipse(Pens.Black, rect)
gr.FillEllipse(color, rect)
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
DrawCircle(New Point(120, 100), 80, Brushes.Red)
End Sub
如何用VB.NET画同心圆窗体上添加一个按钮，在该按钮的单击事件里编写代码如下：
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'声明窗体的Me.CreateGraphics对象
Dim MyGraphics As Graphics = Me.CreateGraphics
Dim Cx As Integer = 150'圆心的X坐标
Dim Cy As Integer = 150'圆心的Y坐标
Dim R As Integer'圆的半径
'绘制半径为R的圆
For R = 5 To 100 Step 5
MyGraphics.DrawEllipse(Pens.Black, New Rectangle(Cx - R, Cy - R, 2 * R, 2 * R))
Next
End Sub
‘用黑色画笔绘制一组同心圆，半径从5开始，增量为5 。
说明：
DrawEllipse是VB.Net的Graphics类的绘制椭圆的方法；他有几种格式，上面使用的是一种；
DrawEllipse（画笔的颜色 ， 绘制椭圆所需要的矩形区域）
其中：绘制椭圆所需要的矩形区域，如果被定义为正方形，就演变成绘制圆，定义该区域由死个数值确定，第1个数值，确定该区域左上角的X坐标，第2个数值，确定该区域左上角的Y坐标，第3个数值 ， 确定该区域的宽度 ， 第4个数值，确定该区域的高度 。
例如1：
DrawEllipse(Pens.Black, New Rectangle(150, 150, 50, 50))
就是以圆心坐标为（100,100） ， 绘制半径为50 的圆 。其实在VB.NET中，是告诉系统在以左上角坐标（150,150） ， 边长为50的正方形里绘制内切圆 。理解了是在正方形里绘制内切圆 ， 就可以通过数学计算 ， 知道如何绘制了 。
同理例如2：
DrawEllipse(Pens.Black, New Rectangle(150, 150, 100, 50))
就是以圆心坐标为（100,100），绘制半径为50 的圆 。其实在VB.NET中，是告诉系统在以左上角坐标（150,150），长轴为100 ， 短轴为50的内切椭圆 。
vb.net画实心圆的介绍就聊到这里吧，感谢你花时间阅读本站内容 ， 更多关于、vb.net画实心圆的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：三角形问题代码java，java编写三角形类

    下一篇：用sqlserver修改数据库密码，sql server如何修改密码