Public Sub InstantiateIn(ByVal container As Control) Implements System.Web.UI.ITemplate.InstantiateIn |
Dim MainDiv As HtmlGenericControl |
Dim ImgDiv As HtmlGenericControl |
Dim LabelDiv As HtmlGenericControl |
Dim img As Image |
Dim pop As RadToolTip |
Dim popExtender As RadToolTip |
Dim lbl As Label |
Try |
|
'Create main div |
MainDiv = New HtmlGenericControl("div") |
MainDiv.ID = "divMenu" |
MainDiv.Attributes.Add("class", "TreeViewDiv") |
MainDiv.Attributes.Add("runat", "server") |
|
ImgDiv = New HtmlGenericControl("div") |
ImgDiv.ID = "div2" |
ImgDiv.Attributes.Add("runat", "server") |
MainDiv.Controls.Add(ImgDiv) |
|
LabelDiv = New HtmlGenericControl("div") |
LabelDiv.ID = "div3" |
LabelDiv.Attributes.Add("runat", "server") |
LabelDiv.Attributes.Add("style", "overflow:hidden") |
MainDiv.Controls.Add(LabelDiv) |
|
'Create the head image and add to main div |
img = New Image |
img.ID = "imgMenu" |
img.Attributes.Add("runat", "server") |
img.ImageUrl = "../images/head.png" |
img.ImageAlign = ImageAlign.Left |
img.Visible = False |
img.Style.Add("padding-top", "3px") |
img.Style.Add("padding-left", "1px") |
img.Style.Add("padding-right", "3px") |
ImgDiv.Controls.Add(img) |
|
'Create the label and add to main div |
lbl = New Label |
lbl.ID = "ItemLabel" |
lbl.Style.Add("font-size", "0.8em") |
LabelDiv.Controls.Add(lbl) |
|
'Create popup control |
pop = New RadToolTip |
pop.Attributes.Add("runat", "server") |
pop.TargetControlID = "imgMenu" |
pop.Position = ToolTipPosition.BottomLeft |
pop.RelativeTo = ToolTipRelativeDisplay.Element |
pop.AutoCloseDelay = 30000 |
pop.Skin = "Outlook" |
pop.Title = "Users" |
pop.ID = "RadTip" |
pop.OffsetY = -5 |
pop.OffsetX = -2 |
|
popExtender = New RadToolTip |
popExtender.Attributes.Add("runat", "server") |
popExtender.TargetControlID = "div3" |
popExtender.Position = ToolTipPosition.TopRight |
popExtender.RelativeTo = ToolTipRelativeDisplay.Element |
popExtender.AutoCloseDelay = 30000 |
popExtender.Skin = "Vista" |
popExtender.ID = "RadTipNodeName" |
popExtender.OffsetY = -5 |
'popExtender.OffsetX = -300 |
|
'Attach to the treeview |
container.Controls.Add(pop) |
container.Controls.Add(popExtender) |
container.Controls.Add(MainDiv) |
|
Catch ex As Exception |
|
End Try |
End Sub |