国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

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

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

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 育儿| 杭州市| 随州市| 子洲县| 陆河县| 胶南市| 顺平县| 紫阳县| 崇义县| 霍林郭勒市| 宣武区| 泰安市| 雷波县| 普宁市| 东明县| 金华市| 平阳县| 抚州市| 萍乡市| 满城县| 祁连县| 大荔县| 长春市| 都匀市| 无为县| 大埔区| 探索| 乳山市| 杨浦区| 汽车| 札达县| 西乡县| 南平市| 三亚市| 朝阳区| 巴彦县| 陇川县| 互助| 梅河口市| 新安县| 泗洪县|