Im trying to set up a tooltip which is updated to show which fields of the form the user must complete before being allowed to continue. I have several issues about it (because I'm a newbie asp programmer), but the worst is that after showing the tooltip a few times (hovering the mouse over the hotspot), I get the following error:
Error: Sys.WebForms.PageRequestManagerParserErrorException: The message received from the server could not be parsed. Common causes for this error are when the response is modified by calls to Response.Write(), response filters, HttpModules, or server trace is enabled.
Details: Error parsing near 'Telerik.Web.UI 20'.
I have tried everyting I have been able to think on to solve it, with no success. I have not a single clue about that is wrong. Could you please tell me what is wrong? This is the code (in the master page there is only static content like images):
CreateProject.aspx
Error: Sys.WebForms.PageRequestManagerParserErrorException: The message received from the server could not be parsed. Common causes for this error are when the response is modified by calls to Response.Write(), response filters, HttpModules, or server trace is enabled.
Details: Error parsing near 'Telerik.Web.UI 20'.
I have tried everyting I have been able to think on to solve it, with no success. I have not a single clue about that is wrong. Could you please tell me what is wrong? This is the code (in the master page there is only static content like images):
CreateProject.aspx
<%@ Page Title="" Language="VB" MasterPageFile="~/Resources/MasterPages/Clients.master" AutoEventWireup="false" CodeFile="CreateProject.aspx.vb" Inherits="Web_Clients_CreateProject" %><%@ Register assembly="Telerik.Web.UI" namespace="Telerik.Web.UI" tagprefix="telerik" %><asp:Content ID="Content1" ContentPlaceHolderID="head" Runat="Server"> <style type="text/css"> .style1 { width: 100%; } .style3 { width: 250px; } .style4 { border: 1px solid #abc1de; padding: 1px 4px; width: 100%; } .style7 { width: 180px; } .style8 { width: 96px; } .style9 { width: 195px; } .style10 { width: 140px; } .style11 { width: 127px; } </style></asp:Content><asp:Content ID="Content2" ContentPlaceHolderID="cphHeaderText" Runat="Server"> Create Project</asp:Content><asp:Content ID="Content3" ContentPlaceHolderID="cphMain" Runat="Server"> <telerik:RadAjaxManager ID="RadAjaxManager1" runat="server"> <AjaxSettings> <telerik:AjaxSetting AjaxControlID="chkPONA"> <UpdatedControls> <telerik:AjaxUpdatedControl ControlID="txtRadPO" /> </UpdatedControls> </telerik:AjaxSetting> <telerik:AjaxSetting AjaxControlID="lstRadSouceLangLista"> <UpdatedControls> <telerik:AjaxUpdatedControl ControlID="lstRadSouceLangSelected" /> </UpdatedControls> </telerik:AjaxSetting> <telerik:AjaxSetting AjaxControlID="lstRadSouceLangSelected"> <UpdatedControls> <telerik:AjaxUpdatedControl ControlID="lstRadSouceLangLista" /> </UpdatedControls> </telerik:AjaxSetting> <telerik:AjaxSetting AjaxControlID="cmbRadTTools"> <UpdatedControls> <telerik:AjaxUpdatedControl ControlID="cmbRadTTools" /> <telerik:AjaxUpdatedControl ControlID="div_OtherTTool" /> </UpdatedControls> </telerik:AjaxSetting> <telerik:AjaxSetting AjaxControlID="chkTranslateOther"> <UpdatedControls> <telerik:AjaxUpdatedControl ControlID="txtRadTranslateOther" /> </UpdatedControls> </telerik:AjaxSetting> <telerik:AjaxSetting AjaxControlID="chkDeliveryOther"> <UpdatedControls> <telerik:AjaxUpdatedControl ControlID="txtRadDeliveryOther" /> </UpdatedControls> </telerik:AjaxSetting> </AjaxSettings> </telerik:RadAjaxManager> <div id="divProjectName" class="TableTextoMedio" style="float:left "> <table class="style1"> <tr> <td class="style9"> Project Name:<div id="prueba"></div></td> <td> <telerik:RadTextBox ID="txtRadProjectName" Runat="server" EmptyMessage="Project Name" LabelWidth="" Width="560px"> <EmptyMessageStyle Font-Italic="False" /> </telerik:RadTextBox> </td> </tr> <tr> <td class="style9"> Targeted Market and Audience:</td> <td> <telerik:RadTextBox ID="txtRadAudience" Runat="server" EmptyMessage="Targeted Audience" LabelWidth="" Width="560px"> <EmptyMessageStyle Font-Italic="False" /> </telerik:RadTextBox> </td> </tr> </table> </div> <div id="div_menu" style="float:right"> <div > <telerik:RadMenu ID="RadMenu1" runat="server" EnableRoundedCorners="True" EnableShadows="True" > <Items> <telerik:RadMenuItem runat="server" Text="Profile" > <Items> <telerik:RadMenuItem runat="server" Text="Save current selections as default" Font-Size="12px"> </telerik:RadMenuItem> <telerik:RadMenuItem runat="server" Text="Load default selections" Font-Size="12px"> </telerik:RadMenuItem> <telerik:RadMenuItem runat="server" IsSeparator="True" Text="Child RadMenuItem 3" Font-Size="12px"> </telerik:RadMenuItem> <telerik:RadMenuItem runat="server" Text="Load default selections automatically" PostBack="false" Font-Size="12px"> <ItemTemplate> <asp:CheckBox ID="CheckBox3" runat="server" Text=" Always load default selections" Font-Size="11px" /> </ItemTemplate> </telerik:RadMenuItem> </Items> </telerik:RadMenuItem> </Items> </telerik:RadMenu> </div> <div > <telerik:RadAjaxPanel ID="RadAjaxPanel1" runat="server" Height="64px" Width="80px"> <asp:Image ID="imgStatusCrearProyecto" ImageUrl="~/Resources/Icons/cross-icon.jpg" runat="server" Height="64px" Width="80px" /> <asp:Timer ID="Timer1" runat="server" Interval="1000"> </asp:Timer> </telerik:RadAjaxPanel> </div> </div> <div style="clear:left;"> </div> <div id="divData1" class="TableTextoMedio" style="float:left; padding-top:20px;"> <table class="style1"> <tr> <td class="style10"> Account:</td> <td> <telerik:RadTextBox ID="txtRadAccount" Runat="server" EmptyMessage="Account" LabelWidth="" Width="160px"> <EmptyMessageStyle Font-Italic="False" /> </telerik:RadTextBox> </td> </tr> <tr> <td class="style10"> Desired Delivery Date:</td> <td> <telerik:RadDateTimePicker ID="RadDateTimePicker1" Runat="server" Culture="es-ES"> <TimeView CellSpacing="-1" Culture="es-ES"></TimeView> <TimePopupButton ImageUrl="" HoverImageUrl=""></TimePopupButton> <Calendar UseRowHeadersAsSelectors="False" UseColumnHeadersAsSelectors="False" ViewSelectorText="x" ShowRowHeaders="False"> <SpecialDays> <telerik:RadCalendarDay Repeatable="Today" Date="" ItemStyle-CssClass="rcToday" /> </SpecialDays> </Calendar> <DateInput DisplayDateFormat="dd/MM/yyyy" DateFormat="dd/MM/yyyy" LabelWidth="" EmptyMessage="Delivery Date"> </DateInput> <DatePopupButton ImageUrl="" HoverImageUrl=""></DatePopupButton> </telerik:RadDateTimePicker> </td> </tr> <tr> <td class="style10"> Time Zone:</td> <td> <telerik:RadComboBox ID="cmbRadTimeZone" Runat="server" DataSourceID="XmlDataSourceTimeZones" DataTextField="Text" DataValueField="value" Width="200px" DropDownWidth="500px" HighlightTemplatedItems="True"> <ItemTemplate> <div class="combo-item-template" style="font-size:11px"> <%# Eval("Text") %> </div> </ItemTemplate> </telerik:RadComboBox> <asp:XmlDataSource ID="XmlDataSourceTimeZones" runat="server" DataFile="~/App_Data/TimeZones.xml"></asp:XmlDataSource> </td> </tr> </table> </div> <div id="divData2" class="TableTextoMedio" style="float: left; padding-left:50px; padding-top:20px;"> <table class="style1"> <tr> <td class="style11"> Purchase Order:</td> <td> <telerik:RadTextBox ID="txtRadPO" Runat="server" EmptyMessage="Purchase Order" LabelWidth="" Width="160px"> <EmptyMessageStyle Font-Italic="False" /> </telerik:RadTextBox> </td> </tr> <tr> <td class="style11"> Client Project Code:</td> <td> <telerik:RadTextBox ID="txtRadClientCode" Runat="server" EmptyMessage="Client Project Code" LabelWidth="" Width="160px"> <EmptyMessageStyle Font-Italic="False" /> </telerik:RadTextBox> </td> </tr> </table> </div> <div id="div1" class="TableTextoMedio" style="float: left; padding-left:10px; padding-top:20px;"> <asp:CheckBox ID="chkPONA" runat="server" Text=" Tick if PO is not applicable" AutoPostBack="True" /> </div> <div style="clear:both"> </div> <br /> <div id="divSourceLanguage" class="TableTextoMedio" style="float:left;"> <table class="style1"> <tr> <td class="style3"> <b>Source Language:</b></td> <td> </td> </tr> <tr> <td> <telerik:RadListBox ID="lstRadSouceLangLista" runat="server" Height="110px" Width="250px" AllowTransfer="True" TransferToID="lstRadSouceLangSelected" AutoPostBackOnTransfer="True" EnableMarkMatches="True" AllowTransferOnDoubleClick="True" DataKeyField="Variante" DataSortField="Nombre" DataTextField="Nombre" DataValueField="Variante" Sort="Ascending"> <ButtonSettings TransferButtons="Common" ShowDelete="False" ShowTransferAll="False"></ButtonSettings> </telerik:RadListBox> </td> <td> <telerik:RadListBox ID="lstRadSouceLangSelected" runat="server" Height="110px" Width="220px" EnableMarkMatches="True" Font-Bold="True" AllowTransferOnDoubleClick="True" > </telerik:RadListBox> </td> </tr> </table> </div> <div id="divTargetLanguages" class="TableTextoMedio" style="float:left; padding-left:50px;"> <table class="style1"> <tr> <td class="style3"> <b>Target Languages:</b></td> <td> </td> </tr> <tr> <td> <telerik:RadListBox ID="lstRadTargetLangLista" runat="server" Height="110px" Width="250px" AllowTransfer="True" AllowTransferOnDoubleClick="True" SelectionMode="Multiple" TransferToID="lstRadTargetLangSelected" EnableMarkMatches="True" DataKeyField="Variante" DataSortField="Nombre" DataTextField="Nombre" DataValueField="Variante"> </telerik:RadListBox> </td> <td> <telerik:RadListBox ID="lstRadTargetLangSelected" runat="server" Height="110px" Width="220px" EnableMarkMatches="True" Font-Bold="True" ForeColor="Red" AllowTransferOnDoubleClick="True"> </telerik:RadListBox> </td> </tr> </table> </div> <div style="clear:both"> </div> <br /> <br /> <div id="divTasks" class="TableTextoMedio" style="float:left;"> <table class="style1"> <tr> <td class="style3"> <b>Tasks to be performed:</b></td> <td> </td> </tr> <tr> <td> <telerik:RadListBox ID="lstRadTasksList" runat="server" Height="110px" Width="250px" AllowTransfer="True" AllowTransferOnDoubleClick="True" SelectionMode="Multiple" TransferToID="lstRadTasksSelected" EnableMarkMatches="True" DataKeyField="idTarea" DataSortField="Orden" DataTextField="Descripcion" DataValueField="idTarea"> </telerik:RadListBox> </td> <td> <telerik:RadListBox ID="lstRadTasksSelected" runat="server" Height="110px" Width="220px" EnableMarkMatches="True" Font-Bold="True" ForeColor="Red" AllowTransferOnDoubleClick="True"> </telerik:RadListBox> </td> </tr> </table> <br /> <br /> <div id="div_ttools" style="float:left;"> <div style="padding-left:2px; padding-bottom:3px"> <strong>Translation tool:</strong> </div> <table class="style4"> <tr> <td class="style8"> <telerik:RadComboBox ID="cmbRadTTools" runat="server" DataSourceID="EntityDataSourceTools" DataTextField="Nombre" DataValueField="idTTool" EnableTextSelection="False" MarkFirstMatch="True" Sort="Ascending" Width="200px" AutoPostBack="True" CheckBoxes="True" DropDownWidth="230px"> </telerik:RadComboBox> </td> </tr> <tr> <td class="style8"> </td> </tr> <tr> <td class="style8" > <div id="div_OtherTTool" runat="server" style="visibility:hidden"> <telerik:RadTextBox ID="txtRadOtherTTool" Runat="server" EmptyMessage="Please indicate" LabelWidth="" Width="190px"> <EmptyMessageStyle Font-Italic="True"/> </telerik:RadTextBox> </div> </td> </tr> </table> </div> <div id="div_hiddentext" style="float:left; padding-left:40px"> <div style="padding-left:2px; padding-bottom:3px"> <strong>Is there hidden text?</strong> </div> <table class="style4"> <tr> <td class="style8"> <asp:RadioButton ID="radioHiddenTextYes" runat="server" Checked="True" GroupName="grpHiddenText" Text=" Yes" /> </td> <td> </td> </tr> <tr> <td class="style8"> <asp:RadioButton ID="radioHiddenTextNo" runat="server" GroupName="grpHiddenText" Text=" No" Checked="True" /> </td> <td> </td> </tr> <tr> <td class="style8"> <asp:RadioButton ID="radioHiddenTextDontKnow" runat="server" GroupName="grpHiddenText" Text=" Don't know" /> </td> <td> </td> </tr> </table> </div> </div> <div id="divTranslate" class="TableTextoMedio" style="float:left; padding-left:50px;"> <div style="padding-left:2px; padding-bottom:3px"> <strong>Translate:</strong> </div> <table class="style4"> <tr> <td> <table> <tr> <td class="style7"> <asp:RadioButton ID="radioTranslateAll" runat="server" Checked="True" GroupName="grpTranslate" Text="All" AutoPostBack="True" /> </td> </tr> <tr> <td class="style7"> <asp:RadioButton ID="radioTranslateSelect" runat="server" GroupName="grpTranslate" Text="Select" AutoPostBack="True" /> </td> </tr> </table> <table style="padding-left:15px"> <tr> <td class="style7"> <asp:CheckBox ID="chkTranslateText" runat="server" Text=" Text" Enabled="False" /> </td> </tr> <tr> <td class="style7"> <asp:CheckBox ID="chkTranslateTextBoxes" runat="server" Text=" Text boxes" Enabled="False" /> </td> </tr> <tr> <td class="style7"> <asp:CheckBox ID="chkTranslateImages" runat="server" Text=" Images" Enabled="False" /> </td> </tr> <tr> <td class="style7" style="vertical-align:top";> <asp:CheckBox ID="chkTranslateOther" runat="server" Text=" Other:" AutoPostBack="True" Enabled="False" /> </td> </tr> <tr> <td class="style7" style="vertical-align:top";> <telerik:RadTextBox ID="txtRadTranslateOther" Runat="server" EmptyMessage="Elements to be translated" LabelWidth="" TextMode="MultiLine" Width="100%" Rows="8" Enabled="False"> <emptymessagestyle font-italic="False" /> </telerik:RadTextBox> </td> </tr> </table> </td> </tr> </table> </div> <div id="divFormats" class="TableTextoMedio" style="float:left; padding-left:60px;"> <div style="padding-left:2px; padding-bottom:3px"> <strong>Delivery format:</strong> </div> <table class="style4"> <tr> <td class="style7"> <asp:CheckBox ID="chkDeliverySource" runat="server" Text=" Source format" Checked="True" /> </td> </tr> <tr> <td class="style7" style="vertical-align:top";> <asp:CheckBox ID="chkDeliveryOther" runat="server" Text=" Other:" AutoPostBack="True" /> </td> </tr> <tr> <td class="style7" style="vertical-align:top";> <telerik:RadTextBox ID="txtRadDeliveryOther" Runat="server" EmptyMessage="Describe the formats you desire" LabelWidth="" TextMode="MultiLine" Width="100%" Rows="8" Enabled="False"> <emptymessagestyle font-italic="False" /> </telerik:RadTextBox> </td> </tr> </table> </div> <div style="clear:both"> </div> <br /> <div id="divInstructions" class="TableTextoMedio"> <div style="padding-left:2px; padding-bottom:3px"> <strong>Translation Instructions:</strong> </div> <table class="style1"> <tr> <td> <telerik:RadTextBox ID="RadTextBox1" Runat="server" EmptyMessage="Type translation instructions" LabelWidth="" TextMode="MultiLine" Width="740px" Rows="10"> <emptymessagestyle font-italic="True" /> </telerik:RadTextBox> </td> </tr> </table> </div> <br /> <br /> <div class="TableTextoPeque"> <asp:Button ID="Button1" runat="server" Text="Create project" /> </div> <telerik:RadToolTipManager ID="RadToolTipManager1" runat="server" HideEvent="LeaveTargetAndToolTip" RenderInPageRoot="True" OnAjaxUpdate="OnAjaxUpdate" AutoCloseDelay="0" EnableShadow="True" Position="BottomLeft" RelativeTo="Mouse" Width="400px" ShowDelay="0" > <TargetControls> <telerik:ToolTipTargetControl TargetControlID="imgStatusCrearProyecto" IsClientID="false" /> </TargetControls> </telerik:RadToolTipManager> <telerik:RadSkinManager ID="RadSkinManager1" Runat="server" Skin="Office2007"> </telerik:RadSkinManager> <asp:EntityDataSource ID="EntityDataSourceTools" runat="server" ConnectionString="name=Extranet_JSProjects_Entities" DefaultContainerName="Extranet_JSProjects_Entities" EnableFlattening="False" EntitySetName="js_TranslationTools" Select="it.[idTTool], it.[Nombre]"> </asp:EntityDataSource></asp:Content>
CreateProject.aspx.vb
Imports Telerik.Web.UI
Imports System.Data
Imports Extranet_JSProjects_Model
Partial Class Web_Clients_CreateProject
Inherits System.Web.UI.Page
Public Class ErroresAlCrearProyecto
Private _Campo As String
Public Property Campo As String
Get
Return _Campo
End Get
Set(value As String)
_Campo = value
End Set
End Property
Private _DescripcionError As String
Public Property DescripcionError As String
Get
Return _DescripcionError
End Get
Set(value As String)
_DescripcionError = value
End Set
End Property
End Class
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
CargarIdiomas(lstRadSouceLangLista)
CargarIdiomas(lstRadTargetLangLista)
lstRadSouceLangLista.ButtonSettings.TransferButtons = ListBoxTransferButtons.TransferFrom
lstRadSouceLangLista.Sort = RadListBoxSort.Ascending
lstRadSouceLangLista.SortItems()
lstRadTargetLangLista.Sort = RadListBoxSort.Ascending
lstRadTargetLangLista.SortItems()
CargarTareas(lstRadTasksList)
div_OtherTTool.Attributes("style") = "visibility:hidden"
RadDateTimePicker1.MinDate = Now
'RadToolTipManager1.TargetControls.Add(imgStatusCrearProyecto.ClientID, True)
txtRadProjectName.Focus()
End If
End Sub
Protected Sub CargarIdiomas(lista As RadListBox)
Using myProjectsEntities As New Extranet_JSProjects_Entities
Dim query = From v In myProjectsEntities.js_IdiomasVariantes Join i In myProjectsEntities.js_Idiomas On v.IdiomaPadre Equals i.IdiomaId
Select New With {.Nombre = i.Nombre, .Variante = v.Nombre, .IdiomaId = i.IdiomaId, .IdiomaVarianteId = v.IdiomaVarianteId}
For Each v In query
Dim texto As String
Dim valor As Integer
texto = v.Nombre & " - " & v.Variante
valor = v.IdiomaVarianteId
Dim elemento As New RadListBoxItem
elemento.Text = texto
elemento.Value = valor
lista.Items.Add(elemento)
Next
End Using
End Sub
Protected Sub CargarTareas(lista As RadListBox)
Using myProjectsEntities As New Extranet_JSProjects_Entities
Dim query = From t In myProjectsEntities.js_TareasTraduccion
Order By t.Orden
Select t
For Each t In query
Dim texto As String
Dim valor As Integer
texto = t.Descripcion
valor = t.idTarea
Dim elemento As New RadListBoxItem
elemento.Text = texto
elemento.Value = valor
lista.Items.Add(elemento)
Next
End Using
End Sub
Protected Sub Timer1_Tick(sender As Object, e As System.EventArgs) Handles Timer1.Tick
Dim NumeroDeErrores As Integer = 0
'Nombre del proyecto
If txtRadProjectName.Text.Length = 0 Then
NumeroDeErrores = NumeroDeErrores + 1
End If
'Purchase Order
If txtRadPO.Text.Length = 0 And chkPONA.Checked = False Then
NumeroDeErrores = NumeroDeErrores + 1
End If
If NumeroDeErrores = 0 Then
'RadToolTipManager1.TargetControls.Clear()
imgStatusCrearProyecto.ImageUrl = "~/Resources/Icons/check-icon.jpg"
Else
'RadToolTipManager1.TargetControls.Add(imgStatusCrearProyecto.ClientID, True)
imgStatusCrearProyecto.ImageUrl = "~/Resources/Icons/cross-icon.jpg"
End If
End Sub
Private Sub AgregarError(Campo As String, Descripcion As String, ListaDeErrores As List(Of ErroresAlCrearProyecto))
Dim ErrorEnCurso As New ErroresAlCrearProyecto
ErrorEnCurso.Campo = Campo
ErrorEnCurso.DescripcionError = Descripcion
ListaDeErrores.Add(ErrorEnCurso)
End Sub
Protected Sub OnAjaxUpdate(sender As Object, e As ToolTipUpdateEventArgs)
Dim ListaDeErrores As New List(Of ErroresAlCrearProyecto)
Using myEntities As New Extranet_JSProjects_Entities
'Eliminar todos los registros que haya en la tabla
Dim query = From r In myEntities.js_ErroresCrearProyecto
Select r
For Each r In query
myEntities.js_ErroresCrearProyecto.DeleteObject(r)
Next
'Añadir el error a la tabla js_ErroresCrearProyecto
'Nombre del proyecto
If txtRadProjectName.Text.Length = 0 Then
AgregarError("Project Name", "Enter a project name", ListaDeErrores)
End If
'Purchase Order
If txtRadPO.Text.Length = 0 And chkPONA.Checked = False Then
AgregarError("Purchase Order", "Enter a PO or tick the checkbox", ListaDeErrores)
End If
For Each r In ListaDeErrores
Dim NuevoError As New js_ErroresCrearProyecto
NuevoError.Campo = r.Campo
NuevoError.Descripcion = r.DescripcionError
myEntities.AddTojs_ErroresCrearProyecto(NuevoError)
Next
myEntities.SaveChanges()
End Using
Dim panel As New UpdatePanel
panel = e.UpdatePanel
Dim ctrl As Control = Page.LoadControl("CreateProjectErrors.ascx")
panel.ContentTemplateContainer.Controls.Add(ctrl)
End Sub
Protected Sub Button1_Click(sender As Object, e As System.EventArgs) Handles Button1.Click
Response.Redirect("UploadFiles.aspx")
End Sub
Protected Sub RadListBox2_Deleted(sender As Object, e As Telerik.Web.UI.RadListBoxEventArgs) Handles lstRadSouceLangSelected.Deleted
lstRadSouceLangLista.ButtonSettings.TransferButtons = ListBoxTransferButtons.TransferFrom
lstRadSouceLangLista.AllowTransferOnDoubleClick = True
lstRadSouceLangSelected.AllowTransferOnDoubleClick = False
End Sub
Protected Sub RadListBox2_Inserted(sender As Object, e As Telerik.Web.UI.RadListBoxEventArgs) Handles lstRadSouceLangSelected.Inserted
lstRadSouceLangLista.ButtonSettings.TransferButtons = ListBoxTransferButtons.TransferTo
lstRadSouceLangLista.AllowTransferOnDoubleClick = False
lstRadSouceLangSelected.AllowTransferOnDoubleClick = True
End Sub
Protected Sub RadComboBoxTTools_DataBound(sender As Object, e As System.EventArgs) Handles cmbRadTTools.DataBound
cmbRadTTools.SortItems()
'Seleccionar por omisión la opción "No choice"
For Each elemento As RadComboBoxItem In cmbRadTTools.Items
If elemento.Text = AppConfiguration._String_NoChoice Then
elemento.Selected = True
elemento.Checked = True
End If
Next
End Sub
Protected Sub cmbRadTTools_ItemChecked(sender As Object, e As Telerik.Web.UI.RadComboBoxItemEventArgs) Handles cmbRadTTools.ItemChecked
'Si se selecciona "No Choice" se deseleccionan todos los demás
'Se se selecciona cualquier otro se deselecciona "No Choice"
If e.Item.Text = AppConfiguration._String_NoChoice Then
For Each elemento As RadComboBoxItem In cmbRadTTools.Items
If elemento.Text <> AppConfiguration._String_NoChoice Then
elemento.Checked = False
End If
Next
Else
For Each elemento As RadComboBoxItem In cmbRadTTools.Items
If elemento.Text = AppConfiguration._String_NoChoice Then
elemento.Checked = False
End If
Next
End If
If e.Item.Text = AppConfiguration._String_Other And e.Item.Checked = True Then
div_OtherTTool.Attributes("style") = "visibility:visible"
End If
If e.Item.Text = AppConfiguration._String_Other And e.Item.Checked = False Then
div_OtherTTool.Attributes("style") = "visibility:hidden"
End If
e.Item.Selected = True
'Si no hay ningún elemento seleccionado, seleccionar "No Choice"
If cmbRadTTools.CheckedItems.Count = 0 Then
For Each elemento As RadComboBoxItem In cmbRadTTools.Items
If elemento.Text = AppConfiguration._String_NoChoice Then
elemento.Checked = True
elemento.Selected = True
End If
Next
End If
End Sub
Protected Sub chkPONA_CheckedChanged(sender As Object, e As System.EventArgs) Handles chkPONA.CheckedChanged
If chkPONA.Checked = True Then
txtRadPO.Enabled = False
Else
txtRadPO.Enabled = True
End If
End Sub
Protected Sub cmbRadTimeZone_DataBound(sender As Object, e As System.EventArgs) Handles cmbRadTimeZone.DataBound
'Seleccionar la zona horaria del usuario
For Each elemento As RadComboBoxItem In cmbRadTimeZone.Items
Dim valor = Convert.ToDouble(elemento.Value)
If valor = Profile.TimeZone Then
elemento.Selected = True
End If
Next
End Sub
Protected Sub radioTranslateSelect_CheckedChanged(sender As Object, e As System.EventArgs) Handles radioTranslateSelect.CheckedChanged
chkTranslateImages.Enabled = CType(sender, RadioButton).Checked
chkTranslateText.Enabled = CType(sender, RadioButton).Checked
chkTranslateTextBoxes.Enabled = CType(sender, RadioButton).Checked
chkTranslateOther.Enabled = CType(sender, RadioButton).Checked
End Sub
Protected Sub radioTranslateAll_CheckedChanged(sender As Object, e As System.EventArgs) Handles radioTranslateAll.CheckedChanged
chkTranslateImages.Enabled = Not CType(sender, RadioButton).Checked
chkTranslateText.Enabled = Not CType(sender, RadioButton).Checked
chkTranslateTextBoxes.Enabled = Not CType(sender, RadioButton).Checked
chkTranslateOther.Enabled = Not CType(sender, RadioButton).Checked
End Sub
Protected Sub chkTranslateOther_CheckedChanged(sender As Object, e As System.EventArgs) Handles chkTranslateOther.CheckedChanged
txtRadTranslateOther.Enabled = CType(sender, CheckBox).Checked
End Sub
Protected Sub chkDeliveryOther_CheckedChanged(sender As Object, e As System.EventArgs) Handles chkDeliveryOther.CheckedChanged
txtRadDeliveryOther.Enabled = CType(sender, CheckBox).Checked
End Sub
End Class
CreateProjectErrors.ascx
<%@ Control Language="VB" AutoEventWireup="false" CodeFile="CreateProjectErrors.ascx.vb" Inherits="Web_Clients_WebUserControl" %>
<%@ Register TagPrefix="telerik" Namespace="Telerik.Web.UI" Assembly="Telerik.Web.UI" %>
<table width="360px" cellpadding="1">
<tr>
<td style="width:150px;">
<strong>Field</strong>
</td>
<td style="width:200px;">
<strong>Error</strong>
</td>
</tr>
<tr>
<td >
</td>
<td >
</td>
</tr>
<asp:Repeater ID="repeaterErroresCrearProyecto" runat="server">
<ItemTemplate>
<tr>
<td>
<%# Eval("Campo")%>
</td>
<td>
<%# Eval("Descripcion")%>
</td>
</tr>
</ItemTemplate>
</asp:Repeater>
</table>
<asp:EntityDataSource ID="EntityDataSource1" runat="server" ConnectionString="name=Extranet_JSProjects_Entities"
DefaultContainerName="Extranet_JSProjects_Entities" EnableFlattening="False" EntitySetName="js_ErroresCrearProyecto"
Select="it.[Campo], it.[Descripcion]">
</asp:EntityDataSource>
CreateProject.ascx.vb
Partial Class Web_Clients_WebUserControl
Inherits System.Web.UI.UserControl
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
repeaterErroresCrearProyecto.DataSource = EntityDataSource1
repeaterErroresCrearProyecto.DataBind()
End Sub
End Class