VisualBlogger CategoryPost Test #9

The WinForms adventure continues. The CheckedListBox control has been giving me all sorts of problems. For one thing, if you put one in a TabControlPage, and then switch pages, it doesn't hold its state. It took me a little bit of experimentation, but I came up with the following code to help out:

1    Dim chk1 As New ArrayList

2    Dim chk2 As New ArrayList

3

4#Region " OptionsTabPage.Leave Event Handler "

5

6    Private Sub OptionsTabPage_Leave(ByVal sender As Object, ByVal e As System.EventArgs) 
		Handles OptionsTabPage.Leave

7        chk1.Clear()

8        chk2.Clear()

9        Dim tmpChk1 As CheckedListBox.CheckedIndexCollection = BlogList.CheckedIndices

10        For y As Integer = 0 To tmpChk1.Count - 1

11            chk1.Add(tmpChk1.Item(y))

12        Next

13        Dim tmpChk2 As CheckedListBox.CheckedIndexCollection = CategoryList.CheckedIndices

14        For z As Integer = 0 To tmpChk2.Count - 1

15            chk2.Add(tmpChk2.Item(z))

16        Next

17    End Sub

18#End Region

19

20#Region " Tab Control Page Changed Event "

21

22    Private Sub ViewTabControl_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) 
		Handles ViewTabControl.SelectedIndexChanged

23        Dim currentPage As TabControl = CType(sender, TabControl)

24        Select Case currentPage.SelectedTab.Name

25            Case "OptionsTabPage"

26                Try

27                    For y As Integer = 0 To chk1.Count - 1

28                        BlogList.SetItemChecked(chk1(y).ToString, True)

29                    Next

30                Catch

31                End Try

32                Try

33                    For z As Integer = 0 To chk2.Count - 1

34                        CategoryList.SetItemChecked(chk2(z).ToString, True)

35                    Next

36                Catch

37                End Try

38        End Select

39    End Sub

40#End Region