Guest User

Untitled

a guest
Jun 21st, 2018
88
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 3.25 KB | None | 0 0
  1. <my:MyListControl runat="server">
  2. <asp:ListItem Text="Test1" Value="Test1" />
  3. <asp:ListItem Text="Test2" Value="Test2" />
  4. </my:MyListControl>
  5.  
  6. Private m_BreadCrumbs As New List(Of BreadCrumbItem)
  7.  
  8. <PersistenceMode(PersistenceMode.InnerProperty)> _
  9. Public Property Items() As List(Of BreadCrumbItem)
  10. Get
  11. Return m_BreadCrumbs
  12. End Get
  13. Set(ByVal value As List(Of BreadCrumbItem))
  14. m_BreadCrumbs = value
  15. End Set
  16. End Property
  17.  
  18. Private Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
  19. Bind()
  20. End Sub
  21.  
  22. Private Sub Bind()
  23. lvCrumbs.DataSource = Items
  24. Me.DataBind()
  25. End Sub
  26. End Class
  27.  
  28. Public Class BreadCrumbItem
  29. Private m_Text As String
  30. Public Property Text() As String
  31. Get
  32. Return m_Text
  33. End Get
  34. Set(ByVal value As String)
  35. m_Text = value
  36. End Set
  37. End Property
  38.  
  39. Private m_Url As String
  40. Public Property Url() As String
  41. Get
  42. Return m_Url
  43. End Get
  44. Set(ByVal value As String)
  45. m_Url = value
  46. End Set
  47. End Property
  48. End Class
  49.  
  50. <%@ Page Language="VB" AutoEventWireup="false" Inherits="MySite.MyPage" Title="My Page" Codebehind="MyPage.aspx.vb" %>
  51. <%@ Register TagPrefix="my" Namespace="MySite.Controls" Assembly="MySite" %>
  52. <my:BreadCrumbs ID="breadcrumbs" runat="server">
  53. <Items>
  54. <my:BreadCrumbItem Text="Another page" Url="AnotherPage.aspx" />
  55. </Items>
  56. </my:BreadCrumbs>
  57.  
  58. [PersistenceMode(PersistenceMode.InnerProperty)]
  59. public List<ListItem> Items
  60. {
  61. get;
  62. set;
  63. }
  64.  
  65. <my:MyListControl runat="server">
  66. <Items>
  67. <asp:ListItem/>
  68. </Items>
  69. </my:myListControl>
  70.  
  71. [ToolboxData("<{0}:Menubar runat=server></{0}:Menubar>")]
  72. [System.ComponentModel.DesignTimeVisible(false)]
  73. public class Menubar : WebControl, IPostBackEventHandler
  74. {
  75.  
  76. private List<MenuItem> _menuItems = new List<MenuItem>();
  77. [PersistenceMode(PersistenceMode.InnerProperty)]
  78. public List<MenuItem> MenuItems
  79. {
  80. get
  81. {
  82. return _menuItems;
  83. }
  84. }
  85.  
  86. }
  87. [ToolboxItem(false)]
  88. [ParseChildren(true, "MenuItems")]
  89. public class MenuItem
  90. {
  91. private string _clientClick;
  92. private List<MenuItem> _menuItems = new List<MenuItem>();
  93.  
  94. [Localizable(true)]
  95. public string Title { get; set; }
  96. public string Href { get; set; }
  97. public string Id { get; set; }
  98. [PersistenceMode(PersistenceMode.InnerDefaultProperty)]
  99. public List<MenuItem> MenuItems
  100. {
  101. get { return _menuItems; }
  102. set { _menuItems = value; }
  103. }
  104. }
  105.  
  106. <my:Menubar runat="server" ID="menuBar">
  107. <MenuItems>
  108. <my:MenuItem Title="Save" Href="javascript:saveItem(this);" />
  109. <my:MenuItem Title="Print" Href="javascript:void(0);">
  110. <MenuItems>
  111. <my:MenuItem Title="Preview" Href=""/>
  112. <my:MenuItem Title="To Pdf" Href="javascript:"/>
  113. </MenuItems>
  114. </my:MenuItem>
  115. </MenuItems>
  116. </my:Menubar>
  117.  
  118. <my:webform id="webform1">
  119. <fields>
  120. <my:formfield dbname="first_name" required="false" />
  121. </fields>
  122. </my:webform>
Add Comment
Please, Sign In to add comment