【正文】 mer1的 Enabled屬性設(shè)置為 True時，計時器開始工作。按照 Interval屬性的設(shè)置，每隔一秒鐘執(zhí)行一次 Timer1_Timer過程。程序如下： Private Sub Timer1_Timer() secondVar = secondVar + 1 If secondVar = 60 Then minuteVar = minuteVar + 1 secondVar = 0 End If If minutvar = 60 Then hourVar = hourVar + 1 minutvar = 0 End If FormatTimer End Sub 每次執(zhí)行 Timer1_Timer（即每秒鐘），執(zhí)行一次秒時間計數(shù) secondVar=secondVar+1。如果secondVar=60，分鐘計數(shù) minutVar增加 1，同時秒計數(shù) secondVar置為 0。同樣，每 60 分鐘，小時計數(shù) hourVar增加 1，分鐘計數(shù) minutVar置為 0。Timer1_Timer過程的最后，調(diào)用 FormatTimer，按規(guī)定的格式顯示秒表。程序運行效果如圖 示。 圖 單擊 “ 停止 ” 按鈕，計時器控件暫停工作。代碼如下： Private Sub cmdStop_Click() = False End Sub 單擊 “ 清零 ” 按鈕，執(zhí)行如下過程： Private Sub cmdReset_Click() = False hourVar = 0 minuteVar = 0 secondVar = 0 FormatTimer End Sub 在 Visual Basic中實現(xiàn)動畫有如下 3 (1) 使用 Move (2) (3) 在不同的位置顯示不同的圖片。 不論用何種方法，都可以用計時器定時觸發(fā)有關(guān)動畫的事件過程，用計時器的 Interval屬性控制圖像 Move 對象名 .MoveLeft， Top[， Width， Length] 利用圖片框和計時器設(shè)計簡單動畫 【 例 】 以藍天白云為背景，顯示地球圍繞太陽 設(shè)計此動畫的思路如下：建立一個圖片框，它的大小與窗體相同，裝入藍天白云圖形作為背景。再建立兩個圖像框，分別裝入太陽和地球的圖形。用計時器的 Timer 屬性設(shè)置如表 （見書 200頁）所示。 計時器的 Interval屬性值定為 100（即 ），目的是每 。圖片框中調(diào)入的圖形為： “ c:\pwin97\”，是藍天白云圖形。圖像框 1和圖像框 2的 Stretch屬性為 True，以便使圖形充滿圖像框。窗體設(shè)計如圖 。 這個程序有兩個事件過程：初始裝載程序Form_Load()和計時器事件過程 Timer1_Timer()。 圖 在程序開始運行裝入窗體時，執(zhí)行 Form_Load事件過程，把圖像框 ImgSun放到窗體中心位置。窗體和圖像框的大小是在設(shè)計階段確定的。用以下辦法使圖像框 ImgSun的位置在窗體中央：使圖像框ImgSun與窗體上邊的距離（ ）等于（窗體高度 /2） （圖像框 ImgSun的高度 /2）。用 LoadPicture函數(shù)分別裝入太陽和地球圖形。程序如下： Private Sub Form_Load() = Height / 2 / 2 = Width / 2 / 2 = LoadPicture(″D:\TanVB6\ Figure\″) = LoadPicture(″D:\TanVB6\ Figure\″) End Sub 計時器事件過程的程序如下： Private Static Sub Timer1_Timer() r = 1500 x = Cos(i) * r + Width / 2 y = Sin(i) * r + Height / 2 x, y i = i + End Sub 以上的程序能使地球運動，但若仔細觀看，地球的運動并不是以太陽為中心，有些偏離窗體的中心，原因是用 Move方法時， x和 y不是代表圖像框中心點的坐標(biāo)， x是圖像框左邊框的橫坐標(biāo)， y是圖像框上邊框的縱坐標(biāo)。 p(x,y)實際上是圖像框左上角坐標(biāo)。因此要使地球準(zhǔn)確地進行圓周運動，應(yīng)將程序修改成： Private Static Sub Timer1_Timer() r = 1500 x = Cos(i) * r + Width / 2 / 2 y = Sin(i) * r + Height / 2 / 2 x, y i = i + End Sub 運行情況如圖 。 圖 【 例 】 設(shè)計一個程序，要求：在淡藍色背景的窗體上，有一個由缺到圓、再由圓到缺的自左向右 月亮的移動可通過移動月亮所在圖像框的位置來實現(xiàn)，而月亮的圓缺則通過輪流顯示 8個不同狀態(tài)月亮的圖片來實現(xiàn)。窗體中 8 控件的屬性設(shè)置如表 （見書 202頁）。 窗體如圖 。 圖 本程序有 3個事件過程：初始事件過程 Form_Load()將所用到圖片裝載到各圖像框中；計時器定時觸發(fā)Timer1_Timer()事件過程，移動月亮并改變月亮的狀態(tài)； “ 停止 ” Form_Load()事件過程的程序如下： Private Sub Form_Load() ′為 8 = LoadPicture(″D:\TanVB6\Figure \″) = LoadPicture(″D:\TanVB6\Figure \″) = LoadPicture(″D:\TanVB6\Figure \″) = LoadPicture(″D:\TanVB6\Figure \″) = LoadPicture(″D:\TanVB6\Figure \″) = LoadPicture(″D:\TanVB6\Figure \″) = LoadPicture(″D:\TanVB6\Figure \″) = LoadPicture(″D:\TanVB6\Figure \″) ′設(shè)置可見圖像框的參數(shù) = LoadPicture(″d:\vb_example\ ″) = 300 = 300 End Sub 程序中使用的 8個圖像框僅僅是作為承載 8種不同月亮狀態(tài) (缺、圓、虧、盈等 )的圖片的容器，而這 8個月亮圖片僅在需要時才顯示，因此， Visible屬性都設(shè)置為 False。月亮的移動變化程序如下： Private Sub Timer1_Timer() Static Counter As Integer ′自左向右移動月亮，每次移動 100 + 100 ′輪流使用 8 Counter = Counter + 1 If Counter = 9 Then Counter = 1 Select Case Counter Case 1 = Case 2 = Case 3 = Case 4 = Case 5 = Case 6 = Case 7 = Case 8 = End Select End Sub 月亮的變化包括移動和圖片的改變。月亮的移動通過使用 Move方法移動 imgMain 在這個題目中有 8幅月亮的圖片，分別表示月亮的 8種外觀 ,依次顯示這 8個圖片完成一個變化周期后，重新開始新的變化周期。 Counter是計數(shù)器，每顯示一個圖片， Counter加 1。 Select Case Counter語句根據(jù) Counter的值將不同的月亮圖片賦給。當(dāng) Counter=9，即完成了月亮由缺到圓、再由圓到缺的變化周期， Counter重新置1，開始新的周期。 91 圖片框和圖像框在使用上有什么相同及不同之 92 哪些類型的圖片可以裝入到圖片框，哪些類型 93 窗體上有一個圖片框、一個滾動條、一個 “ 退出 ” 命令按鈕。在圖片框中裝入一個圖片。通過單擊滾動條的操作，改變圖片框的大小。窗體如圖。滾動條的變化范圍為 0~10。每點擊一次滾動條右邊或左邊的按鈕時，圖片框增加或縮小的尺寸為 30twip。 習(xí)題 圖 94 設(shè)計一個數(shù)字表，顯示當(dāng)前日期、時間以及上午或下午。窗口如圖 。 95 利用圖片框和計時器設(shè)計一個動畫。在窗體上添加若干圖片框、一個計時器和兩個命令按鈕，窗體設(shè)計如圖 。圖片框 1~圖片框 14用來存放14幅圖片，圖片框 15用來交替顯示這 14幅圖片，以達到動畫的效果。命令按鈕 1用來開始執(zhí)行動畫過程，命令按鈕 2用來結(jié)束程序，本題目是讓一個人走動起來。也可以自己找一組圖片，設(shè)計動畫程序。 圖 圖 96 使用控件數(shù)組實現(xiàn)題 95 97 在窗體上畫一個圖片框，加載一個圖片。再畫四個按鈕，分別表示向四個方向移動（如果找不到合適的圖片，也可以使用文字），如圖 。單擊某個方向按鈕，圖片框?qū)⒃谠摲较蛏弦苿右欢尉嚯x（自己確定移動距離）。當(dāng)圖片移動到窗體的邊界時，相應(yīng)方向的按鈕變?yōu)椴豢捎?。例如，不斷地單擊按鈕，圖片向上移動。當(dāng)圖片框到達窗體上部邊界時，該按鈕變灰，不起作用。當(dāng)單擊按鈕時，使圖片向下移動，離開窗體的上邊界時，按鈕重新可用。 圖 第 10章 菜單設(shè)計 概述 設(shè)計菜單 菜單的控制 建立彈出式菜單 習(xí)題 Visual Basic提供了設(shè)計菜單的工具，但是這個工具不在工具箱中。在設(shè)計菜單的時候，需要在主窗口的菜單欄中選擇 “ 工具 ” 菜單項，從其下拉菜單中選擇 “ 菜單編輯器 ” 命令，或單擊工具欄中的菜單編輯器按鈕，這時屏幕上彈出一個 “ 菜單編輯器 ”窗口，如圖 。利用這個 “ 菜單編輯器 ” ，能夠?qū)λO(shè)計的菜單的每一項的屬性進行設(shè)置。 概述 圖 使用 “ 菜單編輯器 ” 能夠建立一個應(yīng)用程序的菜單系統(tǒng)。這個菜單系統(tǒng)往往包含多個菜單項。需要說明的是，雖然菜單系統(tǒng)是一個整體，但每一個菜單項分別相當(dāng)于一個控件，也就是說在 “ 菜單編輯器 ”中包含多個控件，每一個控件都有自己的名字，對每一控件需要分別進行屬性的設(shè)置，當(dāng)然，在程序中，也要分別對每個控件編寫相應(yīng)的程序。在設(shè)計階段，對屬性的設(shè)置只能通過 “ 菜單編輯器 ” 進行，在程序運行過程中，可以通過語句改變屬性的值。 建立菜單以后，每一個菜單項的名字（即該控件的“ 名稱 ” 屬性）都會出現(xiàn)在程序代碼窗口中的對象框的下拉列表中（可以通過單擊 “ 視圖 ” 菜單中的“ 代碼窗口 ” （ 1） （ 2） 在 Visual Basic主設(shè)計窗口中，選 “ 工具 ” 中的 “ 菜單編輯器 ” 或單擊工具欄中的 “ 菜單編輯器 ” （ 3） （ 4） 為相應(yīng)的菜單命令添加編寫事件過程。 【 例 】 設(shè)計一個窗體，布局如圖 。窗體中包含兩個文本框。在該窗體上設(shè)計菜單，包括“ 編輯（ E） ” 和 “ 設(shè)置（ S） ” 兩項。其中的“ 編輯（ E） ” 提供 Windows中常用的 “ 剪切 ” 、“ 復(fù)制 ” 和 “ 粘貼 ” 功能。 “ 退出 ” 命令也放到這一項之中。 “ 設(shè)置（ S） ” 包括 “ 設(shè)置顏色 ” 和“ 設(shè)置字體 ” 功能。要求實現(xiàn)菜單所指定的功能，例如，單擊 “ 復(fù)制 ” 菜單，就應(yīng)將選中的文本復(fù)制到剪貼板中。 設(shè)計菜單 圖 窗體上各控件的屬性設(shè)置見表 （見書 208頁）。 按以上要求完成窗體外觀設(shè)計后，需要建立菜單系統(tǒng)。以下分別討論如何建立菜單以及怎樣編寫相應(yīng)的應(yīng)用程序。 利用 Visual Basic提供的菜單編輯器能夠很方便地建立程序的菜單系統(tǒng)。打開 “ 菜單編輯器 ” 的方法是，從主窗口的菜單條上選擇 “ 工具 ” 菜單項，打開下拉菜單，從中選擇 “ 菜單編輯器 ” 命令，此時會彈出如圖 。 從圖 ， “ 菜單編輯器 ” 窗口分上、中、下三個部分。上面部分稱為屬性