公布一个dropdownlist联动的例子，完美的

我这里有一个dropdownlist联动的例子，是书上的，但是是用c#写的，希望哪一位可以帮助转换成vb.net的，谢谢！！！
内容如下：TreeDropDownList.aspx：<%@ Page language="c#" Codebehind="TreeDropDownList.aspx.cs" AutoEventWireup="false" Inherits="TowDropDownList.TowDropDownList" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" >
<HTML>
<HEAD>
<title>TreeDropDownList</title>
<meta content="Microsoft Visual Studio 7.0" name="GENERATOR">
<meta content="C#" name="CODE_LANGUAGE">
<meta content="JavaScript" name="vs_defaultClientScript">
<meta content="http://schemas.microsoft.com/intellisense/ie5" name="vs_targetSchema">
<script language="javascript"> var Wantcount;
var Groupcount; Groupcount=0; Group = new Array();
<asp:Literal id="Want" runat="server"></asp:Literal> function changelocation1(locationid)
{
document.submit.DirectionList1.length = 0;
document.submit.WantList1.length = 0;
var locationid=locationid;
var i;
var flag;
var j;
for (i=0;i<Groupcount; i++)
{
if (Group[i][0] == locationid)
{
flag = true;
for (j =0;j<document.submit.DirectionList1.length;j++)
if (document.submit.DirectionList1[j].value == Group[i][1])
{
flag = false;
break;
}
if (flag)
document.submit.DirectionList1.options[document.submit.DirectionList1.length]
= new Option(Group[i][1], Group[i][1]);
}
}
}
function changelocation11(locationid, direction)
{
document.submit.WantList1.length = 0;
var locationid=locationid;
var i;
var flag;
var j;
for (i=0;i<Groupcount;i++)
{
if (Group[i][0] == locationid && Group[i][1] == direction)
{
    
flag = true;
for (j=0;j<document.submit.WantList1.length;j++)
if (document.submit.WantList1[j].value == Group[i][2])
{
flag = false;
break;
}
if (flag)
document.submit.WantList1.options[document.submit.WantList1.length]
= new Option(Group[i][2], Group[i][2]);
}
}
} </script>
</HEAD>
<BODY ms_positioning="GridLayout">
<form id="submit" method="post" runat="server">
<TABLE style="Z-INDEX: 101; LEFT: 184px; POSITION: absolute; TOP: 144px">
<TR>
<TD style="WIDTH: 115px; HEIGHT: 17px" align="middle">求职意向：</TD>
<TD style="HEIGHT: 17px"><asp:dropdownlist id="SourceList1" runat="server" DataTextField="v_source" DataValueField="v_source" onchange="changelocation1(document.submit.SourceList1.options[document.submit.SourceList1.selectedIndex].value);changelocation11(document.submit.SourceList1.options[document.submit.SourceList1.selectedIndex].value,document.submit.DirectionList1.options[document.submit.DirectionList1.selectedIndex].value)" Width="100px"></asp:dropdownlist><asp:dropdownlist id="DirectionList1" runat="server" DataValueField="v_GroupName" onchange="changelocation11(document.submit.SourceList1.options[document.submit.SourceList1.selectedIndex].value,document.submit.DirectionList1.options[document.submit.DirectionList1.selectedIndex].value)" Width="100px"></asp:dropdownlist><asp:dropdownlist id="WantList1" runat="server" DataValueField="v_title" Width="100px"></asp:dropdownlist></TD>
</TR>
</TABLE>
</form>
<script language="javascript">
changelocation1(document.submit.SourceList1.options[document.submit.SourceList1.selectedIndex].value);
changelocation11(document.submit.SourceList1.options[document.submit.SourceList1.selectedIndex].value,document.submit.DirectionList1.options[document.submit.DirectionList1.selectedIndex].value)
</script>
TreeDropDownList.aspx.cs:
using System;
using System.Collections;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Web;
using System.Web.SessionState;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Web.UI.HtmlControls;namespace TowDropDownList
{
/// <summary>
/// TowDropDownList 的摘要说明。
/// </summary>
public class TowDropDownList : System.Web.UI.Page
{
protected System.Web.UI.WebControls.Literal Want;
protected System.Web.UI.WebControls.DropDownList SourceList1;
protected System.Web.UI.WebControls.DropDownList DirectionList1;
protected System.Web.UI.WebControls.DropDownList WantList1;
protected System.Web.UI.WebControls.Literal Group; private void Page_Load(object sender, System.EventArgs e)
{
if (!IsPostBack)
{
DataSet ds = new DataSet();
ds.ReadXml(Server.MapPath("DataSource.xml"));
for(int i = 0;i <ds.Tables[0].Rows.Count ;i++)
{
DataRow dr = ds.Tables[0].Rows[i];
Want.Text += String.Format("Group[Groupcount++] = new Array(\"{0}\",\"{1}\",\"{2}\");\n", dr["v_Source"],dr["v_GroupName"].ToString(), dr["v_title"].ToString());
if (SourceList1.Items.FindByText(dr["v_Source"].ToString()) == null)
{
SourceList1.Items.Add(dr["v_Source"].ToString());
}
}
}
} #region Web Form Designer generated code
override protected void OnInit(EventArgs e)
{
//
// CODEGEN：该调用是 ASP.NET Web 窗体设计器所必需的。
//
InitializeComponent();
base.OnInit(e);
}

/// <summary>
/// 设计器支持所需的方法 - 不要使用代码编辑器修改
/// 此方法的内容。
/// </summary>
private void InitializeComponent()
{    
this.Load += new System.EventHandler(this.Page_Load); }
#endregion
}
} </BODY>
</HTML>
DataSource.xml:
<DataSource>
<Data>
<v_Source>计算机类</v_Source>
<v_GroupName>软件</v_GroupName>
<v_title>程序员</v_title>
</Data>
<Data>
<v_Source>计算机类</v_Source>
<v_GroupName>软件</v_GroupName>
<v_title>系统分析员</v_title>
</Data>
<Data>
<v_Source>计算机类</v_Source>
<v_GroupName>软件</v_GroupName>
<v_title>项目经理</v_title>
</Data>
<Data>
<v_Source>计算机类</v_Source>
<v_GroupName>硬件</v_GroupName>
<v_title>网络工程师</v_title>
</Data>
<Data>
<v_Source>计算机类</v_Source>
<v_GroupName>硬件</v_GroupName>
<v_title>计算机维护</v_title>
</Data>
<Data>
<v_Source>计算机类</v_Source>
<v_GroupName>数据库</v_GroupName>
<v_title>数据库开发</v_title>
</Data>
<Data>
<v_Source>计算机类</v_Source>
<v_GroupName>数据库</v_GroupName>
<v_title>数据库管理</v_title>
</Data>
<Data>
<v_Source>行政/管理类</v_Source>
<v_GroupName>行政</v_GroupName>
<v_title>文秘</v_title>
</Data>
<Data>
<v_Source>行政/管理类</v_Source>
<v_GroupName>行政</v_GroupName>
<v_title>助理</v_title>
</Data>
<Data>
<v_Source>行政/管理类</v_Source>
<v_GroupName>管理</v_GroupName>
<v_title>总经理</v_title>
</Data>
<Data>
<v_Source>行政/管理类</v_Source>
<v_GroupName>管理</v_GroupName>
<v_title>部门经理</v_title>
</Data>
<Data>
<v_Source>行政/管理类</v_Source>
<v_GroupName>管理</v_GroupName>
<v_title>总监</v_title>
</Data>
</DataSource>

