#Region " Web Form Designer Generated Code "
...
   ' create new menu control objects.
   Protected WithEvents DynamicMenu As New C3WebControls.C3Menu
   Protected DynamicMenuStyle As New C3WebControls.C3MenuStyle
...
#End Region


   Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

      ' create new menu style control.
      DynamicMenuStyle.ID = "C3DynamicStyle"
      DynamicMenuStyle.Theme = C3WebControls.C3MenuStyle_ThemeValues.Macintosh
      Page.Controls.Add(DynamicMenuStyle)

      ' create new menu control.
      DynamicMenu.ID = "C3DynamicMenu"
      DynamicMenu.MenuStyle = DynamicMenuStyle.ID
      DynamicMenu.Left = Unit.Parse("10")
      DynamicMenu.Top = Unit.Parse("10")
      Page.Controls.Add(DynamicMenu)

      ' add new items to menu.
      Dim item1 As New C3WebControls.C3MenuItem
      item1.Text = "Dynamic Menu Item 1"
      item1.URL = "http://www.yahoo.com"
      DynamicMenu.MenuItems.Add(item1)

      Dim item2 As New C3WebControls.C3MenuItem
      item2.Text = "Dynamic Menu Item 2"
      item2.PostBackData = "This is PostBack Data for an ASP Postback event"
      DynamicMenu.MenuItems.Add(item2)

   End Sub

   Private Sub C3DynamicMenu_ItemClick(ByVal sender As System.Object, ByVal e As C3WebControls.C3MenuItemClickEventArgs) Handles DynamicMenu.ItemClick

      ' Handle PostBack event for Dynamic Menu Control.
      Dim sMenuID As String = e.MenuID
      Dim sMenuItemText As String = e.MenuItemText
      Dim sMenuItemURL As String = e.MenuItemURL
      Dim sMenuItemPostbackData As String = e.EventData
      Dim sControlItemIndex As String = e.ControlItemIndex
      Dim sControlUniqueIDD As String = e.ControlUniqueID

   End Sub

   Private Sub DataGrid1_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles DataGrid1.ItemDataBound

      ' Only process if we are NOT dealing with a Header or Footer row:
      If e.Item.ItemType = ListItemType.Header _
      Or e.Item.ItemType = ListItemType.Footer Then
      Else

         Dim oCell As Object = e.Item.Cells(0)

         ' add menu events and data for postback functionality:
         oCell.Attributes("MnuControlUniqueID") = Replace(oCell.UniqueID, ":", "$")
         oCell.Attributes("MnuControlItemIndex") = e.Item.ItemIndex

         ' change cursor and background color when mouse is moved over cell 0.
         oCell.Attributes("onmouseenter") = "_mnuObjectStyle=this.style.cssText; this.style.cursor='hand'; this.style.background='#cccccc';"
         oCell.Attributes("onmouseleave") = "this.style.cssText=_mnuObjectStyle;"

         ' display popup menu when user right-clicks over cell 0.
         oCell.Attributes("oncontextmenu") = "_mnuObject=this; popup('C3Menu1',1); return false;"

         ' display popup menu when user left-clicks over cell 0.
         'oCell.Attributes("onclick") = "_mnuObject=this; popup('C3Menu1',1);"

      End If

   End Sub

[img]http://my.server.com/images/shot.gif[/img]