Imports System.Data
Imports System.Data.SqlClient
Imports System.Collections.Generic
Imports MikesControls

' Test tag cloud ASP.NET server controls
' (c) Mike Pope

Partial Class Test_TagCloudControl
    Inherits System.Web.UI.Page


    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)

        Dim tagList As List(Of TagItem)
        tagList = New List(Of TagItem)
        tagList.Add(New TagItem("aspnet", 900))
        tagList.Add(New TagItem("blog", 136))
        tagList.Add(New TagItem("books", 23))
        tagList.Add(New TagItem("editing", 66))
        tagList.Add(New TagItem("family", 153))
        tagList.Add(New TagItem("funny", 59))
        tagList.Add(New TagItem("general", 460))
        tagList.Add(New TagItem("history", 15))
        tagList.Add(New TagItem("house", 24))
        tagList.Add(New TagItem("language", 196))
        tagList.Add(New TagItem("movies", 7))
        tagList.Add(New TagItem("music", 73))
        tagList.Add(New TagItem("personal", 246))
        tagList.Add(New TagItem("politics", 35))
        tagList.Add(New TagItem("readings", 94))
        tagList.Add(New TagItem("roundup", 88))
        tagList.Add(New TagItem("seattle", 9))
        tagList.Add(New TagItem("technology", 485))
        tagList.Add(New TagItem("travel", 11))
        tagList.Add(New TagItem("whidbey", 74))
        tagList.Add(New TagItem("work", 79))
        tagList.Add(New TagItem("writing", 106))
        TagCloud1.TagList = tagList

        If Me.rbHyperlink.Checked = True Then
            TagCloud1.IsHyperlink = True
        Else
            TagCloud1.IsHyperlink = False
        End If

        If Me.rbCloud.Checked = True Then
            TagCloud1.DisplayFormat = MikesControls.TagDisplay.Cloud
        Else
            TagCloud1.DisplayFormat = MikesControls.TagDisplay.List
        End If

        TagCloud1.TagCSSClass = Me.listTagCSSClass.SelectedValue
        TagCloud1.MaximumFontSize = CInt(Me.textMaximumFontSize.Text)
        TagCloud1.MinimumFontSize = CInt(Me.textMinimumFontSize.Text)
        TagCloud1.HyperlinkFormat = Me.textHyperlinkFormat.Text

        ' Works as an ArrayList of TagItem objects
        'Dim tagList As New ArrayList()
        'tagList.Add(New TagItem("aspnet", 100))
        'tagList.Add(New TagItem("blog", 136))
        'tagList.Add(New TagItem("books", 23))
        'tagList.Add(New TagItem("editing", 66))
        'tagList.Add(New TagItem("family", 153))
        'tagList.Add(New TagItem("funny", 59))
        'tagList.Add(New TagItem("general", 12))
        'Me.TagCloud1.TagList = tagList

        ' Works using a DataView with data rows that contains the columns TagName and TagCount
        'Dim connectionString As String = ConfigurationManager.ConnectionStrings("TagsConnectionString").ConnectionString
        'Dim sqlConnection As New SqlConnection(connectionString)
        'Dim sqlCommand As New SqlCommand("Select tagname, tagcount from Tags order by tagname", sqlConnection)

        'Dim tagsTable As New DataTable
        'Dim sqlDataReader As SqlDataReader
        'sqlConnection.Open()
        'sqlDataReader = sqlCommand.ExecuteReader()
        'tagsTable.Load(sqlDataReader)
        'sqlConnection.Close()

        'Dim dv As DataView
        'dv = tagsTable.DefaultView()
        'Me.TagCloud1.TagList = dv

    End Sub

End Class