vb6.0怎么設置彈窗倒計時器效果?
百度經(jīng)驗 發(fā)布時間:2018-08-31 16:48:41 作者:年糕飄香
我要評論

vb6.0怎么設置彈窗倒計時器效果?vb6.0中想要制作一個倒計時的效果,該怎么制作倒計時呢?下面我們就來看看詳細的教程,需要的朋友可以參考下
VB6.0中想要制作一個多功能彈窗倒計時器,該怎么制作呢?下面我們就來看看詳細的教程。
1、打開vb6,創(chuàng)建一個標準EXE。
2、添加1個時鐘組件,Enbled設定為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ù)關注腳本之家。
相關推薦:
相關文章
- VB6.0一串數(shù)字怎么拆分成單個數(shù)字?VB6.0表格中輸入的一串數(shù)字想要拆分成單個的數(shù)字,該怎么拆分呢?下面我們就來看看詳細的教程,需要的朋友可以參考下2018-07-30
- VB6.0標簽框怎么使用?VB6.0中想要使用標簽框,該怎么使用呢?下面我們就來看看詳細的教程,很簡單,需要的朋友可以參考下2018-06-25
- VB6.0怎么編寫一個加法計算器?VB6.0中想要制作一個加法計算器,該怎么制作呢?下面我們就來看看詳細的教程,需要的朋友可以參考下2018-06-06
- VB6.0中有哪些控件?該怎么使用這些控件呢?下面我們就來看看VB6.0基本控件介紹與使用方法,很基礎的教程,需要的朋友可以參考下2018-06-05
- VB6.0怎么調用帶參數(shù)的DLL?VB6.0中想要調用dll文件,該怎么調用帶參數(shù)的dell文件,下面我們就來看看詳細的教程,需要的朋友可以參考下2018-05-23
- VB6.0怎么設置字體格式?VB6.0中默認的字體太小,想要調整字體的大小,該怎么調整呢?下面我們就來看看vb6.0設置字體大小的教程,需要的朋友可以參考下2018-04-24
vb6怎么判斷word文件是否打開? vb6判斷文件能否打開的教程
vb6怎么判斷word文件是否打開?vb6中想要制作一個判斷文件能否打開的程序,該怎么制作呢?今天我們就來看看vb6判斷word文件是否打開的教程,需要的朋友可以參考下2018-04-23vb6.0怎么制作一個抽獎小程序? vb6.0抽獎器的制作方法
vb6.0怎么制作一個抽獎小程?vb6.0中想要設計一個抽獎的小程序,該怎么制作隨機抽獎器呢?下面我們就來看看vb6.0抽獎器的制作方法,需要的朋友可以參考下2018-01-14