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