or
Private Sub Menu_Load(sender As Object, e As System.EventArgs) Handles Me.Load Dim i As Integer Dim r As Integer Dim c As Integer = 0 Dim groep As New TileGroupElement groep.Text = "hoi" RadPanorama1.Items.Add(groep) For i = 0 To 45 If i Mod 4 = 0 Then If i <> 0 Then r = r + 1 End If End If groep.RowsCount = r + 1 Dim tile As New RadTileElement tile.Text = CStr(i) tile.Row = r tile.Column = c c = c + 1 If c = 4 Then c = 0 tile.Tag = i AddHandler tile.Click, AddressOf tile_click groep.Items.Add(tile) Next Me.RadPanorama1.AllowDragDrop = False groep.ShouldHandleMouseInput = True End Sub Private Sub tile_click(sender As System.Object, e As System.EventArgs) RadPanorama1.PanoramaElement.SuspendLayout(True) MessageBox.Show(CType(sender, RadTileElement).Tag) RadPanorama1.PanoramaElement.ResumeLayout(True, True) End Sub
Imports Telerik.WinControls.UI.Localization Imports Telerik.WinControls.UI Imports Telerik.WinControls.UI.Design Imports Telerik.WinControls Imports Telerik.WinControls.Localization Class MyEnglishSpellCheckerLocalizationProvider Inherits RadSpellCheckerLocalizationProvider Public Overrides Function GetLocalizedString(id As String) As String Select Case id Case RadSpellCheckerStringId.Title Return "Spell Checking" Case RadSpellCheckerStringId.OK Return "OK" Case RadSpellCheckerStringId.Cancel Return "Cancel" Case RadSpellCheckerStringId.Close Return "Close" Case RadSpellCheckerStringId.Change Return "Change" Case RadSpellCheckerStringId.Complete Return "The spelling check is complete." Case RadSpellCheckerStringId.AddToDictionary Return "Add to Dictionary" Case RadSpellCheckerStringId.IngoreAll Return "Ignore All" Case RadSpellCheckerStringId.Suggestions Return "Suggestions:" Case RadSpellCheckerStringId.ChangeTo Return "Change To:" Case RadSpellCheckerStringId.NotInDictionary Return "Not in Dicitionary:" End Select Return Nothing End Function End Class


radLabel1.Enabled = !radLabel1.Enabled;
private void grdClientes_ValueChanged(object sender, EventArgs e) { foreach (GridViewDataRowInfo row in grdClientes.Rows) { if (row.Cells["Seleccionado"].Value == "On") { _selectedRowIndex += (int)row.Cells["Cantidad"].Value; } } }
Dim col As GridViewMultiComboBoxColumn = New GridViewMultiComboBoxColumn()col.DataSource = myLibrary_Consultantscol.DisplayMember = "Initial"col.ValueMember = "Initial"col.Name = "Cons1"RadGridView_ContactLog.Columns.Add(col)RadGridView_ContactLog.Columns(0)... doesn't have a datasource property?
Thanks
Terry

