學(xué)習(xí)一下后臺線程,
成都創(chuàng)新互聯(lián)公司是一家集網(wǎng)站建設(shè),淅川企業(yè)網(wǎng)站建設(shè),淅川品牌網(wǎng)站建設(shè),網(wǎng)站定制,淅川網(wǎng)站建設(shè)報價,網(wǎng)絡(luò)營銷,網(wǎng)絡(luò)優(yōu)化,淅川網(wǎng)站推廣為一體的創(chuàng)新建站企業(yè),幫助傳統(tǒng)企業(yè)提升企業(yè)形象加強企業(yè)競爭力??沙浞譂M足這一群體相比中小企業(yè)更為豐富、高端、多元的互聯(lián)網(wǎng)需求。同時我們時刻保持專業(yè)、時尚、前沿,時刻以成就客戶成長自我,堅持不斷學(xué)習(xí)、思考、沉淀、凈化自己,讓我們?yōu)楦嗟钠髽I(yè)打造出實用型網(wǎng)站。
看一下3個timer類,
實在想簡單,就在UI線程里用timer控件去實現(xiàn)
它在System.Threading命名空間的Thread類中定義了
直接用 System.Threading.Thread.Sleep()方法
System.Threading.Thread.Sleep(time )‘time為整數(shù),單位毫秒
暫停,就是除恢復(fù)外所有操作都無效,你可以用一變量來控制,不需掛起。
sleep 是一個非常簡單的api語句,作用是"延時"
聲明語句如下:
Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
調(diào)用方法:
sleep 5000 '表示延時5秒,
在VB.NET中,帶框架窗體的大小是不能為0的,要想做到高、寬都為0,需要自己重繪一個無邊框窗體,用外置圖片來繪制,配合PS做一些圖片,既可以換膚還能做的很漂亮。
按當(dāng)前代碼修改,你把下面的代碼粘回去就可以了,窗體的高和寬達到最小時,循環(huán)會自己退出,避免無限循環(huán);
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