1、(中職）Visual Basic 6.0程序設計第4章ppt課件Visual Basic常用控件 【實例13】 電子試卷選擇題【實例14】 單項選擇【實例15】 調色板【實例16】 模擬秒表【實例17】 電子詞典【實例18】 字體格式演示【實例19】 外部程序執行器 【實例13】 電子試卷選擇題 案例效果 本例中給出了一個電子試卷的選擇題界面的應用程序，程序運行后效果，程序運行時，通過單擊某個選項按鈕進行答案的選擇，此時會彈出一個消息對話框，說明選擇是否正確。 技術分析 1. 控件分類 2. 焦點和【Tab】鍵的順序 （1）焦點 （2）對象接受焦點的條件 （3）【Tab】鍵的順序 （4）與焦點

2、有關的事件和方法 3. 控件數組 （1）控件數組的創建 （2）與控件數組有關的屬性 （3）控件數組的使用 操作步驟 1. 創建程序界面（1）新建一個“標準 EXE”工程 ，在窗體上添加一個文本框和一個命令按鈕控件。再設置文本框控件的TabStop屬性為False，使得文本框不能接受焦點；設置Multiline屬性為True，使文本框可顯示多行文字；設置文本框Locked屬性為True，鎖定文本框的內容，使程序運行中不能通過鍵盤輸入/刪除字符。（2）按照前面所學的方法，以將命令按鈕控件進行復制、粘貼的方式創建按鈕控件數組，并按先后順序，依次設置按鈕的Caption屬性為“A”、“B”、“C”、“

3、D”，從左向右排列，按圖4-1所示進行適當地調整。 2. 程序代碼編輯最后，在代碼窗口內輸入以下程序代碼。程序代碼：Private Sub Form_Load() Text1.Text = 三國的張飛是哪兒的人： + Chr(13) + Chr(10) + A: 燕 _ + Chr(13) + Chr(10) + B: 魯 + Chr(13) + Chr(10) + C: 晉 + Chr(13) +_ Chr(10) + D: 冀End SubPrivate Sub Command1_Click(Index As Integer) Select Case Index 對控件數組的索引值進行判斷

4、 Case 0 MsgBox 回答正確！ Case 1 MsgBox 回答錯誤！正確答案為A Case 2 MsgBox 回答錯誤！正確答案為A Case 3 MsgBox 回答錯誤！正確答案為A End SelectEnd Sub 知識進階 1.動態控件數組 2. 進階實例動態按鈕（1）新建一個“標準.EXE”工程 ，在窗體上添加一個命令按鈕控件。 （2）最后，在程序中輸入如下代碼。 思考練習 1. 填空題（1）通過設置控件對象的 屬性值可以改變【Tab】鍵的順序， 屬性決定一個對象是否能被【Tab】鍵選中。（2）控件數組具有相同的 ，以惟一的 對其進行區分。2. 程序設計題（1）創建一個程

5、序，程序中有六個按鈕，任意時刻顯示其中一個，當單擊該按鈕時，將隱藏該按鈕，并隨機顯示另一個按鈕。（2）創建一個程序界面，它有三個按鈕，其中兩個是程序運行中產生的，鼠標移到不同的按鈕上時，鼠標指針會發生變化。 【實例14】 單項選擇 案例效果 本例中，使用了單選按鈕來對“電子試卷的選擇題”實例進行改進，利用了單選按鈕互斥的特點，讓選項中只有一個能被選中，使程序更具有實用性。 技術分析 1.單選按鈕 2. 復選框 3. 單選按鈕和復選框的屬性 （1）Caption屬性 （2）Alignment屬性 （3）Value屬性 （4）Style屬性 操作步驟 1.創建程序界面 2. 程序編輯代碼最后，在代

6、碼窗口內輸入以下程序代碼。程序代碼：Private Sub Command1_Click() If Option1(2) = True Then判斷是否是正確的單選按鈕被選擇 MsgBox 選擇正確！ Else MsgBox 選擇錯誤！ End IfEnd Sub 知識進階 1.框架及其應用 （1）Caption屬性 （2）Enabled屬性 （3）Visible屬性 2. 進階實例屬性演示 3. 進階實例字體格式選擇 思考練習 1. 填空題（1）單選按鈕和復選框主要用于在程序中提供一組選項供用戶進行選擇，按鈕狀態（是否被選中）都由 屬性來獲取，兩者的區別在于 。（2）框架控件在程序中主要用于

7、 。2. 程序設計題（1）設計一個進行數學四則運算的程序，運算符由單選按鈕決定。（2）設計一個程序，窗體上有一個標簽，可通過單選按鈕來控制標簽內文字的對齊方式（左、中、右），通過復選框來控制文字是否有下劃線、刪除線、加粗、傾斜等格式。 【實例15】 調色板 案例效果 這個實例是利用滾動條進行調色的調色板程序，程序運行效果如圖4-9所示。當在程序中拖動滾動條時，顏色框將出現色彩的相應變化。 技術分析 1. 滾動條常用屬性（1）Value屬性 （2）LargeChange屬性 （3）SmallChange屬性 （4）Max屬性 （5）Min屬性 2. 滾動條常用事件 （1）Scroll事件 （2）

8、Change事件 操作步驟 1. 創建程序界面 名 稱Caption名 稱CaptionForm1調色板Label4藍色Frame1調色區Label5Label1Label6Label2紅色Label7Label3綠色2. 程序代碼編輯最后，在程序中添加如下代碼。程序代碼：Private Sub Form_Load() 設置用于顯示顏色的標簽控件的邊框和開始時的顏色 Label1.BorderStyle = 1 Label1.BackColor = RGB(0, 0, 0) Label5.BorderStyle = 1 Label5.BackColor = RGB(0, 0, 0) Label

9、6.BorderStyle = 1 Label6.BackColor = RGB(0, 0, 0) Label7.BorderStyle = 1 Label7.BackColor = RGB(0, 0, 0) 初始化三個滾動條 HScroll1.Max = 255 HScroll1.Min = 0 HScroll1.LargeChange = 5 HScroll1.SmallChange = 1 HScroll2.Max = 255 HScroll2.Min = 0 HScroll2.LargeChange = 5 HScroll2.SmallChange = 1 HScroll3.Max =

10、 255 HScroll3.Min = 0 HScroll3.LargeChange = 5 HScroll3.SmallChange = 1End Sub 紅色的改變Private Sub HScroll1_Change() Label1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) Label5.BackColor = RGB(HScroll1, 0, 0)End Sub綠色的改變Private Sub HScroll2_Change() Label1.BackColor = RGB(HScroll1.Val

11、ue, HScroll2.Value, HScroll3.Value) Label6.BackColor = RGB(0, HScroll2, 0)End Sub藍色的改變Private Sub HScroll3_Change() Label1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) Label7.BackColor = RGB(0, 0, HScroll3)End Sub 知識進階 1. 滾動條與數值的互動 2. 進階實例文字的動態改變 （1）新建一個“標準 EXE”工程 ，在窗體上添加兩個標簽控件、一個

