a亚洲精品_精品国产91乱码一区二区三区_亚洲精品在线免费观看视频_欧美日韩亚洲国产综合_久久久久久久久久久成人_在线区

首頁 > 學院 > 編程設計 > 正文

vb6.0怎么設置彈窗倒計時器效果?

2020-07-14 13:48:22
字體:
來源:轉載
供稿:網友

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內容?

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 久草新免费| 精品国产91久久久久久久 | 精品免费在线视频 | 成人av一区二区三区 | 欧美中文一区 | 四虎黄色网 | 97色在线视频| 欧美中文字幕在线 | 另类久久 | 四虎电影网 | 毛片网站大全 | 国产精品一区二 | 狠狠操天天干 | 热99re久久免费视精品频软件 | 欧美日韩在线第一页 | 区一区二区三在线观看 | 亚洲精品一区二区网址 | 亚洲精品在线免费 | 久草电影网 | 狠狠操夜夜操天天操 | 午夜精品久久久久久久久久久久久 | 久久久一二三 | 国产区区 | 午夜一级| 亚洲欧美在线免费 | 毛片久久久 | 在线精品一区 | 亚洲国产精品久久久久 | 天天插天天干 | 玖玖玖精品视频 | 免费欧美视频 | 亚洲美女在线视频 | 欧美第一区 | www.国产高清 | 国产精品久久久久aaaa九色 | 99久久网站| 欧美精品第十页 | 老司机深夜福利在线观看 | 日韩一区二区三区在线 | 成人二区 | 日韩精品一区二区三区视频播放 |