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