【正文】 Button指示按下或釋放了哪個(gè)鼠標(biāo)按鈕，其值的意義如下表： 值 VB常數(shù) 含 義 1 vbLeftButton 按下或釋放了鼠標(biāo)左鍵 2 vbRightButton 按下或釋放了鼠標(biāo)右鍵 3 vbMiddleButton 按下或釋放了鼠標(biāo)中鍵 程序設(shè)計(jì)語言 (VB) 54 本章 目錄 鼠標(biāo) 例 顯示鼠標(biāo)器指針?biāo)傅奈恢谩? 例 通過打開文件對話框，選擇一個(gè) BMP位圖文件，在圖形框中顯示該圖片。 ② 選擇要添加的窗體 “新建”選項(xiàng)卡：新建一個(gè)窗體 “現(xiàn)存”選項(xiàng)卡：把一個(gè)其他工程的窗體添加到當(dāng)前工程 ? 同一工程 不能有相同名稱的窗體 。 最多可以創(chuàng)建四級子菜單 。 Interval0 例 7補(bǔ) 每隔一秒顯示一次 “ Hello！” 例 設(shè)計(jì)一個(gè)按秒倒計(jì)時(shí) 應(yīng)用程序 例 用一個(gè)定時(shí)器控制蝴蝶 在窗體內(nèi)的飛舞 程序設(shè)計(jì)語言 (VB) 30 本章 目錄 這次練習(xí)數(shù)組的編程，請大家不要翻書，自己獨(dú)立完成： ? 隨機(jī)產(chǎn)生 100~200（包括 100和 200）的 10個(gè)正整數(shù)，求最大值、最小值、平均值，并輸出全部數(shù)組的值和相應(yīng)計(jì)算結(jié)果。 程序設(shè)計(jì)語言 (VB) 16 本章 目錄 綜合設(shè)計(jì)實(shí)驗(yàn) ? 窗體間鏈接的語句為： ? 菜單設(shè)計(jì) ? 見要求 : （ 計(jì)算機(jī)技術(shù)基礎(chǔ)（ vb） 》 綜合實(shí)驗(yàn)要求 .doc） 程序設(shè)計(jì)語言 (VB) 17 本章 目錄 小結(jié) ? 單選按鈕、復(fù)選框和框架 ? 滾動(dòng)條 ? 圖形框和圖像框 ? 定時(shí)器 作業(yè)： ? 實(shí)驗(yàn) G 1， 2， 4， 5 ? 書上例 程序設(shè)計(jì)語言 (VB) 18 本章 目錄 滾動(dòng)條和進(jìn)度條 ?滾動(dòng)條 (ScrollBar)通常附在窗體上協(xié)助觀察數(shù)據(jù)或確定位置，也可作為數(shù)據(jù)輸入工具 ?進(jìn)度條 (ProgressBar)用來指示事務(wù)處理的進(jìn)度 ?都有水平和垂直兩種 （進(jìn)度條的使用見后續(xù)課程） 程序設(shè)計(jì)語言 (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ì)語言 (VB) 20 本章 目錄 滾 動(dòng)條事件 ： Change 改變 Value屬性時(shí)觸發(fā) Scroll 當(dāng)拖動(dòng)滑塊時(shí)觸發(fā) 例 0~18之間某個(gè)數(shù)階乘，數(shù)據(jù)由滾動(dòng)條獲得。 VB中建立控件數(shù)組主要有兩種方法 : 一種是在設(shè)計(jì)時(shí)建立 ， 一種是在運(yùn)行程序時(shí)添加 。 ★ Else n End If End Sub 程序設(shè)計(jì)語言 (VB) 7 本章 目錄 Function isws (m%) As Boolean For i = 1 To m / 2 If m Mod i = 0 Then s = s + i End If Next i If m = s Then isws = True Else isws = False End If End Function Private Sub Command1_Click() Dim i% For i = 1 To 1000 If isws(i) Then Print i Next i End Sub 上機(jī)題解答： 4 , 6 , 7 程序設(shè)計(jì)語言 (VB) 8 本章 目錄 Sub delestr (s1$, s2$) If InStr(s1, s2) 0 Then s1 = Replace(s1, s2, ) End Sub Private Sub Command1_Click() Dim s1$, s2$ s1 = Text1 s2 = Text2 Call delestr (s1, s2) Text3 = s1 End Sub 上機(jī)題解答： 4 , 6 , 7 程序設(shè)計(jì)語言 (VB) 9 本章 目錄 第 7章 用戶界面設(shè)計(jì) 常用控件 單選按鈕、復(fù)選框和框架 (復(fù)習(xí) ) (OptionButton ) Value屬性 :表示單選按鈕的狀態(tài) True —— 被選定 False —— 未被選定 單選按鈕練習(xí) 程序設(shè)計(jì)語言 (VB) 10 本章 目錄 重要屬性： Value屬性：值為整型 ，表示復(fù)選框的狀態(tài) 0 — vbUnchecked:未選定 1 — vbChecked ： 被選定 2 — vbGrayed:灰色 ,并顯示一個(gè)選中標(biāo)記 重要事件 : Click事件 (CheckBox) 例 設(shè)置文本框的字體 = IIf(Option1, 宋體 , 黑體 ) = IIf(Check1 = 1, True, False) 復(fù)選框練習(xí) 程序設(shè)計(jì)語言 (VB) 11 本章 目錄 補(bǔ)充 控件數(shù)組 控件數(shù)組是由一組相同類型的控件組成。 例 框架練習(xí) 程序設(shè)計(jì)語言 (VB) 15 本章 目錄 課堂編程 ,練一練 ,提高你的編程能力 : ? 統(tǒng)計(jì) 1000以內(nèi)能被 3整除或能被 8整除的數(shù)據(jù)個(gè)數(shù) ,并計(jì)算它們的和。 ?圖像框內(nèi)不能存放其他控件。 程序設(shè)計(jì)語言 (VB) 33 本章 目錄 用來輸入菜單名或命令名 (Caption) (1)分隔符：連接符“ ” (2)訪問鍵： 訪問字母前加“ amp。 例 為例 彈出式菜單練習(xí) 程序設(shè)計(jì)語言 (VB)