這是備份，原文請看我的網站：[習題]CheckBoxList 與 「小」線上測驗系統
http://www.dotblogs.com.tw/mis2000lab/archive/2008/12/01/checkboxlist_survey.aspx
不瞞您說，我在 Yahoo知識+ 看到這個問題（如下圖，求人家幫忙寫程式），
第一個感覺跟大家一樣，也是滿度爛的！
這麼基礎、簡單的問題，也敢來問！ X的！太不用功了，這連基礎都沒學、恐怕連書都沒有翻開看吧？
混透了，被當掉活該！
大概過了十分鐘，我突然有另外一種想法。
如果我能趁這機會，作一連串的小習題，把他從不會教到會，那也是一種小小成就。
==================================================================
Web控制項裡面， ChecBox / RaddioButton / ListBox / DropDownList這幾個東西都很類似，用法也都差不多。
廣告一下！請看本書第三章，將近一百頁的說明。隨手COPY一個範例就能解這問題！
重點就是：
- 透過 For迴圈，來找出使用者點選了哪一個子選項？
- 使用者點選的那個子選項的「值（Value）」是啥？
只要會作上面這兩個東西，問題就解決了！而這兩個東西，程式碼是固定的，Copy回去改一下就好啦～
第一個範例，點選後，可以加總計算出得到的總分～
畫面上的HTML設定，最重要的是每一個「子選項（ListItem）」的值（Value）與文字（Text）
後置程式碼如下：
因為 CheckBoxList是一種「複選」功能，我們無法得知使用者到底選了哪幾個子選項？
所以要透過 For迴圈來運作，每一個子選項（CheckBoxList.Item(第幾個)）都要進去檢查一次
如果某一個子選項有被點選（.Selected），那就累計這個子選項的分數！
很簡單吧！這段程式COPY回家慢慢用，就像我說的---- ChecBox / RaddioButton / ListBox / DropDownList這幾個東西都很類似，用法也都差不多。
==================================================================
與其給你魚吃，不如教會你釣魚 自己謀生
學會了上面的範例後，下面是一個簡單的小小問卷系統。
每一題都是複選，所以使用 CheckBoxList來作。
- 答對了，才有分數。
- 如果是複選題，必須所有子選項都正確，才能得分（否則這題不算分）
最後一題，必須複選兩個答案才算正確，才能得分
這部份我作得不太好，請見諒。
後置程式碼如下：
02
Protected Sub Button1_Click() Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click 03
Dim u_summary As Integer = 0 04
05
Label1.Text = "" 06
For i As Integer = 0 To (CheckBoxList1.Items.Count - 1) 07
If CheckBoxList1.Items(i).Selected Then 08
If CheckBoxList1.Items(i).Value <> "0" Then 09
Label1.Text = "<font color=darkgreen>答對！</font>" 10
u_summary += CInt(Left(CheckBoxList1.Items(i).Value, 1)) 11
Else 12
Label1.Text += "<font color=red>有錯誤喔～</font>" 13
End If 14
End If 15
Next 16
'---------------------------------------------------------------------------- 17
Label2.Text = "" 18
For j As Integer = 0 To (CheckBoxList2.Items.Count - 1) 19
If CheckBoxList2.Items(j).Selected Then 20
If CheckBoxList2.Items(j).Value <> "0" Then 21
Label2.Text = "<font color=darkgreen>答對！</font>" 22
u_summary += CInt(Left(CheckBoxList2.Items(j).Value, 1)) 23
Else 24
Label2.Text += "<font color=red>有錯誤喔～</font>" 25
End If 26
End If 27
Next 28
'---------------------------------------------------------------------------- 29
'-- 這個題目裡面，必須複選兩個才算正確 -- 30
Label3.Text = "" 31
Dim u_summary_3 As Integer = 0 32
33
For k As Integer = 0 To (CheckBoxList3.Items.Count - 1) 34
If CheckBoxList3.Items(k).Selected Then 35
If CheckBoxList3.Items(k).Value <> "0" Then 36
u_summary_3 += CInt(Left(CheckBoxList3.Items(k).Value, 1)) 37
Else 38
Label3.Text = "<font color=red>有錯誤喔～</font>" 39
End If 40
End If 41
Next 42
43
If u_summary_3 = "6" Then 44
Label3.Text += "<font color=darkgreen>答對！</font>" 45
End If 46
47
u_summary += CInt(u_summary_3) 48
49
'---------------------------------------------------------------------------- 50
Label_summary.Text = u_summary 51
End Sub
真的很難嗎？
真的看過書了嗎？隨便一本ASP.NET的書都會介紹到 Web控制項吧？
如果是書本上沒講，那買我的書吧！
在Web控制項方面，我自認為收錄了不少小範例。不然怎麼湊出將近100頁？
一個有用的小範例，可以幫你千變萬化。
上面的範例不就是第一個 For迴圈不斷修改而成的嗎？
不要怕！動手作！
初學者應該多作、少思考！ ......[給初學者的話] 與其想得太多，不如立刻動手作
因為初學者不動手，只是想想而已的東西，都是有害的！沒營養的！（例如：好難喔，我不會～哪裡有範例可以抄？～～哪個同學已經作完了可以給我抄～～我就是數學不好，所以不會寫程式～～我邏輯不強～～我不是寫程式的料～～）
.....................................................................................................................................................................................
ASP.NET專題實務（文魁出版 / P8187）
.............................................................................................................. 寄信給我 mis2000lab (at) 雅虎.com.台灣 ........
留言列表
