RadTileList example code

This is a simple example of how to code the RadTileList. The code in the code behind could probably have been put in the markup... but that's the way that it evolved.

Related Articles

... and you 'll find more on the Telerik ASPNET Menu

 

<telerik:RadTileList runat="server" ID="RadTileList1" AppendDataBoundItems="false"
    TileRows="4">
    <DataBindings>
        <CommonTileBinding TileType="RadImageAndTextTile" Shape="Square" DataNavigateUrlField="NavigateUrl" />
        <ImageAndTextTileBinding DataTextField="FolderDesc" DataImageUrlField="FirstImageRelative" />
        <TilePeekTemplate>
            <div class="peekTemplateClass">
                <%# Eval("FolderDesc")%>
            </div>
        </TilePeekTemplate>
    </DataBindings>
 
</telerik:RadTileList>

Code Behind

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    Me.RadTileList1.DataSource = GetFolders().AsEnumerable.Reverse.CopyToDataTable
    RadTileList1.DataBind()
End Sub
 
Protected Sub RadTileList1_OnTileCreated(sender As Object, e As TileListEventArgs) Handles RadTileList1.TileCreated
    'work with common settings for all tiles
    e.Tile.PeekTemplateSettings.ShowInterval = 0
    e.Tile.PeekTemplateSettings.CloseDelay = 0
    e.Tile.PeekTemplateSettings.ShowPeekTemplateOnMouseOver = True
    e.Tile.PeekTemplateSettings.HidePeekTemplateOnMouseOut = True
    e.Tile.PeekTemplateSettings.AnimationDuration = 800
    'using properties specific for a given tile type - check the tile type first
    Dim tile As RadImageAndTextTile = TryCast(e.Tile, RadImageAndTextTile)
    If Not Object.Equals(tile, Nothing) Then
        tile.ImageWidth = 150
    End If
End Sub

 

 

RealWorldCode gives developers practical, real‑world solutions with clean, working code — no fluff, no theory, just answers.
Links
Home
Knowledge Areas
Sitemap
Contact
Et cetera
Privacy Policy
Terms and Conditions
Cookie Preferences