帮我把C#改成VB ,马上给分!!!!!!!!!1

Question

Imports System
Imports System.Collections
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Web
Imports System.Web.SessionState
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.HtmlControls
Imports DotNetWebMenu
Namespace DotNetWebMenu
   '/ <summary>
   '/ WebForm1 &#1386;&#1194;&#757;
   '/ </summary>
   
   Public Class &#1203;
      Inherits System.Web.UI.Page
      Protected tdMenu As System.Web.UI.HtmlControls.HtmlTableCell
      Protected tdContent As System.Web.UI.HtmlControls.HtmlTableCell
      Private Shared hv As String = "H"
      
      Private Sub Page_Load(sender As Object, e As System.EventArgs)
         ' &#1716;&#756;&ucirc;&#1331;&#700;&#1203;
         Dim menuid As String = Request.QueryString("MenuID")
         Dim m As New MenuControl()
         m.RootPath = "."
         m.MenuData = Server.MapPath("./menu.xml")
         If menuid = "V" OrElse menuid = "H" Then
            hv = menuid
         End If
         m.RepeatDirection = hv
         m.CreateMenu()
         Me.tdMenu.Controls.Add(m)
         If Not (menuid Is Nothing) Then
            Me.tdContent.InnerHtml = "<br><br>&#1121;&#754;&#757;<font color=red>" + menuid + "</font>"
         End If
      End Sub 'Page_Load
      
      #Region "Web Form Designer generated code"
      
      Protected Overrides Sub OnInit(e As EventArgs)
         '
         ' CODEGEN&otilde; ASP.NET Web &#289;
         '
         InitializeComponent()
         MyBase.OnInit(e)
      End Sub 'OnInit
      
      
      '/ <summary>
      '/ &#311; - &#1194;&#697;&ocirc;&#3885;
      '/ &#759;&#1889;
      '/ </summary>
      Private Sub InitializeComponent()
      End Sub 'InitializeComponent
      
      #End Region
   End Class '&#1203;
End Namespace 'DotNetWebMenu

Answer 1

Imports System
Imports System.Collections
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Web
Imports System.Web.SessionState
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.HtmlControls
Imports DotNetWebMenu
Namespace DotNetWebMenu
   '/ <summary>
   '/ WebForm1 &#1386;&#1194;&#757;
   '/ </summary>
   
   Public Class &#1203;
      Inherits System.Web.UI.Page
      Protected tdMenu As System.Web.UI.HtmlControls.HtmlTableCell
      Protected tdContent As System.Web.UI.HtmlControls.HtmlTableCell
      Private Shared hv As String = "H"
      
      Private Sub Page_Load(sender As Object, e As System.EventArgs)
         ' &#1716;&#756;&ucirc;&#1331;&#700;&#1203;
         Dim menuid As String = Request.QueryString("MenuID")
         Dim m As New MenuControl()
         m.RootPath = "."
         m.MenuData = Server.MapPath("./menu.xml")
         If menuid = "V" OrElse menuid = "H" Then
            hv = menuid
         End If
         m.RepeatDirection = hv
         m.CreateMenu()
         Me.tdMenu.Controls.Add(m)
         If Not (menuid Is Nothing) Then
            Me.tdContent.InnerHtml = "<br><br>&#1121;&#754;&#757;<font color=red>" + menuid + "</font>"
         End If
      End Sub 'Page_Load
      
      #Region "Web Form Designer generated code"
      
      Protected Overrides Sub OnInit(e As EventArgs)
         '
         ' CODEGEN&otilde; ASP.NET Web &#289;
         '
         InitializeComponent()
         MyBase.OnInit(e)
      End Sub 'OnInit
      
      
      '/ <summary>
      '/ &#311; - &#1194;&#697;&ocirc;&#3885;
      '/ &#759;&#1889;
      '/ </summary>
      Private Sub InitializeComponent()
      End Sub 'InitializeComponent
      
      #End Region
   End Class '&#1203;
End Namespace 'DotNetWebMenu

Answer 2

private void Page_Load(object sender, System.EventArgs e)
{
// 在此处放置用户代码以初始化页面
                           dim menuid as string
menuid=Request.QueryString("MenuID")
MenuControl m = new MenuControl()
m.RootPath="."
m.MenuData=Server.MapPath("./menu.xml")
if(menuid="V" or menuid="H") then

hv=menuid
end if
m.RepeatDirection=hv
m.CreateMenu()
this.tdMenu.Controls.Add(m)
if(menuid<>null) then

this.tdContent.InnerHtml="<br><br>您选择了菜单：<font color=red>" + menuid + "</font>"
end if
}