?? 控件-定時器.htm
字號:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>控件-定時器</title>
</head>
<body bgcolor="#CCFFFF" vlink="#0000FF">
<p align="center" style="margin-top: 0; margin-bottom: 0"><font color="#FF0000"><font face="華文彩云" size="6">VB程序設計基礎</font></font></p>
<p align="left" style="line-height: 150%; margin-top: 0; margin-bottom: 0"><br>
<font color="#0000FF">九、定時器</font><br>
<font color="#0000FF">定時器</font>Timer 可以控制代碼<font color="#800000">定時</font>運行，就像<font color="#800000">屏幕</font>保護程序一樣，代碼是Timer_Timer()<br>
<font color="#0000FF">啟動</font>VB，修改好窗體的標題<font color="#800000">Caption</font>、顏色和圖標Icon屬性，再添加一個<font color="#800000">標簽</font>Label1，修改它的Caption屬性為<font color="#800000">空</font>，再修改它的顏色，字體等屬性，以“<font color="#800000">定時器</font>”（或MyTimer）為文件名<font color="#800000">保存文件到自己的文件夾。</font><br>
<font color="#0000FF">在</font>工具箱中選中定時器，一個<font color="#800000">小鬧鐘</font>的圖標，在窗體繪制一個定時器，在屬性窗口中找到<font color="#800000">Interval</font>輸入2000，這個屬性是設置時間的，單位是<font color="#800000">毫秒</font>，1000毫秒等于1秒。<font color="#800000">保存一下</font>程序<br>
<font color="#0000FF">啟動</font>程序，看看定時器在哪兒，好像找不著，沒看到小鬧鐘，這是因為定時器是在<font color="#800000">代碼</font>中設置的。<br>
<font color="#0000FF">關閉</font>程序回到窗體中，<font color="#800000">雙擊</font>定時器對象進入<font color="#800000">代碼</font>窗口。<br>
<font color="#0000FF">按一下</font>Tab鍵縮進準備輸入<font color="#800000">代碼</font>，我們要讓標簽過兩秒就<font color="#800000">顯示</font>一段文字，代碼為：<br>
Static i as boolean <font color="#008000">'定義一個布爾型變量i，布爾型變量只有真假（True 或Flase）</font><br>
if i = false then<br>
label1.caption="保護視力"<br>
else<font color="#008000"> '否則 i =True</font><br>
label1.caption="預防近視"<br>
end if<font color="#008000"> '顯示兩句話</font><br>
i = Not i <font color="#008000">'換一個布爾值</font><br>
<font color="#0000FF">檢查</font>一下代碼的<font color="#800000">中英文</font>，理解一下代碼的含義，<font color="#800000">保存一下</font>程序<br>
<font color="#0000FF">單擊</font>啟動按鈕，等待兩秒你看到了什么呢？<br>
<font color="#0000FF">回到</font>代碼窗口，我們來<font color="#800000">理解</font>一下代碼的意義，因為<font color="#800000">只顯示</font>兩句，所以不是這句就是那句，當然顯示哪一句，要看看變量<font color="#800000">i</font>的值，i
為真（<font color="#800000">True</font>）時顯示“預防近視”，<font color="#800000">否則</font>就顯示“保護視力”，這次
i 為真，Not以后<font color="#800000">下次</font>就變成假，Not 是否定的意思。<br>
<font color="#0000FF">你</font>注意到了沒有？Windows在提示時常常會<font color="#800000">響</font>一聲，這句代碼是<font color="#800000">Beep</font> 我們把這一句加到Else句上面的一個空行，注意VB中每一行<font color="#800000">只寫一句</font>，代碼變<font color="#800000">紅</font>了就是錯了。<font color="#800000">完整</font>的代碼是：<br>
Static i As Boolean <font color="#008000">'定義一個布爾型變量
i ，布爾型變量只有真假（True 或Flase）</font><br>
If i = False Then<br>
Label1.Caption = "保護視力"<br>
Beep <font color="#008000">'響鈴</font><br>
Else<font color="#008000"> '否則i=True</font><br>
Label1.Caption = "預防近視"<br>
End If <font color="#008000"> '顯示兩句話</font><br>
i = Not i <font color="#008000"> '換一個布爾值</font></p>
<p align="left" style="line-height: 150%; margin-top: 0; margin-bottom: 0"><font color="#0000FF">本節</font>學習了定時器的使用和設置代碼<br>
<a href="心靈窗口.exe">心靈窗口</a> <font size="2">（在彈出的對話框中選擇“<font color="#800000">在當前位置運行該程序</font>”和“<font color="#800000">是</font>”）</font></p>
<font SIZE="1" COLOR="#000000">
<p style="line-height: 200%; margin-top: 2; margin-bottom: 0">本教程由86團學校TeliuTe制作|著作權所有，不得用于商業用途</p>
<p style="line-height: 150%; margin-top: 0; margin-bottom: 0">美麗的校園……</p>
</font>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -