VB6.0中想要制作一個多功能彈窗倒計時器,該怎么制作呢?下面我們就來看看詳細的教程。
1、打開vb6,創建一個標準EXE。
2、添加1個時鐘組件,Enbled設定為False。
3、添加3個文字組件。
4、添加4個按鈕組件。
5、添加1個Frame組件。
6、添加3個文字組件、3個Text組件和3個按鈕組件。
7、雙擊窗體打開程序窗,輸入:
Private Sub Command3_Click()L1.Caption = 300Timer1.Enabled = TrueEnd SubPrivate Sub Command4_Click()L1.Caption = 600Timer1.Enabled = TrueEnd SubPrivate Sub Command5_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Command6_Click()Text3.Text = Text2.Text * 60Text2.Text = " "End SubPrivate Sub Command7_Click()Text4.Text = Text3.Text * 60Text3.Text = " "End SubPrivate Sub Command8_Click()L1.Caption = Text4.TextText4.Text = " "Timer1.Enabled = TrueEnd SubPrivate Sub Form_Load()End SubPrivate Sub Timer1_Timer()L1.Caption = Val(L1.Caption) - 1If L1.Caption < 1 ThenMsgBox "時間到"Timer1.Enabled = FalseUnload MeEnd IfEnd Sub
以上就是vb6.0制作倒計時效果的教程,希望大家喜歡,請繼續關注武林網。
相關推薦:
VB6.0怎么使用圖片框?
VB6.0怎么快速批量刪除txt內容?
新聞熱點
疑難解答
圖片精選