12、文本框和一個滾動條。 （2）在代碼窗口內輸入以下程序代碼。 3. 進階實例變速滾動的字幕 （1）新建一個“標準 EXE”工程，在窗體上添加三個標簽控件、一個水平滾動條和一個定時器控件。 （2）最后，在代碼窗口內輸入以下程序代碼。 思考練習 1. 填空題（1）滾動條的取值范圍由 屬性和 屬性決定，最大不能超過 。（2）當鼠標單擊滾動條區域或按【PageUp】或【PageDown】鍵時，滾動條的Value值變化量由 屬性決定，當鼠標單擊滾動條的左右箭頭時，Value值變化量由 屬性決定。2. 程序設計題（1）設計一個程序，通過窗體上滾動條的變化，來左右或上下移動窗體上的標簽。（2）設計一個程序，通

13、過滾動條的變化，修改窗體背景色。 【實例16】 模擬秒表 案例效果 本例制作了一個模似的秒表，可以用來進行計時，計時的時間可以精確到1/10秒。 技術分析 1. 定時器 （1）Enabled屬性 （2）Interval屬性 2. 定時器的特點 操作步驟 1.創建程序界面 2. 程序代碼編輯在代碼窗口中添加如下代碼。 名 稱Caption名 稱Caption名 稱CaptionForm1模擬秒表Command1開始Command4清零Label1模擬秒表Command2停止label2計時：Command3繼續程序代碼：Dim oldTime As DateDim mS As IntegerPr

14、ivate Sub Form_Load() Command2.Enabled = False 設置按鈕狀態 Command3.Enabled = False Command4.Enabled = False Text1.Text = 0:0.0 0End SubPrivate Sub Command1_Click() Timer1.Interval = 10 開始計時 Command1.Enabled = False 使按鈕不可用 Command2.Enabled = True 激活按鈕 Command3.Enabled = False Command4.Enabled = False old

15、Time = Time 記錄起始時間End SubPrivate Sub Command2_Click() Timer1.Interval = 0 停止計時 Command1.Enabled = True 設置按鈕狀態 Command2.Enabled = False Command3.Enabled = True Command4.Enabled = TrueEnd Sub Private Sub Command3_Click() Timer1.Interval = 10 激活定時器,繼續計時 Command1.Enabled = False Command2.Enabled = True