解决方案 »

  1.   

    如何实现无刷新的DropdownList联动效果 
    http://blog.csdn.net/cuike519/archive/2004/08/22/81727.aspx
      

  2.   

    http://www.kamalpatel.net/ConvertCSharp2VB.aspx
      

  3.   

    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 
    Namespace TowDropDownList  Public Class TowDropDownList 
     Inherits System.Web.UI.Page 
       Protected Want As System.Web.UI.WebControls.Literal 
       Protected SourceList1 As System.Web.UI.WebControls.DropDownList 
       Protected DirectionList1 As System.Web.UI.WebControls.DropDownList 
       Protected WantList1 As System.Web.UI.WebControls.DropDownList 
       Protected Group As System.Web.UI.WebControls.Literal    Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) 
         If Not IsPostBack Then 
           Dim ds As DataSet = New DataSet () 
           ds.ReadXml(Server.MapPath("DataSource.xml")) 
           Dim i As Integer = 0 
           While i < ds.Tables(0).Rows.Count 
             Dim dr As DataRow = ds.Tables(0).Rows(i) 
             Want.Text += String.Format("Group[Groupcount++] = new Array(""{0}"",""{1}"",""{2}"");" + Microsoft.VisualBasic.Chr(10) + "", dr("v_Source"), dr("v_GroupName").ToString(), dr("v_title").ToString()) 
             If SourceList1.Items.FindByText(dr("v_Source").ToString()) Is Nothing Then 
               SourceList1.Items.Add(dr("v_Source").ToString()) 
             End If 
             i += 1 
           End While 
         End If 
       End Sub    Protected Overloads Overrides Sub OnInit(ByVal e As EventArgs) 
         InitializeComponent() 
         MyBase.OnInit(e) 
       End Sub    Private Sub InitializeComponent() 
         AddHandler Me.Load, AddressOf Me.Page_Load 
       End Sub 
     End Class 
    End Namespace
      

  4.   

    何以从网上找到把C#代码转达换成VB.NET代码的工具：
    http://www.developerfusion.com/utilities/convertcsharptovb.aspx
      

  5.   

    现在有很多代码转换的工具，不过转换后的代码有可能需要一些修改，试试exboy(kuku)提供的吧。