大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
学习一下后台线程,
成都创新互联公司是一家集网站建设,淅川企业网站建设,淅川品牌网站建设,网站定制,淅川网站建设报价,网络营销,网络优化,淅川网站推广为一体的创新建站企业,帮助传统企业提升企业形象加强企业竞争力。可充分满足这一群体相比中小企业更为丰富、高端、多元的互联网需求。同时我们时刻保持专业、时尚、前沿,时刻以成就客户成长自我,坚持不断学习、思考、沉淀、净化自己,让我们为更多的企业打造出实用型网站。
看一下3个timer类,
实在想简单,就在UI线程里用timer控件去实现
它在System.Threading命名空间的Thread类中定义了
直接用 System.Threading.Thread.Sleep()方法
System.Threading.Thread.Sleep(time )‘time为整数,单位毫秒
暂停,就是除恢复外所有操作都无效,你可以用一变量来控制,不需挂起。
sleep 是一个非常简单的api语句,作用是"延时"
声明语句如下:
Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
调用方法:
sleep 5000 '表示延时5秒,
在VB.NET中,带框架窗体的大小是不能为0的,要想做到高、宽都为0,需要自己重绘一个无边框窗体,用外置图片来绘制,配合PS做一些图片,既可以换肤还能做的很漂亮。
按当前代码修改,你把下面的代码粘回去就可以了,窗体的高和宽达到最小时,循环会自己退出,避免无限循环;
Select Case 2
Case Is = 1
Dim w As Integer = Me.Width
Do
Me.Width -= 5 : w -= 5
Threading.Thread.Sleep(3)
Loop While Me.Width = w
Case Is = 2
Dim h As Integer = Me.Height
Do
Me.Height -= 5 : h -= 5
Threading.Thread.Sleep(3)
Loop While Me.Height = h
Case Is = 3
Do
Me.Opacity -= 0.05
Threading.Thread.Sleep(120)
Loop Until Me.Opacity = 0
End Select