求大神帮忙，将此代码改为vb.net,谢谢！

[没来]

public partial class _Default : System.Web.UI.Page 
{
    protected void Page_Load(object sender, EventArgs e)
    {
     
    }

    protected void MainMenu_MenuItemDataBound(object sender, System.Web.UI.WebControls.MenuEventArgs e)
    {
        if (e.Item.DataItem is SiteMapNode)
            e.Item.Target = (e.Item.DataItem as SiteMapNode)["Target"];
    }

    // Adding this override so that the asp:Menu control renders properly in Safari and Chrome
    // See http://geekswithblogs.net/bullpit/archive/2009/07/08/aspmenu-rendering-problems-in-ie8-safari-and-chrome.aspx
    protected override void AddedControl(Control control, int index)
    {
        string str = Request.ServerVariables["http_user_agent"].ToLower();
        if (str.Contains("safari") || str.Contains("chrome"))
        {
            this.Page.ClientTarget = "uplevel";
        }
        base.AddedControl(control, index);
    }
}

[threenewbee]

Public partial Class _Default
Inherits System.Web.UI.Page
protected void Page_Load(Object sender, EventArgs e)
{

}

protected void MainMenu_MenuItemDataBound(Object sender, System.Web.UI.WebControls.MenuEventArgs e)
{
if (e.Item.DataItem is SiteMapNode)
e.Item.Target = (e.Item.DataItem as SiteMapNode)("Target")
}

' Adding this override so that the asp:Menu control renders properly in Safari and Chrome
' See http://geekswithblogs.net/bullpit/archive/2009/07/08/aspmenu-rendering-problems-in-ie8-safari-and-chrome.aspx
protected override void AddedControl(Control control, Integer index)
{
Dim str As String = Request.ServerVariables("http_user_agent").ToLower()
if (str.Contains("safari") Or str.Contains("chrome"))
{
Me.Page.ClientTarget = "uplevel"
}
MyBase.AddedControl(control, index)
}
End Class

[没来]

[Quote=引用 1 楼 caozhy 的回复:]

Public partial Class _Default
Inherits System.Web.UI.Page
protected void Page_Load(Object sender, EventArgs e)
{

}

protected void MainMenu_MenuItemDataBound(Object sender, ……
[/Quote]

改过吗？没看出有啥不同。。。你好歹把 void改为sub也算是改了....

[没来]

没人理？