or
<telerik:RadAjaxPanel ID="RadAjaxPanelx" LoadingPanelID="RadAjaxLoadingPanelx" runat="server"> <asp:Button ID="btnSubmit" runat="server" CausesValidation="true" OnClick="btnSubmit_Click" Text="Submit" /><br /> </telerik:RadAjaxPanel> <telerik:RadAjaxLoadingPanel ID="RadAjaxLoadingPanelx" Height="300" Width="500" runat="server" Skin="Sunset"> </telerik:RadAjaxLoadingPanel>Public Sub btnSubmit_Click(ByVal sender As Object, ByVal e As EventArgs) ' Check to see at least one checkbox checked. Dim CheckedBox As Boolean = False For Each CheckedItem As ListItem In chklPayment.Items If CheckedItem.Selected = True Then CheckedBox = True End If Next If CheckedBox = False Then lblError.Visible = True
chklPayment.Focus() Exit Sub Else lblError.Visible = False End If End SubRadChart1.PlotArea.XAxis.LabelStep = 15;
Dim _JS As String = "radconfirm('Selected : (" & RadGrid1.SelectedItems.Count.ToString & ") item Are you sure delete ?', CallBackDelete, 330, 100, null, 'Delete');"If Not (_JS Is "") ThenScriptManager.RegisterClientScriptBlock(Me.Page, Me.[GetType](), e.Item.Text.ToString & "_JScript", _JS, True)End Iffunction CallBackDelete(arg) { radalert('choose : ' + arg.toString());}RadGrid1.SelectedItems[0].Cells[RadGrid1.SelectedItems[0].Cells.Count - 1].Text = tbxEditRowWghtg.Text +
" %";