欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

vb6.0怎么設(shè)置彈窗倒計(jì)時(shí)器效果?

百度經(jīng)驗(yàn)   發(fā)布時(shí)間：2018-08-31 16:48:41   作者：年糕飄香   我要評(píng)論
vb6.0怎么設(shè)置彈窗倒計(jì)時(shí)器效果？vb6.0中想要制作一個(gè)倒計(jì)時(shí)的效果，該怎么制作倒計(jì)時(shí)呢？下面我們就來(lái)看看詳細(xì)的教程，需要的朋友可以參考下

VB6.0中想要制作一個(gè)多功能彈窗倒計(jì)時(shí)器，該怎么制作呢？下面我們就來(lái)看看詳細(xì)的教程。

1、打開(kāi)vb6，創(chuàng)建一個(gè)標(biāo)準(zhǔn)EXE。

2、添加1個(gè)時(shí)鐘組件，Enbled設(shè)定為False。

3、添加3個(gè)文字組件。

4、添加4個(gè)按鈕組件。

5、添加1個(gè)Frame組件。

6、添加3個(gè)文字組件、3個(gè)Text組件和3個(gè)按鈕組件。

7、雙擊窗體打開(kāi)程序窗，輸入：

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 "時(shí)間到"
Timer1.Enabled = False
Unload Me
End If
End Sub

以上就是vb6.0制作倒計(jì)時(shí)效果的教程，希望大家喜歡，請(qǐng)繼續(xù)關(guān)注腳本之家。

相關(guān)推薦：

VB6.0怎么使用圖片框?

VB6.0怎么快速批量刪除txt內(nèi)容?

相關(guān)文章

  • VB6.0一串?dāng)?shù)字怎么拆分成單個(gè)數(shù)字?

    VB6.0一串?dāng)?shù)字怎么拆分成單個(gè)數(shù)字？VB6.0表格中輸入的一串?dāng)?shù)字想要拆分成單個(gè)的數(shù)字，該怎么拆分呢？下面我們就來(lái)看看詳細(xì)的教程，需要的朋友可以參考下
    2018-07-30

  • VB6.0標(biāo)簽框怎么使用?

    VB6.0標(biāo)簽框怎么使用？VB6.0中想要使用標(biāo)簽框，該怎么使用呢？下面我們就來(lái)看看詳細(xì)的教程，很簡(jiǎn)單，需要的朋友可以參考下
    2018-06-25

  • VB6.0怎么編寫一個(gè)加法計(jì)算器?

    VB6.0怎么編寫一個(gè)加法計(jì)算器？VB6.0中想要制作一個(gè)加法計(jì)算器，該怎么制作呢？下面我們就來(lái)看看詳細(xì)的教程，需要的朋友可以參考下
    2018-06-06

  • VB6.0基本控件介紹與使用方法

    VB6.0中有哪些控件？該怎么使用這些控件呢？下面我們就來(lái)看看VB6.0基本控件介紹與使用方法，很基礎(chǔ)的教程，需要的朋友可以參考下
    2018-06-05

  • VB6.0怎么調(diào)用帶參數(shù)的DLL?

    VB6.0怎么調(diào)用帶參數(shù)的DLL？VB6.0中想要調(diào)用dll文件，該怎么調(diào)用帶參數(shù)的dell文件，下面我們就來(lái)看看詳細(xì)的教程，需要的朋友可以參考下
    2018-05-23

  • VB6.0怎么設(shè)置字體格式? vb6.0設(shè)置字體大小的教程

    VB6.0怎么設(shè)置字體格式？VB6.0中默認(rèn)的字體太小，想要調(diào)整字體的大小，該怎么調(diào)整呢？下面我們就來(lái)看看vb6.0設(shè)置字體大小的教程，需要的朋友可以參考下
    2018-04-24

  • vb6怎么判斷word文件是否打開(kāi)? vb6判斷文件能否打開(kāi)的教程

    vb6怎么判斷word文件是否打開(kāi)？vb6中想要制作一個(gè)判斷文件能否打開(kāi)的程序，該怎么制作呢？今天我們就來(lái)看看vb6判斷word文件是否打開(kāi)的教程，需要的朋友可以參考下
    2018-04-23

  • vb6.0怎么制作一個(gè)抽獎(jiǎng)小程序? vb6.0抽獎(jiǎng)器的制作方法

    vb6.0怎么制作一個(gè)抽獎(jiǎng)小程？vb6.0中想要設(shè)計(jì)一個(gè)抽獎(jiǎng)的小程序，該怎么制作隨機(jī)抽獎(jiǎng)器呢？下面我們就來(lái)看看vb6.0抽獎(jiǎng)器的制作方法，需要的朋友可以參考下
    2018-01-14

最新評(píng)論