龙空技术网

vb.net中画圆和矩形的方法

沙鸥笔记 337

前言:

而今大家对“vbnet大于等于小于”大约比较讲究,同学们都想要学习一些“vbnet大于等于小于”的相关知识。那么小编也在网络上搜集了一些关于“vbnet大于等于小于””的相关文章,希望小伙伴们能喜欢,小伙伴们一起来学习一下吧!

那天笔者在做项目写软件的时候,遇见了一个需要:要做一个报警指示灯,接收串口发送来的数据,当数据大于报警阈值时亮红灯,小于报警阈值时亮绿灯。那就需要在软件界面窗体画一个圆圈,并在圆圈里面填充相应的颜色,然后笔者在网上查阅了大量资料,试了很多代码,一个不行再试另一个,万千尝试,终于找到了在VB.NET中画圆圈圈的代码指令,经过实践成功分享给大家。

以下实现了在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.Red)

End Class

同样地,顺便把在VB.NET中画矩形的代码分享一下。

Imports System.Drawing ''引入命名空间

'----------------窗口1的类---------------

Public Class Form1

'画矩形子函数

Private Sub DrawRectangleInt(ByVal X As Integer, ByVal Y As Integer, ByVal W As Integer, ByVal H As Integer, ByVal color As Brush)

Dim bggriphic As Graphics

Dim RC As Rectangle

bggriphic = Me.CreateGraphics

RC.X = X

RC.Y = Y

RC.Width = W

RC.Height = H

'bggriphic.DrawRectangle(Pens.Black, RC) ''画边框

bggriphic.FillRectangle(color, RC) ''填充

End Sub

''在本类其他子程序里面参数改下,调用以下指令就可以画矩形了

'' DrawRectangleInt(0, 0, 100, 100, Brushes.Black)

End Class

标签: #vbnet大于等于小于 #vbnet什么是类