哪位懂C#的大神,请帮忙改成vb.net,谢谢!

没来 2012-02-02 08:50:56

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);
}
}

...全文
72 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
ziyouli 2012-02-02
  • 打赏
  • 举报
回复
这个几乎都不用怎么转的吧
Protected Sub MainMenu_MenuItemDataBound(sender As Object, e As System.Web.UI.WebControls.MenuEventArgs)
If (e.Item.DataItem is SiteMapNode) Then
e.Item.Target = (CType(e.Item.DataItem, SiteMapNode))("Target")
End If
End Sub

Protected Override Sub AddedControl(control As Control, index As Integer)
Dim str As String = Request.ServerVariables("http_user_agent").ToLower
If (str.Contains("safari") Or str.Contains("chrome")) Then
Me.Page.ClientTarget = "uplevel"
End If
base.AddedControl(control, index)
End Sub
cf_nxcxy 2012-02-02
  • 打赏
  • 举报
回复
testtestett 2012-02-02
  • 打赏
  • 举报
回复
http://www.developerfusion.com/tools/convert/csharp-to-vb/
testtestett 2012-02-02
  • 打赏
  • 举报
回复
有网站直接提供你复制c#进去,出来vb.net代码的。
q107770540 2012-02-02
  • 打赏
  • 举报
回复
C#和VB。NET 网上有很多工具可以实现自动转化的

16,553

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