項(xiàng)目五曾劍平ppt課件-資料下載頁(yè)
2025-05-04 02:56本頁(yè)面
【正文】 , ) Case 2 = New (, ) Case 3 = New (, ) End Select End Sub 24 共 39 頁(yè) 大學(xué)VB.NET程序設(shè)計(jì)實(shí)踐教程（第三版）——項(xiàng)目五 文字處理 編寫對(duì)象事件過(guò)程代碼 5 ? “字體背景色”框架中復(fù)選框的事件過(guò)程 Private Sub CheckBox5_CheckedChanged(ByVal sender As , ByVal e As ) Handles 39。單擊“ Red” 復(fù)選框 If = True Then R = 255 Else R = 0 End If rr = RGB(R, G, B) = (rr) End Sub Private Sub CheckBox6_CheckedChanged(ByVal sender As , ByVal e As ) Handles 39。單擊“ Green” 復(fù)選框 If = True Then G = 255 Else G = 0 End If rr = RGB(R, G, B) = (rr) End Sub 25 共 39 頁(yè) 大學(xué)VB.NET程序設(shè)計(jì)實(shí)踐教程（第三版）——項(xiàng)目五 文字處理 編寫對(duì)象事件過(guò)程代碼 5 ? “字體背景色”框架中復(fù)選框的事件過(guò)程 Private Sub CheckBox7_CheckedChanged(ByVal sender As , ByVal e As ) Handles 39。單擊“ blue” 復(fù)選框 If = True Then B = 255 Else B = 0 End If rr = RGB(R, G, B) = (rr) End Sub 26 共 39 頁(yè) 大學(xué)VB.NET程序設(shè)計(jì)實(shí)踐教程（第三版）——項(xiàng)目五 文字處理 編寫對(duì)象事件過(guò)程代碼 6 ? “字體前景色”框架中下拉列表框的事件過(guò)程 Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As , ByVal e As ) Handles 39。選擇“字體前景色”下拉列表 Select Case Case Black = Case White = Case Yellow = End Select End Sub 27 共 39 頁(yè) 大學(xué)VB.NET程序設(shè)計(jì)實(shí)踐教程（第三版）——項(xiàng)目五 文字處理 上機(jī)練習(xí) P149 (1) P151 (3)
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1