<ext:Tab ID="RolesTab" runat="server" Title="Roles (Permissions)" Icon="UserKey" BodyStyle="padding:5px;"> <Body> <ext:FormLayout ID="RolesFormLayout" runat="server" LabelWidth="125"> <ext:Anchor Horizontal="99%"> <ext:CheckboxGroup ID="RolesCBGroup" runat="server" ColumnsNumber="2" FieldLabel="Roles:" ItemCls="x-check-group-alt"> <Items> <ext:Checkbox ID="test" FieldLabel="TestField" runat="server"></ext:Checkbox> </Items> </ext:CheckboxGroup> </ext:Anchor> </ext:FormLayout> </Body> </ext:Tab>
Public Sub PopulateAllRoles(ByVal user_name As String) 'Define Roles Array Dim roles As String() = System.Web.Security.Roles.GetAllRoles() 'Define ITEM Dim Item As Coolite.Ext.Web.Checkbox 'Define Role ID Counter For Checkbox Dim RoleCBID As Integer = 0 'Clear, Clean Up and Remove Existing Checkboxes (Possibly from previous use of the window) For Each component As Coolite.Ext.Web.Component In RolesCBGroup.Items RolesCBGroup.Controls.Remove(component) RolesCBGroup.LazyItems.Remove(component) Next 'Loop to add All Roles For Each role As String In roles 'Redifine as NEW Item Item = New Coolite.Ext.Web.Checkbox 'Define ID Item.ID = "role" & RoleCBID 'Define Field Label Item.FieldLabel = role 'Set Visibility Of Control Item.Visible = "True" Item.Hidden = "False" 'Define Current Value Item.Value = System.Web.Security.Roles.IsUserInRole(user_name, role) 'Add CheckBox To Group RolesCBGroup.Controls.Add(Item) 'Add 1 To CheckBox ID RoleCBID = (RoleCBID + 1) Next End Sub