// class for handling object operations
public
class BaseRibbonObjectHandler : RadRibbonBarCommandTab
// create the chunk
m_chkPositionAndSize =
new RadRibbonBarChunk();
m_chkPositionAndSize.Orientation = System.Windows.Forms.Orientation.Vertical;
m_chkPositionAndSize.Text = "Position and Size";
// create the ribbon bar group
RadRibbonBarButtonGroup radRibbonBarButtonGroup1 = new RadRibbonBarButtonGroup();
radRibbonBarButtonGroup1.Orientation = System.Windows.Forms.Orientation.Horizontal;
radRibbonBarButtonGroup1.MinSize = new System.Drawing.Size(22, 22);
radRibbonBarButtonGroup1.ShowBorder = true;
// create the labels
RadLabelElement radLabelElement1 = new RadLabelElement();
RadLabelElement radLabelElement2 = new RadLabelElement();
radLabelElement1.Text = "Width ";
radLabelElement2.Text = "Height ";
// create the textboxes
tbSizeWidth = new RadTextBoxElement();
tbSizeWidth.MinSize = new Size(100, 0);
tbSizeWidth.AutoSizeMode = RadAutoSizeMode.WrapAroundChildren;
tbSizeHeight = new RadTextBoxElement();
tbSizeHeight.MinSize = new Size(100, 0);
tbSizeHeight.AutoSizeMode = RadAutoSizeMode.WrapAroundChildren;
// add the controls to the button group
radRibbonBarButtonGroup1.Items.AddRange(new RadItem[] { radLabelElement1, tbSizeWidth, radLabelElement2, tbSizeHeight });
// add the group to the chunk
m_chkPositionAndSize.Items.Add(radRibbonBarButtonGroup1);
// add the chunks to the control
this.Items.Add(m_chkPositionAndSize);
Dim Srch As New DirectorySearcher
Dim srchResultat As SearchResultCollection
Dim Resultat As SearchResult
'AJoute les colones
RadGridGroupes.MasterGridViewTemplate.AutoGenerateColumns =
False
Dim imgCol As New GridViewImageColumn
imgCol.UniqueName =
"Img"
imgCol.HeaderText =
""
imgCol.DataField =
"Img"
RadGridGroupes.MasterGridViewTemplate.Columns.Add(imgCol)
Dim txtCol As New GridViewTextBoxColumn
imgCol.UniqueName =
"Nom"
imgCol.DataField =
"Nom"
imgCol.Width = 200
imgCol.HeaderText =
"Nom"
RadGridGroupes.MasterGridViewTemplate.Columns.Add(imgCol)
Srch.Filter =
"(&(objectCategory=group))"
srchResultat = Srch.FindAll
Dim dtTable As New DataTable
Dim dtRow As DataRow
dtTable.Columns.Add(
New DataColumn("Img", System.Type.GetType("System.String")))
dtTable.Columns.Add(
New DataColumn("Nom", System.Type.GetType("System.String")))
dtTable.TableName =
"Groupes"
For Each Resultat In srchResultat
dtRow = dtTable.NewRow
dtRow.Item(
"Nom") = Resultat.Properties("name")(0)
dtTable.Rows.Add(dtRow)
Next
RadGridGroupes.DataSource = dtTable
End Sub