16、Command3.Enabled = False Command4.Enabled = FalseEnd SubPrivate Sub Command4_Click() Text1.Text = 0:0.0 0 文本框清零 oldTime = Time 重設起始時間End SubPrivate Sub Timer1_Timer() 下面程序將計算經過的時間 tm = Time - oldTime 計算經過的時分秒數 If mS 英Command6退出Label2中文：Command2中 0 And Len(Text2.Text) 0 Then 判斷文本框不為空 添加單詞來列表框 List2.A

17、ddItem (Text2.Text) End IfEnd SubPrivate Sub Command4_Click() Dim N As Integer N = List1.ListIndex List1.RemoveItem (N) 刪除兩個列表框中對應的詞條 List2.RemoveItem (N)End Sub Private Sub Command5_Click() List1.Clear 清空列表框內容 List2.ClearEnd SubPrivate Sub Command6_Click() End 退出程序End SubPrivate Sub Form_Load() 下面代

18、碼在List1添加初始化列表項 List1.AddItem (中國) List1.AddItem (計算機) List1.AddItem (程序) List1.AddItem (軟件) List1.AddItem (設計) List1.AddItem (數據) List1.AddItem (編譯) List1.AddItem (接口) List1.AddItem (互聯網) List1.AddItem (服務器) List1.AddItem (可視化) List1.AddItem (對象) List1.AddItem (工程) List1.AddItem (控制) 下面代碼在List2添加初始

19、化列表項 List2.AddItem (China) List2.AddItem (computer) List2.AddItem (program) List2.AddItem (software) List2.AddItem (design) List2.AddItem (data) List2.AddItem (compile) List2.AddItem (interface) List2.AddItem (Internet) List2.AddItem (service) List2.AddItem (visual) List2.AddItem (object) List2.AddI

20、tem (project) List2.AddItem (control)End Sub 知識進階 1. 列表框在程序中的應用列表框在程序中除了可以用于添加、瀏覽外，還常用于從一個列表框向另一個列表框添加選項 2. 進階實例學科選修 思考練習 1. 填空題（1）列表框主要的特點是 。（2） 方法可以為列表框添加新的列表項， 屬性可獲取當前列表項的內容。2. 程序設計題（1）設計一個程序，通過列表框進行標簽文字大小、字體的選擇。（2）設計一個程序，用20個隨機數填充兩個列表框，當選擇兩個列表框的相同序號的列表項時，提示并刪除其中較小的數。 【實例18】 字體格式演示 案例效果 本例將演示在程序中

21、對字體格式的控制，程序中可以通過單選按鈕、復選框、組合框等控件選擇字體、字號、字形等字體的不同格式。 技術分析 1. 組合框組合框（ComboBox）是組合了文本框和列表框的特性而形成的一種控件，從外形上也分為兩個部分。（1）下拉組合框 （2）簡單組合框 （3）下拉列表框 技術分析2. 組合框的屬性、方法與事件 （1）組合框也具有SelLength、SelStart和SelText這三個文本框特有的屬性，用于選擇組合框的文本框部分的內容。（2）當Style屬性的值為0或1時，Text屬性可用來返回或設置文本框中的文本內容。當Style屬性的值為2時，Text屬性可用來返回列表框中的內容，組合框

22、的Text屬性在程序運行中是只讀屬性。（3）組合框中使用較多的事件是Click事件、DblClick事件、Change事件與Scroll事件。（4）只有當組合框下拉部分列表框中的內容被滾動時，才會觸發Scroll事件。只有當組合框的文本框架部分發生輸入操作，內容改變時，才會觸發Change事件。 操作步驟 1. 創建程序界面（1）新建一個“標準EXE”工程，在窗體上添加三個標簽控件、一個文本框和一個框架控件，再在框架控件內添加三個復選框控件、三個組合框控件和三個單選按鈕。（2）按表4-11的內容對控件進行屬性設置。表中未列出者使用其默認屬性。 名稱CaptionIndexTabIndex其 他

23、 屬 性Label1字體演示BorderStyle=1-Fixed SingleLabel2字體格式演示Frame1格式設置Check1應用字體01Check1應用字體樣式13Check1應用字體大小25Combo12Style=0-Dropdown ComboCombo24Style=1-Simple Combo Combo36Style=1-Simple ComboOption1左對齊07Option1居中對齊18Option1右對齊292. 程序代碼編輯最后，在代碼窗口輸入如下代碼。程序代碼：Private Sub Check1_Click(Index As Integer) 通過數組下

