国产探花免费观看_亚洲丰满少妇自慰呻吟_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內容?

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 万盛区| 南雄市| 眉山市| 泰安市| 抚顺市| 多伦县| 原阳县| 陆丰市| 新民市| 阳山县| 光山县| 汉源县| 莎车县| 健康| 登封市| 丹凤县| 滦南县| 河源市| 乌拉特前旗| 庄河市| 东兰县| 象州县| 永宁县| 儋州市| 高淳县| 侯马市| 甘泉县| 霍林郭勒市| 昌宁县| 曲沃县| 铁力市| 安溪县| 金华市| 许昌市| 高邮市| 宝丰县| 高尔夫| 海晏县| 呼和浩特市| 盐城市| 象山县|