vb編程技術(shù)用戶定義與枚舉類型-文庫吧在線文庫
【正文】 屬性的默認(rèn)值為 0，Max屬性的默認(rèn)值為 32 767。另有一個文本框 ， 它顯示滑塊當(dāng)前位置所代表的值 ，如圖 。 , amp。 程序啟動后的界面如圖 ， 當(dāng)用戶單擊 3個滾動條兩端的箭頭按鈕 、 直接拖動滾動條上的滑塊或單擊滾動條的滑桿時 ， 可以調(diào)整 RGB函數(shù)中對應(yīng)的顏色值 ， 從而使 “ 顏色區(qū) ” 中顯示出不同的顏色 。 ) 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章 用戶定義與枚舉類型 圖 程序運(yùn)行結(jié)果 第 9章 用戶定義與枚舉類型 習(xí) 題 九 為例 93增加計算全班平均成績的功能 。首先增加一個框架 Frame1，激活 Frame1后，在其中增加一個圖片框Picture1，一個文本框 Text1，一個水平滾動條控件數(shù)組HScroll1(0)～ HScroll1(2)和一個標(biāo)簽控件數(shù)組Label1(0)～ Label1(2)，并設(shè)置其屬性如表 92所示。 第 9章 用戶定義與枚舉類型 滾動條的事件 滾動條可以識別多種事件 ， 但最重要的是 Change和Scroll事件 。 星期日或星期六 MsgBox 休息吧 ！ , 0, 非工作日 ！ 第 9章 用戶定義與枚舉類型 Else MsgBox 請咬緊牙關(guān) ， 努力工作 ！ , 0, 工作日 ！ End If End Sub 第 9章 用戶定義與枚舉類型 圖 測試工作日 第 9章 用戶定義與枚舉類型 圖 VB自動顯示 Workdays枚舉的常數(shù) 第 9章 用戶定義與枚舉類型 滾 動 條 控 件 滾動條 (ScrollBar)通常用來附在窗體上協(xié)助觀察數(shù)據(jù)或確定位置 ， 也可用來作為數(shù)據(jù)輸入的工具 。 值為 0 Monday 39。 移除項目 Text1(0).Text = stu(1).no Text1(1).Text = stu(1).na 第 9章 用戶定義與枚舉類型 Text1(2).Text = stu(1).ch Text1(3).Text = stu(1).en Text1(4).Text = stu(1).ma End Sub “結(jié)束 ” 按鈕 Command3的 Click事件代碼為 Private Sub Command3_Click() Unload Me End Sub 列表框 List1的 Click事件代碼為 Private Sub List1_Click() n = + 1 第 9章 用戶定義與枚舉類型 Text1(0).Text = stu(n).no Text1(1).Text = stu(n).na Text1(2).Text = stu(n).ch Text1(3).Text = stu(n).en Text1(4).Text = stu(n).ma End Sub 另外編寫文本框組的事件代碼 ， 使之
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1