可以利用Timer時鐘控件實現,這樣做的好處是無需等待,釋放CPU時間去做別的事
專業領域包括成都網站制作、成都做網站、外貿營銷網站建設、商城開發、微信營銷、系統平臺開發, 與其他網站設計及系統開發公司不同,創新互聯的整合解決方案結合了幫做網絡品牌建設經驗和互聯網整合營銷的理念,并將策略和執行緊密結合,為客戶提供全網互聯網整合方案。
'在窗體上添加一個按鈕測試
Private
m_PlayFlag
As
Boolean
=
False
'是否正在播放
Private
Sub
Button1_Click(ByVal
sender
As
System.Object,
ByVal
e
As
System.EventArgs)
Handles
Button1.Click
If
m_PlayFlag
=
False
Then
Button1.Image
=
Image.FromFile("d:\play.jpg")
'更換為播放圖標
m_PlayFlag
=
True
'改變標志
Else
Button1.Image
=
Image.FromFile("d:\pause.jpg")
'更換為暫停圖標
m_PlayFlag
=
False
'改變標志
End
If
End
Sub
Private
Sub
Form1_Load(ByVal
sender
As
System.Object,
ByVal
e
As
System.EventArgs)
Handles
MyBase.Load
'窗體加載時使用暫停圖標
Button1.Image
=
Image.FromFile("d:\pause.jpg")
End
Sub
新建timer控件,在timer控件的事件處理中加入移動方塊的代碼
然后在keydown的事件處理中使timer的enabled變為有效
在keyup的事件處理中使timer的enabled變為無效
控制timer控件的interval就可以改變方塊移動的速度
當前文章:vb.net按鍵停頓 vbs 按鍵
鏈接URL:http://vcdvsql.cn/article42/dopeeec.html
成都網站建設公司_創新互聯,為您提供商城網站、網頁設計公司、全網營銷推廣、用戶體驗、網站制作、網站內鏈
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