實現CheckBoxList設定及顯示
使用說明:
於CheckBoxList1設定, 並於CheckBoxList2顯示
應用範圍:
課程選擇, 類別選擇, 後台功能選擇等....
01 
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
02
'在這裡放置使用者程式碼以初始化網頁
03 If Not IsPostBack Then
04 Me.CheckBoxList1.Items.Add("1")
05 Me.CheckBoxList1.Items.Add("2")
06 Me.CheckBoxList1.Items.Add("3")
07 Me.CheckBoxList1.Items.Add("4")
08
09 Me.CheckBoxList2.Items.Add("1")
10 Me.CheckBoxList2.Items.Add("2")
11 Me.CheckBoxList2.Items.Add("3")
12 Me.CheckBoxList2.Items.Add("4")
13 End If
14
End Sub
15
16
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
17 Dim Str As String = ""
18 Str = GetChecked(Me.CheckBoxList1, ",")
19 SetChecked(Me.CheckBoxList2, Str, ",")
20 End Sub
21
22 ''' <summary>
23 ''' 初始化CheckBoxList中哪些是選中了的 /// </summary>
24 ''' <param name="checkList">CheckBoxList</param>
25 ''' <param name="selval">選中了的值串例如："0,1,1,2,1"</param>
26 ''' <param name="separator">值串中使用的分割符例如"0,1,1,2,1"中的逗號</param>
27 Public Shared Function SetChecked(ByVal checkList As CheckBoxList, ByVal selval As String, ByVal separator As String) As String
28 selval = separator + selval + separator
29 '例如："0,1,1,2,1"->",0,1,1,2,1,"
30 For i As Integer = 0 To checkList.Items.Count - 1
31 checkList.Items(i).Selected = False
32 Dim val As String = separator + checkList.Items(i).Value + separator
33 If selval.IndexOf(val) <> -1 Then
34 checkList.Items(i).Selected = True
35 selval = selval.Replace(val, separator)
36 '然後從原來的值串中刪除已經選中了的
37 If selval = separator Then
38 'selval的最後一項也被選中的話，此時經過Replace後，只會剩下一個分隔符
39 '添加一個分隔符
40 selval += separator
41 End If
42 End If
43 Next
44 selval = selval.Substring(1, selval.Length - 2)
45 '除去前後加的分割符號
46 Return selval
47 End Function
48
49 ''' <summary>
50 ''' 得到CheckBoxList中選中了的值
51 ''' </summary>
52 ''' <param name="checkList">CheckBoxList</param>
53 ''' <param name="separator">分割符號</param>
54 ''' <returns></returns>
55 Public Shared Function GetChecked(ByVal checkList As CheckBoxList, ByVal separator As String) As String
56 Dim selval As String = ""
57 For i As Integer = 0 To checkList.Items.Count - 1
58 If checkList.Items(i).Selected Then
59 selval += checkList.Items(i).Value + separator
60 End If
61 Next
62 Return selval
63
End Function
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
Private02
'在這裡放置使用者程式碼以初始化網頁 03
If Not IsPostBack Then 04
Me.CheckBoxList1.Items.Add("1") 05
Me.CheckBoxList1.Items.Add("2") 06
Me.CheckBoxList1.Items.Add("3") 07
Me.CheckBoxList1.Items.Add("4") 08
09
Me.CheckBoxList2.Items.Add("1") 10
Me.CheckBoxList2.Items.Add("2") 11
Me.CheckBoxList2.Items.Add("3") 12
Me.CheckBoxList2.Items.Add("4") 13
End If 14
End Sub 15
16
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
Private17
Dim Str As String = "" 18
Str = GetChecked(Me.CheckBoxList1, ",") 19
SetChecked(Me.CheckBoxList2, Str, ",") 20
End Sub 21
22
''' <summary> 23
''' 初始化CheckBoxList中哪些是選中了的 /// </summary> 24
''' <param name="checkList">CheckBoxList</param> 25
''' <param name="selval">選中了的值串例如："0,1,1,2,1"</param> 26
''' <param name="separator">值串中使用的分割符例如"0,1,1,2,1"中的逗號</param> 27
Public Shared Function SetChecked(ByVal checkList As CheckBoxList, ByVal selval As String, ByVal separator As String) As String 28
selval = separator + selval + separator 29
'例如："0,1,1,2,1"->",0,1,1,2,1," 30
For i As Integer = 0 To checkList.Items.Count - 1 31
checkList.Items(i).Selected = False 32
Dim val As String = separator + checkList.Items(i).Value + separator 33
If selval.IndexOf(val) <> -1 Then 34
checkList.Items(i).Selected = True 35
selval = selval.Replace(val, separator) 36
'然後從原來的值串中刪除已經選中了的 37
If selval = separator Then 38
'selval的最後一項也被選中的話，此時經過Replace後，只會剩下一個分隔符 39
'添加一個分隔符 40
selval += separator 41
End If 42
End If 43
Next 44
selval = selval.Substring(1, selval.Length - 2) 45
'除去前後加的分割符號 46
Return selval 47
End Function 48
49
''' <summary> 50
''' 得到CheckBoxList中選中了的值 51
''' </summary> 52
''' <param name="checkList">CheckBoxList</param> 53
''' <param name="separator">分割符號</param> 54
''' <returns></returns> 55
Public Shared Function GetChecked(ByVal checkList As CheckBoxList, ByVal separator As String) As String 56
Dim selval As String = "" 57
For i As Integer = 0 To checkList.Items.Count - 1 58
If checkList.Items(i).Selected Then 59
selval += checkList.Items(i).Value + separator 60
End If 61
Next 62
Return selval 63
End Function
-----------------------
Share is Power