or
Public Class _Default Inherits System.Web.UI.Page Dim language As String Protected Sub RadSpell1_Init(sender As Object, e As EventArgs) Handles RadSpell1.Init RadSpell1.SupportedLanguages = New String() {"en-us", "English", "fr-fr", "French"} If language = "1" Then RadSpell1.DictionaryLanguage = "fr-fr" Else RadSpell1.DictionaryLanguage = "en-us" End If End Sub Private Sub Page_PreInit(sender As Object, e As System.EventArgs) Handles Me.PreInit If Request.QueryString.AllKeys.Contains("lang") Then language = Request.QueryString("lang").ToString End If End SubEnd Class<%@ Page Title="Home Page" Language="vb" MasterPageFile="~/Site.Master" AutoEventWireup="false" CodeBehind="Default.aspx.vb" Inherits="TelerikRadSpellPOC._Default" %><%@ Register Assembly="Telerik.Web.UI" Namespace="Telerik.Web.UI" TagPrefix="telerik" %><asp:Content ID="HeaderContent" runat="server" ContentPlaceHolderID="HeadContent"></asp:Content><asp:Content ID="BodyContent" runat="server" ContentPlaceHolderID="MainContent"> <telerik:RadScriptManager ID="RadScriptManager1" runat="server"></telerik:RadScriptManager> <h2> Welcome to ASP.NET! </h2> <div> <asp:TextBox ID="TextBox1" runat="server"></asp:TextBox> <telerik:RadSpell ID="RadSpell1" runat="server" ControlToCheck="TextBox1" /> </div></asp:Content>
<telerik:RadAjaxPanel ID="RadAjaxPanel3" runat="server" LoadingPanelID="RadAjaxLoadingPanel2" > <div style="margin: 5px 15px 0 15px; "> Search:<asp:TextBox ID="txtCode" runat="server"></asp:TextBox> <asp:ImageButton ID="btnSearchParts" runat="server" ImageUrl="~/images/icons/magnifier.png" ToolTip="Search Navision" /> <div style="float:right;"> <b>Add Kit List:</b> <telerik:RadComboBox ID="cmbKitLists" runat="server"> </telerik:RadComboBox> <asp:Button runat="server" ID="btnAddKitList" OnClick="btnAddKitList_Click" Text="Add Kit" /> </div> <div style="clear:both;"></div> </div> <br /> <b style="margin-left:15px;">Search Results</b> <telerik:RadGrid ID="grdSearchRslts" runat="server" GridLines="None" AutoGenerateColumns="False" AllowMultiRowSelection="False" AllowPaging="True" Skin="Office2007" OnNeedDataSource="grdSearchRslts_NeedsData" > <MasterTableView DataKeyNames="ItemNo"> <CommandItemSettings ExportToPdfText="Export to Pdf"></CommandItemSettings> <RowIndicatorColumn> <HeaderStyle Width="20px"></HeaderStyle> </RowIndicatorColumn> <ExpandCollapseColumn> <HeaderStyle Width="20px"></HeaderStyle> </ExpandCollapseColumn> <Columns> <telerik:GridBoundColumn DataField="ItemNo" DataType="System.Int32" HeaderText="ItemNo" SortExpression="ItemNo" UniqueName="ItemNo"> </telerik:GridBoundColumn> <telerik:GridBoundColumn DataField="VendorItemNo" DataType="System.String" HeaderText="Vendor Part Code" SortExpression="VendorItemNo" UniqueName="VendorItemNo"> </telerik:GridBoundColumn> <telerik:GridBoundColumn DataField="Description" DataType="System.String" HeaderText="Description" SortExpression="Description" UniqueName="Description"> </telerik:GridBoundColumn> <telerik:GridBoundColumn DataField="UnitPrice" DataType="System.Decimal" HeaderText="Unit Price" SortExpression="UnitPrice" HeaderStyle-Width="50px" ItemStyle-Width="50px" UniqueName="UnitPrice"> <HeaderStyle Width="60" Wrap="true" /> </telerik:GridBoundColumn> <telerik:GridBoundColumn DataField="UnitCost" DataType="System.Decimal" HeaderText="Unit Cost" SortExpression="UnitCost" HeaderStyle-Width="50px" ItemStyle-Width="50px" UniqueName="UnitCost"> <HeaderStyle Width="60" Wrap="true" /> </telerik:GridBoundColumn> <telerik:GridBoundColumn DataField="VendorName" DataType="System.String" HeaderText="Vendor" SortExpression="VendorName" UniqueName="VendorName"> </telerik:GridBoundColumn> <telerik:GridBoundColumn DataField="VendorNo" DataType="System.String" HeaderText="VendorNo" SortExpression="VendorNo" UniqueName="VendorNo" Visible="false"> </telerik:GridBoundColumn> <telerik:GridTemplateColumn UniqueName="QuantityTemplateColumns" HeaderText="Quantity" DataField="Quantity" > <ItemTemplate > <telerik:RadNumericTextBox ID="upQuantityCol" runat="server" Culture="en-GB" DbValue='<%# Convert.ToInt32(Eval("Quantity")) %>' DataType="System.Int32" MinValue="0" ShowSpinButtons="True" Skin="Office2007" SelectionOnFocus="SelectAll" Type="Number" Width="50px" Font-Size="12pt" Value="0" > <NumberFormat DecimalDigits="0" /> </telerik:RadNumericTextBox> </ItemTemplate> </telerik:GridTemplateColumn> <telerik:GridTemplateColumn UniqueName="CheckBoxTemplateColumn" > <HeaderTemplate> <asp:CheckBox id="headerChkbox" OnCheckedChanged="ToggleSelectedState" AutoPostBack="True" runat="server"></asp:CheckBox> </HeaderTemplate> <ItemTemplate> <asp:CheckBox id="CheckBox1" OnCheckedChanged="ToggleRowSelection" AutoPostBack="True" runat="server"></asp:CheckBox> </ItemTemplate> </telerik:GridTemplateColumn> </Columns> </MasterTableView> </telerik:RadGrid> <div style="margin: 0 15px 0 15px; margin-right:15px; float:left;"> <asp:Label runat="server" ID="lblSupplierTitle" Text="Supplier"></asp:Label> <asp:DropDownList ID="drpSupplier" runat="server" AutoPostBack="true"> </asp:DropDownList> <br /> <asp:Button ID="btnAddParts" runat="server" Text="Add Parts" /> </div> <div style="float:left;"> <asp:Label runat="server" ID="lblDepotTitle" Text="Depot"></asp:Label> <asp:DropDownList ID="drpSupplierDepot" runat="server"> </asp:DropDownList> </div> <div style="clear:both;"></div> <br /> </telerik:RadAjaxPanel>
<telerik:RadTreeView ID="radTVFolders" runat="server" AccessKey="T" Skin="Default" EnableEmbeddedSkins="false" CollapseAnimation-Type="Linear" ExpandAnimation-Type="Linear" EnableDragAndDrop="false" ShowLineImages="False" OnClientNodeClicked="ClientNodeClicked" OnClientNodeClicking="ClientNodeClicking">
<CollapseAnimation Type="OutSine" />
</telerik:RadTreeView>

