vb編程技術(shù)用戶定義與枚舉類型-wenkub.com
2024-10-16 05:13 本頁面
【正文】 程序啟動(dòng)后的界面如圖 ， 當(dāng)用戶單擊 3個(gè)滾動(dòng)條兩端的箭頭按鈕 、 直接拖動(dòng)滾動(dòng)條上的滑塊或單擊滾動(dòng)條的滑桿時(shí) ， 可以調(diào)整 RGB函數(shù)中對(duì)應(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增加計(jì)算全班平均成績(jī)的功能 。 , amp。首先增加一個(gè)框架 Frame1，激活 Frame1后，在其中增加一個(gè)圖片框Picture1，一個(gè)文本框 Text1，一個(gè)水平滾動(dòng)條控件數(shù)組HScroll1(0)～ HScroll1(2)和一個(gè)標(biāo)簽控件數(shù)組Label1(0)～ Label1(2)，并設(shè)置其屬性如表 92所示。另有一個(gè)文本框 ， 它顯示滑塊當(dāng)前位置所代表的值 ，如圖 。 第 9章 用戶定義與枚舉類型 滾動(dòng)條的事件 滾動(dòng)條可以識(shí)別多種事件 ， 但最重要的是 Change和Scroll事件 。 Min屬性的默認(rèn)值為 0，Max屬性的默認(rèn)值為 32 767。 星期日或星期六 MsgBox 休息吧 ！ , 0, 非工作日 ！ 第 9章 用戶定義與枚舉類型 Else MsgBox 請(qǐng)咬緊牙關(guān) ， 努力工作 ！ , 0, 工作日 ！ End If End Sub 第 9章 用戶定義與枚舉類型 圖 測(cè)試工作日 第 9章 用戶定義與枚舉類型 圖 VB自動(dòng)顯示 Workdays枚舉的常數(shù) 第 9章 用戶定義與枚舉類型 滾 動(dòng) 條 控 件 滾動(dòng)條 (ScrollBar)通常用來附在窗體上協(xié)助觀察數(shù)據(jù)或確定位置 ， 也可用來作為數(shù)據(jù)輸入的工具 。 值為 4 Friday 39。 值為 0 Monday 39。 定義枚舉類型的語法為 [ Public | Private ] Enum 〈 類型名稱 〉 〈 成員名 〉 [=〈 常數(shù)表達(dá)式 〉 ] 〈 成員名 〉 [=〈 常數(shù)表達(dá)式 〉 ] End Enum 第 9章 用戶定義與枚舉類型 圖 建立用戶界面和設(shè)置對(duì)象屬性 第 9章 用戶定義與枚舉類型 【 例 94】 利用枚舉類型編寫程序 ， 要求輸入一個(gè)數(shù)字表示星期 ， 判斷輸出是否為工作日 。 移除項(xiàng)目 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事件代碼
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1