24、標來判斷單擊了哪個復選框，并執行相應內容 Select Case Index Case 0 If Check1(0) = 1 Then Combo1_Click 調用Combo1_Click()過程 Else Label1.FontName = 宋體設置字體 End If Case 1 If Check1(1) = 1 Then Combo2_Click 調用Combo2_Click()過程 Else Label1.FontBold = False 設置為非粗體 Label1.FontItalic = False設置為非斜體 End If Case 2 If Check1(2) = 1 The

25、n Combo3_Click 調用Combo3_Click()過程 Else Label1.FontSize = 9 設置字體大小 End If End Select End SubPrivate Sub Combo1_Click() 組合框列表項被選擇（單擊） If Check1(0) = 1 Then 如果復選框被選中 Label1.FontName = Combo1.Text 設置字體 End IfEnd SubPrivate Sub Combo2_Click() If Check1(1) = 1 Then 如果復選框被選中 設置粗體與斜體格式 Select Case Combo2.Te

26、xt Case 常規 Label1.FontBold = False Label1.FontItalic = False Case 粗體 Label1.FontBold = True Label1.FontItalic = False Case 斜體 Label1.FontBold = False Label1.FontItalic = True Case 粗斜體 Label1.FontBold = True Label1.FontItalic = True End Select End IfEnd Sub Private Sub Combo3_Change() 組合框文字改變 If Chec

27、k1(2) = 1 Then Label1.FontSize = Val(Combo3.Text) End IfEnd SubPrivate Sub Combo3_Click() If Check1(2) = 1 Then 如果復選框被選中 Label1.FontSize = Val(Combo3.Text)設置字體大小 End IfEnd SubPrivate Sub Form_Load() 初始化組合框 Combo1.AddItem 宋體, 0 為組合框增加列表項 Combo1.AddItem 楷體_GB2312, 1 Combo1.AddItem 隸書, 2 Combo1.AddItem

28、 黑體, 3 Combo1.AddItem 幼圓, 4 Combo1.ListIndex = 0 設置當前選擇的列表項 Combo2.AddItem 常規, 0 Combo2.AddItem 粗體, 1 Combo2.AddItem 斜體, 2 Combo2.AddItem 粗斜體, 3 Combo2.ListIndex = 0 Combo3.AddItem 9, 0 Combo3.AddItem 12, 1 Combo3.AddItem 16, 2 Combo3.AddItem 18, 3 Combo3.AddItem 20, 4 Combo3.AddItem 24, 5 Combo3.Ad

29、dItem 28, 6 Combo3.ListIndex = 0 設置單選按鈕組的初始選項 Option1(0).Value = TrueEnd SubPrivate Sub Option1_Click(Index As Integer) 判斷哪個單選按鈕被選中，并執行相應動作 Select Case Index Case 0 Label1.Alignment = 0 標簽左對齊 Case 1 Label1.Alignment = 2 標簽文字居中對齊 Case 2 Label1.Alignment = 1 標簽文字右對齊 End SelectEnd Sub 知識進階 組合框與列表框都可用于在

30、多個項目中進行選擇，但兩者有著各自的特點。列表框只能通過點擊進行選擇，不能接受輸入。組合框是組合了列表框和文本框的特性而成的控件，組合框兼有列表框和文本框的大多數功能，可以通過單擊進行列表項的選擇，也可以通過在文本框中輸入文字進行選擇。列表框可以提供復選功能當Style屬性值為1，vbListBoxCheckbox時。而組合框不具有復選功能。 思考練習 1. 填空題（1）列表框控件和組合框控件都可以提供預定義的選項以供用戶進行選擇，最主要的區別在于 。（2）組合框的 屬性決定組合框的樣式，三種不同的組合框中， 和 可以響應Click事件， 和 可以響應Change事件。2. 程序設計題（1）對

31、前一節的“電子詞典”程序進行修改，使用組合框控件代替列表框。（2）用30個隨機數填充三個組合框，三個組合框的當前值對應一元二次方程的三個系數，當組合框當前值改變時，在文本框中顯示該一元二次方程的根。 【實例19】 外部程序執行器 案例效果 在程序中，可以選擇運行外部的可執行程序。程序運行時，可以像在Windows 資源管理器中一樣選擇并運行可執行程序。 技術分析 1驅動器列表框 2目錄列表框 3文件列表框 2. 程序代碼編輯在代碼窗口中添加如下代碼。程序代碼：Private Sub Command1_Click() Dim clstr As String取得文件名稱的后綴，并轉化為小寫字符 clsstr = StrConv(Right$(File1.FileName, 3), vbLowerCase) If clsstr = exe Then 比較后綴名以確定是否為可執行文件 Shell File1.FileName, 1 運行在文件列表框中選中的可執行文件 Else MsgBox 選擇的文件不是Windows下的可執行文件(.exe)! End IfEn