网站结构化数据,网络营销策划案怎么写,设计师常用的灵感网站,可以做点赞的网站前言 这是基于我之前的一篇博文#xff1a; 使用visual Studio 2019在VB.net中新添自定义画图函数 在此基础上#xff0c;我优化了一下#xff0c;改进了UI#xff0c;添加了示例功能#xff0c;即以画圆函数为基础#xff0c;添加了走马灯功能。 先看一下最终效果#…前言 这是基于我之前的一篇博文 使用visual Studio 2019在VB.net中新添自定义画图函数 在此基础上我优化了一下改进了UI添加了示例功能即以画圆函数为基础添加了走马灯功能。 先看一下最终效果
1、UI布置 首先大致布局一下窗体控件 VB.net的窗体布局很简单当然同时效果也就那样如果要UI美观需要自己设计一下包括配色以及图片。 但本文不涉及UI美化可能会在以后单独介绍。
2、画圆函数 summary 在PictureBox中画一个圆 /summary param namep/param param namec/paramPrivate Sub huayuan(p As PictureBox, c As Color)Dim b As Bitmap New Bitmap(p.Width, p.Height)Dim g As Graphics Graphics.FromImage(b)Dim mybrush As New SolidBrush(c)g.FillEllipse(mybrush, 0, 0, p.Width, p.Height)g.Dispose()p.Image bEnd Sub画圆函数还是和之前一样稍微解释下 自定义的huayuan函数有两个参数一个是PictureBox实例一个是颜色。 函数内使用bitmap绘制圆形并填充色块即我们所需的圆形然后将bitmap作为image赋予PictureBox的图片属性。 这样我们就在图片框中画了一个圆形。
3、走马灯 如上图我们一共添加了8个PictureBox用于实现走马灯即8个图片框按顺序点亮由灰色变为红色。实现这个功能有多种方式本文选择的是利用定时器来实现。 所以我们需要在窗体添加一个Timer控件。 在VB.net中Timer控件是系统工具箱自带的可以直接拖到窗体上。 Timer的使用也很简单设置一下其定时间隔
Timer1.Interval NumericUpDown1.Value 本文中Timer的间隔可以自定义设置单位为毫秒。 Timer设置了时间间隔后直接调用start定时器就启动了每间隔一次就会触发Tick事件我们可以在这个Tick事件里去编写我们的逻辑本文中就是利用画圆函数给PictureBox轮流画圆。
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tickx 1Console.WriteLine(x)If x 8 And flag ThenButton1.Enabled FalseMove_led(x, 1)ElseButton1.Enabled TrueButton2.Enabled FalseButton3.Enabled Falsex 0Label12.Text 0Label14.Text 停止中走马灯完成后恢复初始状态init_led()Timer1.Stop()flag FalseEnd IfEnd Sub其中调用的Move_led函数如下 summary 走马灯程序 为了防止循环阻塞主线程可以添加异步方式 /summaryPrivate Sub Move_led(count As Integer, timedelay As Integer)Label12.Text count.ToString()For j As Integer 1 To 8 Step 1Dim str11 x count.ToString() j j.ToString()Console.WriteLine(str11)Dim pic1 As PictureBox Me.Controls(PictureBox j)Console.WriteLine(pic1.Name)If j count Thenhuayuan(pic1, Color.Red)Elsehuayuan(pic1, Color.Gray)End If添加异步等待时间Await Task.Delay(1)Next添加异步等待时间Await Task.Delay(timedelay)End Sub这里的大致逻辑就是设置一个计数在定时器的Tick事件里每次都判断计数的大小如果小于8就根据计数值执行画圆函数当然此处又有一个判断函数Move_led用于对8个图片框分别画圆。执行完后对计数值加1然后等待下次定时器触发再判断直到计数值大于8也就是走马灯结束那么就恢复初始值。
以下是完整代码 控件说明 Form1 Button3 Label14 PictureBox8 NumericUpDown1
Imports System.Threading.Thread
Public Class Form1Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.LoadMe.Text 走马灯演示Me.Size New Size(600, 400)Me.Location New Point(100, 40)NumericUpDown1.Value 100最长间隔100000ms100sNumericUpDown1.Maximum 100000最短间隔10ms0.01sNumericUpDown1.Minimum 10Timer1.Interval 100Label12.Text 0Label14.Text 无Button2.Enabled FalseButton3.Enabled Falseinit_led()End SubPrivate Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.ClickTimer1.Interval NumericUpDown1.ValueTimer1.Start()flag TrueLabel14.Text 运行中Button1.Enabled FalseButton2.Enabled TrueButton3.Enabled FalseEnd SubPrivate Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.ClickTimer1.Stop()flag FalseButton1.Enabled TrueLabel14.Text 停止中Button1.Enabled TrueButton2.Enabled FalseButton3.Enabled TrueEnd SubPrivate Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.ClickTimer1.Stop()flag Falsex 0Label14.Text 无Label12.Text 0Button1.Enabled TrueButton2.Enabled FalseButton3.Enabled FalseFor i As Integer 1 To 8 Step 1Dim pic1 Me.Controls(PictureBox i)huayuan(pic1, Color.Gray)NextEnd SubDim x As Integer 0Dim flag As Boolean FalsePrivate Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tickx 1Console.WriteLine(x)If x 8 And flag ThenButton1.Enabled FalseMove_led(x, 1)ElseButton1.Enabled TrueButton2.Enabled FalseButton3.Enabled Falsex 0Label12.Text 0Label14.Text 停止中走马灯完成后恢复初始状态init_led()Timer1.Stop()flag FalseEnd IfEnd Sub summary 初始化参数 /summaryPrivate Sub init_led()统一为Label赋值For i As Integer 1 To 8 Step 1Me.Controls(Label i).Text 灯 iDim pic1 Me.Controls(PictureBox i)huayuan(pic1, Color.Gray)Console.WriteLine(pic1.Name)NextEnd Sub summary 走马灯程序 为了防止循环阻塞主线程可以添加异步方式 /summaryPrivate Sub Move_led(count As Integer, timedelay As Integer)Label12.Text count.ToString()For j As Integer 1 To 8 Step 1Dim str11 x count.ToString() j j.ToString()Console.WriteLine(str11)Dim pic1 As PictureBox Me.Controls(PictureBox j)Console.WriteLine(pic1.Name)If j count Thenhuayuan(pic1, Color.Red)Elsehuayuan(pic1, Color.Gray)End If添加异步等待时间Await Task.Delay(1)Next添加异步等待时间Await Task.Delay(timedelay)End Sub summary 在PictureBox中画一个圆 /summary param namep/param param namec/paramPrivate Sub huayuan(p As PictureBox, c As Color)Dim b As Bitmap New Bitmap(p.Width, p.Height)Dim g As Graphics Graphics.FromImage(b)Dim mybrush As New SolidBrush(c)g.FillEllipse(mybrush, 0, 0, p.Width, p.Height)g.Dispose()p.Image bEnd SubEnd Class
注事实上本文虽然介绍的是画圆但可以扩展到任意图形的绘制只需要对huayuan函数作一些修改即可。我在之前的那篇文章里也说过本文实际是用于工控行业的上位机编写的一部分单独列出来一是方便作个记录以便于后来查看二是如果有这方面需求的朋友假如能够帮助到你那么也是非常好的。
