[工學(xué)]第7章 用戶(hù)界面設(shè)計(jì)6學(xué)時(shí)理論+4學(xué)時(shí)上機(jī)-文庫(kù)吧
2025-02-02 01:11 本頁(yè)面
【正文】 Option1(i) = True Then opt = Option1(i).Caption End If Next i Select Case opt Case + Res = a + b Case Res = a b Case * Res = a * b Case / Res = Format(a / b, ) End Select Label4 = Res End Sub Private Sub Option1_Click(Index As Integer) a = Val(Text1) b = Val(Text2) Select Case Index Case 0 Label4 = a + b Case 1 Label4 = a b Case 2 Label4 = a * b Case 3 Label4 = Format(a / b, ) End Select End Sub 程序設(shè)計(jì)語(yǔ)言 (VB) 14 本章 目錄 (Frame) ?具有容器功能 ?先建立框架，然后將各控件放置其中。 ?Caption屬性 ：框架上的標(biāo)題文本 ?框架可以響應(yīng) Click和 DoubleClick事件，但一般不需要編寫(xiě)事件過(guò)程。 例 框架練習(xí) 程序設(shè)計(jì)語(yǔ)言 (VB) 15 本章 目錄 課堂編程 ,練一練 ,提高你的編程能力 : ? 統(tǒng)計(jì) 1000以?xún)?nèi)能被 3整除或能被 8整除的數(shù)據(jù)個(gè)數(shù) ,并計(jì)算它們的和。 ? 有一張厚 、面積足夠大的紙，將它不斷的對(duì)折。問(wèn)對(duì)折多少次后，其厚度可達(dá)珠穆朗瑪峰的高度（ 8848m）。 程序設(shè)計(jì)語(yǔ)言 (VB) 16 本章 目錄 綜合設(shè)計(jì)實(shí)驗(yàn) ? 窗體間鏈接的語(yǔ)句為： ? 菜單設(shè)計(jì) ? 見(jiàn)要求 : （ 計(jì)算機(jī)技術(shù)基礎(chǔ)（ vb） 》 綜合實(shí)驗(yàn)要求 .doc） 程序設(shè)計(jì)語(yǔ)言 (VB) 17 本章 目錄 小結(jié) ? 單選按鈕、復(fù)選框和框架 ? 滾動(dòng)條 ? 圖形框和圖像框 ? 定時(shí)器 作業(yè)： ? 實(shí)驗(yàn) G 1， 2， 4， 5 ? 書(shū)上例 程序設(shè)計(jì)語(yǔ)言 (VB) 18 本章 目錄 滾動(dòng)條和進(jìn)度條 ?滾動(dòng)條 (ScrollBar)通常附在窗體上協(xié)助觀察數(shù)據(jù)或確定位置，也可作為數(shù)據(jù)輸入工具 ?進(jìn)度條 (ProgressBar)用來(lái)指示事務(wù)處理的進(jìn)度 ?都有水平和垂直兩種 （進(jìn)度條的使用見(jiàn)后續(xù)課程） 程序設(shè)計(jì)語(yǔ)言 (VB) 19 本章 目錄 滾動(dòng)條屬性： ?Value 滑塊當(dāng)前位置的值 (缺省為 0) ?Min 滑塊最小位置值 (缺省為 0) ?Max 滑塊最大位置值 ?SmallChange 單擊滾動(dòng)條兩端的箭頭時(shí)，Value屬性 (滑塊位置 )改變值 ?LargeChange 單擊滾動(dòng)條的空白區(qū)域時(shí)，Value屬性改變值 滾動(dòng)條練習(xí) 程序設(shè)計(jì)語(yǔ)言 (VB) 20 本章 目錄 滾 動(dòng)條事件 ： Change 改變 Value屬性時(shí)觸發(fā) Scroll 當(dāng)拖動(dòng)滑塊時(shí)觸發(fā) 例 0~18之間某個(gè)數(shù)階乘，數(shù)據(jù)由滾動(dòng)條獲得。 設(shè)置： Max屬性為 18， Min屬性為 1， Value初值為 1， SmallChange屬性為 1，LargeChange屬性為 3 程序設(shè)計(jì)語(yǔ)言 (VB) 21 本章 目錄 綜合設(shè)計(jì)實(shí)驗(yàn) ?見(jiàn)要求 : （ 計(jì)算機(jī)技術(shù)基礎(chǔ)（ vb） 》 綜合實(shí)驗(yàn)要求 .doc）綜合實(shí)驗(yàn)報(bào)告格式 計(jì)算機(jī)技術(shù)基礎(chǔ) 訂正 過(guò)程書(shū)面作業(yè) 程序設(shè)計(jì)語(yǔ)言 (VB) 22 本章 目錄 滾動(dòng)條和進(jìn)度條 (復(fù)習(xí) ) ?滾動(dòng)條 (ScrollBar)通常附在窗體上協(xié)助觀察數(shù)據(jù)或確定位置，也可作為數(shù)據(jù)輸入工具 ?進(jìn)度條 (ProgressBar)用來(lái)指示事務(wù)處理的進(jìn)度 ?都有水平和垂直兩種 （進(jìn)度條的使用見(jiàn)后續(xù)課程） 程序設(shè)計(jì)語(yǔ)言 (VB) 23 本章 目錄 滾動(dòng)條屬性： ?Value 滑塊當(dāng)前位置的值 (缺省為 0) ?Min 滑塊最小位置值 (缺省為 0) ?Max 滑塊最大位置值 ?SmallChange 單擊滾動(dòng)條兩端的箭頭時(shí)，Value屬性 (滑塊位置 )改變值 ?LargeChange 單擊滾動(dòng)條的空白區(qū)域時(shí)，Value屬性改變值 滾動(dòng)條練習(xí) 程序設(shè)計(jì)語(yǔ)言 (VB) 24 本章 目錄 滾 動(dòng)條事件 ： Change 改變 Value屬性時(shí)觸發(fā) Scroll 當(dāng)拖動(dòng)滑塊時(shí)觸發(fā) 例 0~18之間某個(gè)數(shù)階乘，數(shù)據(jù)由滾動(dòng)條獲得。 設(shè)置： Max屬性為 18， Min屬性為 0， Value初值為 0， SmallChange屬性為 1，LargeChange屬性為 3 程序設(shè)計(jì)語(yǔ)言 (VB) 25 本章 目錄 ? Private Sub HScroll1_Change() ? Dim i As Integer, n As Integer, s As Double ? s = 1 ? n = ? If n 0 Then ? For i = 1 To n ? s = s * i ? Next i ? End If ? = n amp。 ! = ? = s ? End Sub 例 程序設(shè)計(jì)語(yǔ)言 (VB) 26 本章 目錄 例 設(shè)計(jì)一個(gè)調(diào)色板應(yīng)用程序，使用三個(gè)滾動(dòng)條作為三種基本顏色的輸入工具。 Dim Red, Green, Blue As Long Private Sub Command1_Click() = End Sub Private Sub Command2_Click() = End Sub Private Sub HScroll1_Change() Red
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1