vb6.0怎么設(shè)置彈窗倒計時器效果?
百度經(jīng)驗 發(fā)布時間：2018-08-31 16:48:41 作者：年糕飄香 
我要評論
我要評論vb6.0怎么設(shè)置彈窗倒計時器效果？vb6.0中想要制作一個倒計時的效果，該怎么制作倒計時呢？下面我們就來看看詳細(xì)的教程，需要的朋友可以參考下
VB6.0中想要制作一個多功能彈窗倒計時器，該怎么制作呢？下面我們就來看看詳細(xì)的教程。
1、打開vb6，創(chuàng)建一個標(biāo)準(zhǔn)EXE。
2、添加1個時鐘組件，Enbled設(shè)定為False。
3、添加3個文字組件。
4、添加4個按鈕組件。
5、添加1個Frame組件。
6、添加3個文字組件、3個Text組件和3個按鈕組件。
7、雙擊窗體打開程序窗，輸入：
Private Sub Command3_Click() L1.Caption = 300 Timer1.Enabled = True End Sub Private Sub Command4_Click() L1.Caption = 600 Timer1.Enabled = True End Sub Private Sub Command5_Click() Timer1.Enabled = True End Sub Private Sub Command6_Click() Text3.Text = Text2.Text * 60 Text2.Text = " " End Sub Private Sub Command7_Click() Text4.Text = Text3.Text * 60 Text3.Text = " " End Sub Private Sub Command8_Click() L1.Caption = Text4.Text Text4.Text = " " Timer1.Enabled = True End Sub Private Sub Form_Load() End Sub Private Sub Timer1_Timer() L1.Caption = Val(L1.Caption) - 1 If L1.Caption < 1 Then MsgBox "時間到" Timer1.Enabled = False Unload Me End If End Sub
以上就是vb6.0制作倒計時效果的教程，希望大家喜歡，請繼續(xù)關(guān)注腳本之家。
相關(guān)推薦：
相關(guān)文章
VB6.0一串?dāng)?shù)字怎么拆分成單個數(shù)字?
VB6.0一串?dāng)?shù)字怎么拆分成單個數(shù)字？VB6.0表格中輸入的一串?dāng)?shù)字想要拆分成單個的數(shù)字，該怎么拆分呢？下面我們就來看看詳細(xì)的教程，需要的朋友可以參考下2018-07-30
VB6.0標(biāo)簽框怎么使用？VB6.0中想要使用標(biāo)簽框，該怎么使用呢？下面我們就來看看詳細(xì)的教程，很簡單，需要的朋友可以參考下2018-06-25
VB6.0怎么編寫一個加法計算器？VB6.0中想要制作一個加法計算器，該怎么制作呢？下面我們就來看看詳細(xì)的教程，需要的朋友可以參考下2018-06-06
VB6.0中有哪些控件？該怎么使用這些控件呢？下面我們就來看看VB6.0基本控件介紹與使用方法，很基礎(chǔ)的教程，需要的朋友可以參考下2018-06-05
VB6.0怎么調(diào)用帶參數(shù)的DLL？VB6.0中想要調(diào)用dll文件，該怎么調(diào)用帶參數(shù)的dell文件，下面我們就來看看詳細(xì)的教程，需要的朋友可以參考下2018-05-23
VB6.0怎么設(shè)置字體格式? vb6.0設(shè)置字體大小的教程
VB6.0怎么設(shè)置字體格式？VB6.0中默認(rèn)的字體太小，想要調(diào)整字體的大小，該怎么調(diào)整呢？下面我們就來看看vb6.0設(shè)置字體大小的教程，需要的朋友可以參考下2018-04-24
vb6怎么判斷word文件是否打開? vb6判斷文件能否打開的教程
vb6怎么判斷word文件是否打開？vb6中想要制作一個判斷文件能否打開的程序，該怎么制作呢？今天我們就來看看vb6判斷word文件是否打開的教程，需要的朋友可以參考下2018-04-23
vb6.0怎么制作一個抽獎小程序? vb6.0抽獎器的制作方法
vb6.0怎么制作一個抽獎小程？vb6.0中想要設(shè)計一個抽獎的小程序，該怎么制作隨機抽獎器呢？下面我們就來看看vb6.0抽獎器的制作方法，需要的朋友可以參考下2018-01-14
