vb編程技術(shù)用戶定義與枚舉類型-資料下載頁
2024-10-19 05:13本頁面
【正文】 用戶定義與枚舉類型 滾動條的事件 滾動條可以識別多種事件 ， 但最重要的是 Change和Scroll事件 。 在程序運行過程中，每當(dāng)滾動條的 Value屬性發(fā)生變化時，就發(fā)生 Change事件。 第 9章 用戶定義與枚舉類型 滾動條的應(yīng)用 【 例 95】 水平滾動條應(yīng)用示例 。 建立一個水平滾動條 ， 其 Max屬性為 100， Min屬性為 0， SmallChange屬性為 2， LargeChange屬性為 10。另有一個文本框 ， 它顯示滑塊當(dāng)前位置所代表的值 ，如圖 。 第 9章 用戶定義與枚舉類型 圖 水平滾動條應(yīng)用示例 第 9章 用戶定義與枚舉類型 【 例 96】 利用滾動條控制色彩，還可以返回色彩的 RGB值。 (1) 建立應(yīng)用程序用戶界面并設(shè)置對象屬性。選擇 “ 新建 ” 工程，進入窗體設(shè)計器。首先增加一個框架 Frame1，激活 Frame1后，在其中增加一個圖片框Picture1，一個文本框 Text1，一個水平滾動條控件數(shù)組HScroll1(0)～ HScroll1(2)和一個標(biāo)簽控件數(shù)組Label1(0)～ Label1(2)，并設(shè)置其屬性如表 92所示。 第 9章 用戶定義與枚舉類型 表 92 屬性設(shè)置 第 9章 用戶定義與枚舉類型 圖 建立用戶界面 第 9章 用戶定義與枚舉類型 (2) 編寫事件代碼 。 水平滾動條 HScroll1的事件代碼為 Private Sub HScroll1_Change(Index As Integer) = RGB(HScroll1(0), HScroll1(1), HScroll1(2)) r = LTrim(Str(HScroll1(0))) g = LTrim(Str(HScroll1(1))) b = LTrim(Str(HScroll1(2))) = Color=RGB( amp。 r amp。 , amp。 g amp。 , amp。 b amp。 ) End Sub 第 9章 用戶定義與枚舉類型 文本框 Text1的 GotFocus事件代碼為 Private Sub Text1_GotFocus() = 10 End Sub 文本框 Text1的 KeyPress事件代碼為 Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then a = InStr(10, , ,) b = InStr(a + 1, , ,) c = InStr(b + 1, , )) 第 9章 用戶定義與枚舉類型 HScroll1(0) = Val(Mid(, 11, a 10)) HScroll1(1) = Val(Mid(, a + 1, b a)) HScroll1(2) = Val(Mid(, b + 1, c b 1)) End If End Sub 第 9章 用戶定義與枚舉類型 圖 程序運行結(jié)果 第 9章 用戶定義與枚舉類型 習(xí) 題 九 為例 93增加計算全班平均成績的功能 。 為例 93增加按某科成績排序的功能 。 為例 93增加按姓名查找的功能 。 第 9章 用戶定義與枚舉類型 設(shè)計一個通過滾動條調(diào)整顏色的程序 。 程序啟動后的界面如圖 ， 當(dāng)用戶單擊 3個滾動條兩端的箭頭按鈕 、 直接拖動滾動條上的滑塊或單擊滾動條的滑桿時 ， 可以調(diào)整 RGB函數(shù)中對應(yīng)的顏色值 ， 從而使 “ 顏色區(qū) ” 中顯示出不同的顏色 。 第 9章 用戶定義與枚舉類型 圖 滾動條的應(yīng)用
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1