Imports System.ComponentModel


Imports System.Web.UI


Imports System


Imports System.Web


Imports System.Collections


Imports System.Data


Imports System.Web.UI.WebControls


Imports System.Xml





Namespace myControls





    Public Class DualListBox


        Inherits Control


        Implements INamingContainer





        Private _dataSource As Object


        Private _dataSource2 As Object


        Private _dataMember As String = String.Empty


        Private _dataMember2 As String = String.Empty


        Private _dataValueField As String = String.Empty


        Private _dataValueField2 As String = String.Empty


        Private _dataTextField As String = String.Empty


        Private _dataTextField2 As String = String.Empty





        Public Property DataSource() As Object


            Get


                Return _dataSource


            End Get


            Set(ByVal Value As Object)


                _dataSource = Value


            End Set


        End Property





        Public Property DataSource2() As Object


            Get


                Return _dataSource2


            End Get


            Set(ByVal Value As Object)


                _dataSource2 = Value


            End Set


        End Property





        Public Property DataMember() As String


            Get


                Return _dataMember


            End Get


            Set(ByVal Value As String)


                _dataMember = Value


            End Set


        End Property





        Public Property DataMember2() As String


            Get


                Return _dataMember2


            End Get


            Set(ByVal Value As String)


                _dataMember2 = Value


            End Set


        End Property





        Public Property DataValueField() As String


            Get


                Return _dataValueField


            End Get


            Set(ByVal Value As String)


                _dataValueField = Value


            End Set


        End Property





        Public Property DataValueField2() As String


            Get


                Return _dataValueField2


            End Get


            Set(ByVal Value As String)


                _dataValueField2 = Value


            End Set


        End Property





        Public Property DataTextField() As String


            Get


                Return _dataTextField


            End Get


            Set(ByVal Value As String)


                _dataTextField = Value


            End Set


        End Property





        Public Property DataTextField2() As String


            Get


                Return _dataValueField2


            End Get


            Set(ByVal Value As String)


                _dataValueField2 = Value


            End Set


        End Property





        Private Function GetDataSource(ByVal DataSource, ByVal DataMember) As IEnumerable


            If TypeOf DataSource Is IEnumerable Then


                Return DataSource


            ElseIf TypeOf DataSource Is DataSet Then


                If DataMember <> String.Empty Then


                    Return DataSource.Tables(DataMember).DefaultView()


                Else


                    Return DataSource.Tables(0).DefaultView()


                End If


            Else


                Throw New ArgumentException("Invalid data source!")


            End If


        End Function





        Protected Overrides Sub OnDataBinding(ByVal e As EventArgs)


            If Not DataSource Is Nothing Then


                Dim objDataEnum As IEnumerator


                Dim lstListBox As ListBox





                Controls.Clear()


                ClearChildViewState()





                objDataEnum = GetDataSource(_dataSource, _dataMember).GetEnumerator()





                lstListBox = CType(Me.FindControl("lstAvailable"), ListBox)





                While (objDataEnum.MoveNext())


                    lstListBox.Items.Add(New ListItem(objDataEnum.Current(_dataTextField).ToString, objDataEnum.Current(_dataValueField).ToString))


                End While





                objDataEnum = Nothing


                lstListBox = Nothing





                objDataEnum = GetDataSource(_dataSource2, _dataMember2).GetEnumerator()


                lstListBox = CType(Me.FindControl("lstUsed"), ListBox)





                While (objDataEnum.MoveNext())


                    lstListBox.Items.Add(New ListItem(objDataEnum.Current(_dataTextFieldB).ToString, objDataEnum.Current(_dataValueFieldB).ToString))


                End While


            End If


        End Sub





        Protected Overrides Sub CreateChildControls()


            Dim lstListBox As ListBox


            Dim ibtnButton As ImageButton





            Me.Controls.Add(New LiteralControl("<table width=""400"" border=""0"" " & _


                "cellspacing=""0"" cellpadding=""0"">"))


            Me.Controls.Add(New LiteralControl("<tr>"))


            Me.Controls.Add(New LiteralControl("<td width=""190"">"))


            lstListBox = New ListBox()


            lstListBox.ID = "lstAvailable"


            lstListBox.Rows = 10


            lstListBox.Width = Unit.Pixel(190)


            lstListBox.Attributes.Add("Style", "color:Black;background-color:White;font-family:Arial,Helvetica,sans-serif;font-size:12px;")


            Me.Controls.Add(lstListBox)


            Me.Controls.Add(New LiteralControl("</td>"))


            Me.Controls.Add(New LiteralControl("<td width=""20"" align=""center"" valign=""middle"">"))


            ibtnButton = New ImageButton()


            ibtnButton.ID = "ibtnAdd"


            ibtnButton.ImageUrl = "/images/DualListBoxAddArrow.gif"


            Me.Controls.Add(ibtnButton)


            Me.Controls.Add(New LiteralControl("<br><br>"))


            ibtnButton = New ImageButton()


            ibtnButton.ID = "ibtnRemove"


            ibtnButton.ImageUrl = "/images/DualListBoxRemoveArrow.gif"


            Me.Controls.Add(ibtnButton)


            Me.Controls.Add(New LiteralControl("</td>"))


            Me.Controls.Add(New LiteralControl("<td width=""190"">"))


            lstListBox = New ListBox()


            lstListBox.ID = "lstUsed"


            lstListBox.Rows = 10


            lstListBox.Width = Unit.Pixel(190)


            lstListBox.Attributes.Add("Style", "color:Black;background-color:White;font-family:Arial,Helvetica,sans-serif;font-size:12px;")


            Me.Controls.Add(lstListBox)


            Me.Controls.Add(New LiteralControl("</td>"))


            Me.Controls.Add(New LiteralControl("</tr>"))


            Me.Controls.Add(New LiteralControl("</table>"))


        End Sub


    End Class


End Namespace