<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="Default.aspx.vb" Inherits="RadControlsWebApp8._Default" %><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head id="Head1" runat="server"> <title></title> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <meta http-equiv="expires" content="-1" /> <meta http-equiv="pragma" content="no-cache" /> <link href="./main.css" rel="Stylesheet" type="text/css" /></head><body> <form id="frmMain" runat="server"> <telerik:RadScriptManager ID="RadScriptManager1" runat="server" OutputCompression="Disabled"> <Scripts> <asp:ScriptReference Assembly="Telerik.Web.UI" Name="Telerik.Web.UI.Common.Core.js" /> <asp:ScriptReference Assembly="Telerik.Web.UI" Name="Telerik.Web.UI.Common.jQuery.js" /> <asp:ScriptReference Assembly="Telerik.Web.UI" Name="Telerik.Web.UI.Common.jQueryInclude.js" /> </Scripts> </telerik:RadScriptManager> <telerik:RadAjaxManager ID="RadAjaxManager1" runat="server"> </telerik:RadAjaxManager> <div id="divContents"> <table style="width: 800px; text-align: center; margin: 0 auto;"> <tr> <td colspan="2" style="width: 800px"> <asp:DropDownList ID="DropDownList1" runat="server"> </asp:DropDownList> </td> </tr> <tr> <td colspan="2" style="width: 100%;"> <asp:Button ID="Button1" runat="server" Text="Print SelectedIndex" /> </td> </tr> <tr> <td colspan="2" style="width: 800px"> <asp:Label ID="Label1" runat="server"></asp:Label> </td> </tr> </table> <table style="width: 800px; text-align: center; margin: 0 auto;"> <tr> <td colspan="2" style="width: 800px;"> <h2> Input Manager Control</h2> </td> </tr> <tr> <td class="tdLeftContent"> Numbers Only </td> <td class="tdRightcontent"> <asp:TextBox ID="TextBox1" runat="server"></asp:TextBox> ex) 12345679 </td> </tr> <tr> <td class="tdLeftContent"> Currency </td> <td class="tdRightcontent"> <asp:TextBox ID="TextBox2" runat="server"></asp:TextBox> ex) 79.90 </td> </tr> <tr> <td colspan="2"> <asp:Button ID="Button2" runat="server" Text="Print Result" /> </td> </tr> <tr> <td colspan="2" style="text-align: left; padding-left: 200px;"> <asp:Label ID="Label2" runat="server" Text="Label" Visible="False"></asp:Label><br /> </td> </tr> </table> </div> <telerik:RadInputManager ID="RadInputManager1" runat="server"> <telerik:NumericTextBoxSetting BehaviorID="NumericBehavior1" EmptyMessage="type here" ErrorMessage="Numbers Only" DecimalDigits="0" Culture="en-us" Type="Number" Validation-IsRequired="true"> <TargetControls> <telerik:TargetInput ControlID="TextBox1" /> </TargetControls> </telerik:NumericTextBoxSetting> <telerik:NumericTextBoxSetting BehaviorID="NumericBehavior2" EmptyMessage="type here" ErrorMessage="Numbers Only" DecimalDigits="0" Culture="en-us" Type="Currency" Validation-IsRequired="true"> <TargetControls> <telerik:TargetInput ControlID="TextBox2" /> </TargetControls> </telerik:NumericTextBoxSetting> </telerik:RadInputManager> </form></body></html>Imports Telerik.Web.UIPartial Class _Default Inherits System.Web.UI.Page Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load If (DropDownList1.Items.Count = 0) Then Dim listItemDummy As New ListItem listItemDummy.Value = "" listItemDummy.Text = "" DropDownList1.Items.Add(listItemDummy) For i As Integer = 0 To 10 Dim listItem As New ListItem() listItem.Text = (i + 1) listItem.Value = (i + 1) DropDownList1.Items.Add(listItem) Next End If End Sub Protected Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Dim dropDownListIndex As String = DropDownList1.SelectedIndex.ToString() Label2.Text = TextBox1.Text + " AND " + TextBox2.Text End Sub Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim dropDownListIndex As String = DropDownList1.SelectedIndex.ToString() Label1.Text = "SelectedIndex: " + dropDownListIndex End SubEnd ClassWhat I have set up is a RadComboBox with:
AllowCustomText = true
CheckBoxes = true
EnableLoadOnDemand = true
OnItemsRequested = MyFunctionToGetColumns
Text="PreviouslySavedText"
Everything works as expected, except the input isn't filled with the Text value.
My workaround for now is to set the EmptyMessage to the PreviouslySavedText. Is there a better way to set the text on load?
<telerik:RadComboBox runat="server" ID="rcbPerson" Width="400px" EnableLoadOnDemand="true" ShowMoreResultsBox="true" EnableVirtualScrolling="true" Filter="Contains" OnClientSelectedIndexChanged="RefreshPerson" EmptyMessage="Type here ..." AllowCustomText="True" > <WebServiceSettings Path="Autocomplete.svc" Method="GetPersons" /> </telerik:RadComboBox><system.serviceModel> <behaviors> <serviceBehaviors> <behavior name=""> <serviceMetadata httpGetEnabled="true"/> <serviceDebug includeExceptionDetailInFaults="false"/> </behavior> </serviceBehaviors> <endpointBehaviors> <behavior name="AjaxBehavior"> <enableWebScript/> </behavior> </endpointBehaviors> </behaviors> <serviceHostingEnvironment multipleSiteBindingsEnabled="true" aspNetCompatibilityEnabled="true" /> <services> <service name="AeroCDB.Autocomplete"> <endpoint address="" behaviorConfiguration="AjaxBehavior" bindingConfiguration="webHttpBindingConfig" binding="webHttpBinding" contract="AeroCDB.Autocomplete"> </endpoint> </service> </services> <bindings> <webHttpBinding> <binding name="webHttpBindingConfig"> <security mode="TransportCredentialOnly"> <transport clientCredentialType="Windows"/> </security> </binding> </webHttpBinding> </bindings> </system.serviceModel>Hi All,
My client had just updated to IE9 and they found an issue with the Scrolling TabStip: when they resize the IE window, all “hidden tab items” are pushed to second row. IE7/8 do not have this problem. We found similar issue can be reproduced on Telerik Demo page:
http://demos.telerik.com/aspnet-ajax/tabstrip/examples/functionality/scrolling/defaultcs.aspx
is this can be solved?
Many thanks!
var itemsinrotator = rot.getItemHtmlElements().length;for (var i = 0; i < itemsinrotator; i++) { rot.addRotatorItem("<div height='64'> </div>", 0);}<
script type="text/javascript">
function ClientDoubleClick(sender, args) {
var node = args.get_node();
args.set_cancel(
true);
}
function ClientNodeClicking(sender, args) {
var node = args.get_node();
args.set_cancel(
true);
}
function ClientNodeExpanded(sender, args) {
var node = args.get_node();
if (node.get_level() == 0) {
args.set_cancel(
true);
}
else {
ResetNodes(node,
"up");
ResetNodes(node,
"down");
var attributes = node.get_attributes();
var level = node.get_level();
var nodeID = attributes.getAttribute("nodeID");
var nodeDiv = document.getElementById(nodeID);
var nextNodeDiv;
if (node.get_nextNode() != null) {
var nextNode = node.get_nextNode();
var nextNodeAttributes = nextNode.get_attributes();
var nextNodeID = nextNodeAttributes.getAttribute("nodeID");
nextNodeDiv = document.getElementById(nextNodeID);
}
if (level == 1) {
var endTreeViewDiv = document.getElementById("ctl00_CardinalLeftNav_endTreeView");
endTreeViewDiv.className =
"cahCollaspedEnd";
nodeDiv.className =
"cahLevel1 cahExpanded1";
if (node.get_nextNode() != null)
nextNodeDiv.className =
"cahLevel1 cahSiblingExpanded1";
else
endTreeViewDiv.className =
"cahExpandedEnd";
}
else if (level == 2) {
nodeDiv.className =
"cahLevel2 cahExpanded2";
}
else if (level == 3) {
nodeDiv.className =
"cahLevel3 cahExpanded3";
if (node.get_nextNode() != null)
nextNodeDiv.className =
"cahLevel3 cahSiblingExpanded3";
}
else if (level == 4) {
nodeDiv.className =
"cahLevel4 cahExpanded4";
}
}
}
function ClientNodeCollapsed(sender, args) {
var node = args.get_node();
if (node.get_level() == 0) {
args.set_cancel(
true);
}
else {
ResetNodes(node,
"up");
ResetNodes(node,
"down");
}
}
function ResetNodes(node, direction) {
if (node != null) {
var attributes = node.get_attributes();
var level = node.get_level();
var nodeID = attributes.getAttribute("nodeID");
var nodeDiv = document.getElementById(nodeID);
if (level == 1) {
nodeDiv.className =
"cahLevel1";
var endTreeViewDiv = document.getElementById("ctl00_CardinalLeftNav_endTreeView");
endTreeViewDiv.className =
"cahCollaspedEnd";
}
else if (level == 2) {
nodeDiv.className =
"cahLevel2";
}
else if (level == 3) {
nodeDiv.className =
"cahLevel3";
}
else if (level == 4) {
nodeDiv.className =
"cahLevel4";
}
if (direction == "up")
ResetNodes(node.get_previousNode(), direction)
else
ResetNodes(node.get_nextNode(), direction)
}
}
</
script>
<
telerik1:RadTreeView ID="CardinalRadTreeView" runat="server" Skin="" EnableTheming="false" OnNodeExpand="RadTreeView1_NodeExpand"
SingleExpandPath="true" ShowLineImages="False" OnClientNodeExpanded="ClientNodeExpanded"
OnClientDoubleClick="ClientDoubleClick" OnClientNodeCollapsed="ClientNodeCollapsed"
OnClientNodeClicking="ClientNodeClicking"></telerik1:RadTreeView>
<%@ Control Language="VB" AutoEventWireup="false" CodeFile="LanguageSelector.ascx.vb" Inherits="UserControls_LanguageSelector" %><telerik:RadComboBox ID="LanguageSelectorComboBox" AutoPostBack="true" EnableEmbeddedSkins="true" Skin="Sitefinity" runat="server" Height="200px" Width="215px" ZIndex="9000"></telerik:RadComboBox>Protected Sub LanguageSelectorComboBox_SelectedIndexChanged(ByVal sender As Object, ByVal e As RadComboBoxSelectedIndexChangedEventArgs) Handles LanguageSelectorComboBox.SelectedIndexChanged If Page.IsPostBack Then Dim KeyVal As String = e.Value Dim languageId As Integer = Convert.ToInt32(KeyVal) Dim conn1 As New SqlConnection(Convert.ToString(Application("SiteDBConnect"))) Try conn1.Open() Catch ex As Exception Throw New ApplicationException("Error in connection=" & ex.Message & ". The requested list cannot be created.") Finally End Try Dim iRtn As Integer = 0 Dim Languages_Data As New Languages_DDC() Dim Languages_Cmds As New Languages_DUC() Dim Currencies_Data As Currencies_DDC = New Currencies_DDC Dim Currencies_Cmds As Currencies_DUC = New Currencies_DUC Dim TransTextSort_Data As TransTextSort_DDC = New TransTextSort_DDC Dim TransTextSort_Cmds As TransTextSort_DUC = New TransTextSort_DUC Dim TransTextSort_Arry As ArrayList = New ArrayList Dim iUSDKey As Integer = 1 Dim iForgnKey As Integer = 0 Dim currencyId As Integer = Session("UserCurrencyKey") Dim iDebug As Int32 = -1 Languages_Data.LanguageId = languageId iRtn = Languages_Cmds.GetSpecific(conn1, Languages_Data, iDebug, "HON") If iRtn = -1 Then If bSetSessionValue Then Session("UserLanguageKey") = Languages_Data.LanguageId Session("UserLanguageCulture") = Languages_Data.LanguageTransCulture Session("UserLanguageName") = Languages_Data.LanguageEnglishName Session("UserChangedLanguage") = "Yes" Session("UserLanguageNum") = GetNewLangKeyStringValue(Languages_Data.LanguageId) ' Now we need to change the names of the session currency info so it is in the newly selected language Dim sLangName As String = GetNewLangKeyStringValue(Session("UserLanguageKey")) Dim sFieldToPopulate As String = "TextSortLang" & sLangName iRtn = TransTextSort_Cmds.GetAllByTextSort_Currency(conn1, TransTextSort_Arry, currencyId, -1, "HON Currency Change") For Each TransTextSort_Data In TransTextSort_Arry 'Session("USDLanguageName") = "United States Dollar" 'Session("NativeCurrencyLanguageName") = "United States Dollar" Session("NativeCurrencyLanguageName") = TransTextSort_Cmds.GetField(TransTextSort_Data, sFieldToPopulate) ' There can only be one record in this array, so force an exit after processing the first record ' to protect us from something squirrely happening Exit For Next ' Now get the native language name for the USD, unless we already have it If currencyId = 1 Then Session("USDLanguageName") = Session("NativeCurrencyLanguageName") Else TransTextSort_Arry = New ArrayList iRtn = TransTextSort_Cmds.GetAllByTextSort_Currency(conn1, TransTextSort_Arry, 1, -1, "HON Currency Change") For Each TransTextSort_Data In TransTextSort_Arry Session("USDLanguageName") = TransTextSort_Cmds.GetField(TransTextSort_Data, sFieldToPopulate) ' There can only be one record in this array, so force an exit after processing the first record ' to protect us from something squirrely happening Exit For Next End If End If If bReloadPage Then Response.Redirect(HttpContext.Current.Request.RawUrl, True) End If End If conn1.Close() conn1 = Nothing End IfEnd Sub