[DNN通用控件]DualListControl介绍

DualListControl

简介：
它是个双列表框选择控件。它适用于在一个指定的范围内选择一部所需要的内容。在DotNetNuke程序中他可以通用，而且使用简单，只用设置好相应的属性即可。例如：要做一个授权的功能的时候，就可以在Available列表中读取系统所有的角色，将需要被授权的角色移动到Assigned列表中。

位置：
DNN目录\controls\DualListControl.ascx

属性：
ListBoxWidth：类型String，列表框宽度
ListBoxHeight：类型String，列表框宽度
Available：类型ArrayList，可供选择的内容
Assigned：类型ArrayList，选定的内容
DataTextField：类型String，列表框文本字段
DataValueField：类型String，列表框值字段
Enabled：类型Boolean，是否有效

使用方法：
1、首先在需要应用的页面中注册这个控件，如：
<%@ Register TagPrefix="Portal" TagName="DualList" Src="~/controls/DualListControl.ascx" %>
2、在需要用到位置写下如下的代码，如：

<portal:duallist id="ctlAdminRoles" runat="server" ListBoxWidth="130" ListBoxHeight="130" DataValueField="RoleName" DataTextField="RoleName"></portal:duallist>

3、在后台代码中声明该控件

Protected WithEvents ctlAdminRoles As DotNetNuke.UI.UserControls.DualListControl

4、在后台代码中分别绑定Available和Assigned的ArrayList，如：

Dim objRoles As New RoleController
Dim arrSysRoles As New ArrayList
'获取当前站点所有的角色
arrSysRoles = objRoles.GetPortalRoles(PortalId)

Dim arrAvailableAdminRoles As New ArrayList
Dim arrAssignedAdminRoles As New ArrayList

arrAvailableAdminRoles = arrSysRoles
'当不是新建时，初始化已选定角色ArrayList，在可选择角色ArrayList中派出已选择部分
'objInfo.AdminRoles是以分号分隔的角色名
'ctlAdminRoles:DualListControl
If Not objInfo Is Nothing Then
    '获取已经选定的角色
    Dim arrAdminRoles As String() = objInfo.AdminRoles.Split(";")
    Dim RoleName As String
    For Each RoleName In arrAdminRoles
        Dim objRole As New RoleInfo
        objRole.RoleName = RoleName
        arrAssignedAdminRoles.Add(objRole)
    Next
    For Each objAvailableRole As RoleInfo In arrAvailableAdminRoles
        For Each objAssignedRole As RoleInfo In arrAssignedAdminRoles
            If objAvailableRole.RoleName = objAssignedRole.RoleName Then
                arrAvailableAdminRoles.Remove(objAvailableRole)
            End If
        Next
    Next
End If

ctlAdminRoles.Available = arrAvailableAdminRoles
ctlAdminRoles.Assigned = arrAssignedAdminRoles
ctlAdminRoles.DataBind()

更正如下：
 
               Dim arrAdminRoles As String() = "已选择角色1;已选择角色2;"
                For Each RoleName As String In arrAdminRoles
                    If RoleName.Trim().Length > 0 Then
                        Dim objRole As New RoleInfo
                        objRole.RoleName = RoleName
                        arrAssignedAdminRoles.Add(objRole)
                    End If
                Next
               'arrSysRoles:全部角色
                For Each objAvailableRole As RoleInfo In arrSysRoles
                    Dim IsInAssigned As Boolean = False
                    For Each objAssignedRole As RoleInfo In arrAssignedAdminRoles
                        If objAvailableRole.RoleName = objAssignedRole.RoleName Then
                            IsInAssigned = True
                            Exit For
                        End If
                    Next
                    If Not IsInAssigned Then
                        arrAvailableAdminRoles.Add(objAvailableRole)
                    End If
                Next

            ctlAdminRoles.Available = arrAvailableAdminRoles
            ctlAdminRoles.Assigned = arrAssignedAdminRoles
            ctlAdminRoles.DataBind()


5、从控件中获取选定项

'strAdminRoles:以分号分隔的角色名
'ctlAdminRoles:DualListControl
Dim strAdminRoles As String = String.Empty
For Each objItem As ListItem In ctlAdminRoles.Assigned
    strAdminRoles = strAdminRoles + ";" + objItem.Text
Next
strAdminRoles = strAdminRoles.Substring(1)

 更正如下：

'strAdminRoles:以分号分隔的角色名
'ctlAdminRoles:DualListControl
Dim strAdminRoles As String = String.Empty
For Each objItem As ListItem In ctlAdminRoles.Assigned
    strAdminRoles = strAdminRoles  + objItem.Text + ";"
Next