一个在VB.net中画圆的程序
2018-03-07 21:11
246 查看
本文实现了在VB.net中画圆的操作,代码供参考:
Imports System.Drawing ''首先引入命名空间
'----------------窗口1的类---------------
Public Class Form1
'画圆子函数
Private Sub DrawCircle(ByVal cp As Point, ByVal radius As Integer, ByVal color As Brush)
Dim gr As Graphics
gr = Me.CreateGraphics
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
''在本类其他子程序里面参数改下,调用以下指令就可以画圆了
''DrawCircle(New Point(300 , 15 ), 10, Brushes.Green)
End Class
''长期提供单片机、电路板、工控、自动化、机电液、软件EXE、APP开发项目和产品设计开发服务。
''(QQ2531263726)
Imports System.Drawing ''首先引入命名空间
'----------------窗口1的类---------------
Public Class Form1
'画圆子函数
Private Sub DrawCircle(ByVal cp As Point, ByVal radius As Integer, ByVal color As Brush)
Dim gr As Graphics
gr = Me.CreateGraphics
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
''在本类其他子程序里面参数改下,调用以下指令就可以画圆了
''DrawCircle(New Point(300 , 15 ), 10, Brushes.Green)
End Class
''长期提供单片机、电路板、工控、自动化、机电液、软件EXE、APP开发项目和产品设计开发服务。
''(QQ2531263726)
相关文章推荐
- 正在准备写一个OpenGL的VB.Net程序
- 使用进程互斥实现WinForm程序只运行一个实例(VB.Net)
- [VB.NET]谁能帮我用验证国内电话号码的正则表达式写一个验证程序啊?
- 使用进程互斥实现WinForm程序只运行一个实例(VB.Net)
- [VB.NET]怎样才能用VB.NET的代码来关闭一个在运行的程序?????
- C#程序转为VB.NET程序的一个小问题
- 防止同一个程序多次运行。 [VB.NET]
- VB.Net查找程序的前一个运行结果
- VB.NET制作外接程序的一个示例
- [VB.NET]如何把一个c#程序转变为VB.NET
- 一个VB(Net)程序的思考
- [VB.NET]忽然想写一个空间三点定位的程序
- VB.Net查找程序的前一个运行结果
- [VB.NET]在VB.NET开发程序时,如何制做一个欢迎界面?
- 我与VB.net再次重逢,最简单的一个小程序
- 一个简单的下载程序VB.NET示例
- 一个自动把Visual Studio.NET的C#,VB.NET,VC++project工程转为NAnt Build的小程序(利用XSL)
- 一个简单的VB.net程序
- 防止同一个程序多次运行。 [VB.NET]
- [VB.NET]如何在vb。net中打开一个excel表 并获取数据阿