change radmenu click events

[Code]

Hi have a rad menu that is set in the master page and has all the url/links added there.


I am trying to change two of the radMenuitems navigation links from my aspx page code behind
D) replace the link with a javascript click event.
E) when you click then fire a vb.net void click event

thanks

Protected Sub Page_Load(sender As Object, e As EventArgs)


 Dim rmenu As RadMenu = DirectCast(Master.FindControl("mymenu"), RadMenu)
 Dim D As RadMenuItem = DirectCast(rmenu.FindControl("dogs"), RadMenuItem)
 Dim E As RadMenuItem = DirectCast(rmenu.FindControl("cats"), RadMenuItem)


 D.NavigateUrl = nothing
 E.NavigateUrl = nothing


 D.click = "alert('you clicked on dogs')"
 E.click = Button1_Click

End Sub


Protected Sub Button1_Click(sender As Object, e As EventArgs)
    'do this for cats only
End Sub

[Shinu]

Hi Code,

Try the following code snippet to fire a javascript client event on clicking one item of a RadMenu and server side button click event on another item of the same RadMenu.

VB:

Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
    radmenu1 = DirectCast(Master.FindControl("RadMenu1"), RadMenu)
    AddHandler radmenu1.ItemClick, AddressOf radmenu1_ItemClick
End Sub

Protected Sub radmenu1_ItemClick(sender As Object, e As RadMenuEventArgs)
    If e.Item.Text = "dogs" Then
        Dim ShowClick As String = "ShowClick();"
        ScriptManager.RegisterStartupScript(Me, Me.[GetType](), "ShowClick", ShowClick, True)
    End If
    If e.Item.Text = "cats" Then
        RadButton1.Click += New EventHandler(RadButton1_Click)
        RadButton1_Click(Me, e)
    End If
End Sub

Protected Sub RadButton1_Click(sender As Object, e As EventArgs)
    Response.Write("<script>alert('Server Side');</script")
End Sub

JavaScript:

<script type="text/javascript">
    function ShowClick() {
        alert("Client Side");
    }
</script>

Thanks,
Shinu.