>>> apt.get_start()Date {Thu Aug 25 2011 09:00:00 GMT-0400 (Eastern Daylight Time)}>>> this._scheduler.displayToUtc(apt.get_start())Date {Thu Aug 25 2011 09:00:00 GMT-0400 (Eastern Daylight Time)}<asp:UpdatePanel ID="RecurrenceType" runat="server" UpdateMode="Conditional"> <Triggers> <asp:PostBackTrigger ControlID="rcbName" /> </Triggers> <ContentTemplate> <table class="style1"> <tr> <td class="style4"> Name: </td> <td class="style3"> <telerik:RadComboBox ID="rcbName" runat="server" Width="406px" Height="125px" EmptyMessage="Type media item name" AllowCustomText="true" MarkFirstMatch="true" Sort="Ascending"> </telerik:RadComboBox> </td> </tr> </table> </ContentTemplate> </asp:UpdatePanel><telerik:RadPanelBar ID="RadPanelBar1" runat="server" Width="1500px" BackColor="#E6E6E6"ExpandMode="MultipleExpandedItems"> <Items> <telerik:RadPanelItem runat="server" Text="ID Picker" Expanded="true"> <Items> <telerik:RadPanelItem Text="" Expanded="true"> <ItemTemplate> <telerik:RadAjaxPanel runat="server" ID="RadAjaxPanel_Header" LoadingPanelID="RadAjaxLoadingPanel1"> <table> <tr> <td> <div class="cis_edit_label_tiny"> keyword:</div> <telerik:RadTextBox ID="radTBX_SearchBox" runat="server"> </telerik:RadTextBox><telerik:RadButton ID="radBtn_Search" runat="server" Text="Search"OnClick="radBtn_Search_Click"> </telerik:RadButton> <telerik:RadButton ID="radBtn_CurentlySelected" runat="server" Text="Show parents "OnClick="radBtn_CurentlySelected_Click" Visible="false" /> </td> <td> </td> </tr> <tr> <td> <telerik:RadGrid ID="RadGrid_IDPicker" AllowSorting="True" PageSize="100" AllowPaging="True"runat="server" GridLines="None" OnPageIndexChanged="RadGrid_IDPicker_PageIndexChanged"OnPageSizeChanged="RadGrid_IDPicker_PageSizeChanged" Width="1500px" Visible="false"OnItemDataBound="RadGrid_IDPicker_DataBound"> <MasterTableView RetrieveAllDataFields="true" AutoGenerateColumns="false" DataKeyNames="ID"> <Columns> <telerik:GridTemplateColumn UniqueName="TemplateLinkColumn" AllowFiltering="false"HeaderText="ID"> <ItemTemplate> <asp:LinkButton ID="ID_Link" runat="server" OnClick="ID_Link_Click" Text='<%#Bind("ID") %>' CommandName="Bold"></asp:LinkButton> </ItemTemplate> </telerik:GridTemplateColumn> <telerik:GridTemplateColumn HeaderText="TAG"> <ItemTemplate> <asp:Label ID="lbltag" runat="server" Text='<%#Bind("TAG") %>'></asp:Label> </ItemTemplate> </telerik:GridTemplateColumn> <telerik:GridTemplateColumn HeaderText="TAG" Visible="false"> <ItemTemplate> <asp:Label ID="lblRootLevel" runat="server" Text='<%#Bind("root_level") %>'></asp:Label> </ItemTemplate> </telerik:GridTemplateColumn> <telerik:GridBoundColumn DataField="Nom" HeaderText="Nom"> </telerik:GridBoundColumn> </Columns> </MasterTableView> <PagerStyle Mode="NextPrevAndNumeric" /> </telerik:RadGrid> </td> </tr> </table> </telerik:RadAjaxPanel> </ItemTemplate> </telerik:RadPanelItem> </Items> </telerik:RadPanelItem> </Items> </telerik:RadPanelBar> <telerik:RadScriptManager ID="RadScriptManager1" runat="server"> </telerik:RadScriptManager> <telerik:RadComboBox ID="ddlbInstituut" runat="server" AutoPostBack="true" /> <telerik:RadComboBox ID="ddlbAfdeling" runat="server" CheckBoxes="true" Width="300px" /> <asp:Button ID="Button1" runat="server" Text="Button" />Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load If Page.IsPostBack = False Then vulInstituutDropdown() End If End Sub Sub vulInstituutDropdown() Dim dsInstituten As DataSet dsInstituten = SqlHelper.ExecuteDataset(Conn, "SP_GetInstituut") With ddlbInstituut .DataSource = dsInstituten .AutoPostBack = True .ID = "ddlbInstituut" .DataTextField = "inst_omschrijving" .DataValueField = "inst_id" .DataBind() End With vulAfdelingDropdown() End Sub Private Sub vulAfdelingDropdown() Dim dsAfdelingen As DataSet dsAfdelingen = SqlHelper.ExecuteDataset(Conn, "SP_GetAfdelingen", ddlbInstituut.SelectedValue) With ddlbAfdeling .Controls.Clear() .ID = "ddlbAfdeling" .DataSource = dsAfdelingen .DataTextField = "afde_omschrijving" .DataValueField = "afde_id" .DataBind() End With End Sub Protected Sub ddlbInstituut_SelectedIndexChanged1(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlbInstituut.SelectedIndexChanged vulAfdelingDropdown() End Sub