麻豆小视频在线观看_中文黄色一级片_久久久成人精品_成片免费观看视频大全_午夜精品久久久久久久99热浪潮_成人一区二区三区四区

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

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

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 国产精品久久久久无码av | 国产精品久久国产精麻豆96堂 | 日本黄色一级电影 | 99在线精品视频免费观看20 | 日韩 综合| 国产一级中文字幕 | 涩涩操| 久久久久久久久久久久久国产精品 | 精品国产91久久久 | a一级黄| 一级黄色淫片 | 成人区一区二区 | 日本在线视频免费 | 日本成人在线免费 | 91久久国产综合久久91猫猫 | 性高跟鞋xxxxhd4kvideos | 久久国产亚洲视频 | 午夜伦情电午夜伦情电影 | 牛牛碰在线 | 成人短视频在线观看免费 | 国内精品久久久久久久久久 | 黄色大片免费网站 | 伊人午夜 | 7777在线观看 | 日本a在线观看 | av在线播放电影 | av在线免费不卡 | 国产va在线观看免费 | 中文字幕在线观看网址 | 激情小说激情电影 | xp123精品视频 | 亚洲天堂字幕 | 看片一区 | 国产一区二区三区四区波多野结衣 | 亚洲国产精品久久久久久久 | 国产在线精品一区二区三区不卡 | 国产婷婷一区二区三区 | 欧美一级美国一级 | 麻豆视频国产在线观看 | 色网站综合| 国产精品视频免费在线观看 |