VB.net 2010 视频教程 VB.net 2010 视频教程 python基础视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > 网站开发 > ASP.net 4.0教程 >

  • asp.net教程之Web Forms - Hashtable 对象

Hashtable 对象包含用键/值对表示的项目。

在线实例

Hashtable RadiobuttonList 1



    
	
  1. 
		<script  runat="server">
    2. 
	
  2. 
		sub Page_Load
    3. 
	
  3. 
		if Not Page.IsPostBack then
    4. 
	
  4. 
		   dim mycountries=New Hashtable
    5. 
	
  5. 
		   mycountries.Add("N","Norway")
    6. 
	
  6. 
		   mycountries.Add("S","Sweden")
    7. 
	
  7. 
		   mycountries.Add("F","France")
    8. 
	
  8. 
		   mycountries.Add("I","Italy")
    9. 
	
  9. 
		   rb.DataSource=mycountries
    10. 
	
  10. 
		   rb.DataValueField="Key"
    11. 
	
  11. 
		   rb.DataTextField="Value"
    12. 
	
  12. 
		   rb.DataBind()
    13. 
	
  13. 
		end if
    14. 
	
  14. 
		end sub
    15. 
	
  15. 
		 
    16. 
	
  16. 
		sub displayMessage(s as Object,e As EventArgs)
    17. 
	
  17. 
		lbl1.text="Your favorite country is: " & rb.SelectedItem.Text
    18. 
	
  18. 
		end sub
    19. 
	
  19. 
		</script>
    20. 
	
  20. 
		 
    21. 
	
  21. 
		<!DOCTYPE html>
    22. 
	
  22. 
		<html>
    23. 
	
  23. 
		<body>
    24. 
	
  24. 
		 
    25. 
	
  25. 
		<form runat="server">
    26. 
	
  26. 
		<asp:RadioButtonList id="rb" runat="server"
    27. 
	
  27. 
		AutoPostBack="True" onSelectedIndexChanged="displayMessage" />
    28. 
	
  28. 
		<p><asp:label id="lbl1" runat="server" /></p>
    29. 
	
  29. 
		</form>
    30. 
	
  30. 
		 
    31. 
	
  31. 
		</body>
    32. 
	
  32. 
		</html>
    33. 




	复制



	Hashtable RadiobuttonList 2




    
	
  1. 
		<script  runat="server">
    2. 
	
  2. 
		sub Page_Load
    3. 
	
  3. 
		if Not Page.IsPostBack then
    4. 
	
  4. 
		   dim navigate=New Hashtable
    5. 
	
  5. 
		   navigate.Add("RadioButtonList","control_radiobuttonlist.asp")
    6. 
	
  6. 
		   navigate.Add("CheckBoxList","control_checkboxlist.asp")
    7. 
	
  7. 
		   navigate.Add("DropDownList","control_dropdownlist.asp")
    8. 
	
  8. 
		   navigate.Add("ListBox","control_listbox.asp")
    9. 
	
  9. 
		   rb.DataSource=navigate
    10. 
	
  10. 
		   rb.DataValueField="Value"
    11. 
	
  11. 
		   rb.DataTextField="Key"
    12. 
	
  12. 
		   rb.DataBind()
    13. 
	
  13. 
		end if
    14. 
	
  14. 
		end sub
    15. 
	
  15. 
		 
    16. 
	
  16. 
		sub navigate(s as Object, e As EventArgs)
    17. 
	
  17. 
		response.redirect(rb.SelectedItem.Value)
    18. 
	
  18. 
		end sub
    19. 
	
  19. 
		</script>
    20. 
	
  20. 
		 
    21. 
	
  21. 
		<!DOCTYPE html>
    22. 
	
  22. 
		<html>
    23. 
	
  23. 
		<body>
    24. 
	
  24. 
		 
    25. 
	
  25. 
		<form runat="server">
    26. 
	
  26. 
		<asp:RadioButtonList id="rb" runat="server"
    27. 
	
  27. 
		AutoPostBack="True" onSelectedIndexChanged="navigate" />
    28. 
	
  28. 
		</form>
    29. 
	
  29. 
		 
    30. 
	
  30. 
		</body>
    31. 
	
  31. 
		</html>
    32. 




	复制



	Hashtable DropDownList




    
	
  1. 
		<script  runat="server">
    2. 
	
  2. 
		sub Page_Load
    3. 
	
  3. 
		if Not Page.IsPostBack then
    4. 
	
  4. 
		   dim mycountries=New Hashtable
    5. 
	
  5. 
		   mycountries.Add("N","Norway")
    6. 
	
  6. 
		   mycountries.Add("S","Sweden")
    7. 
	
  7. 
		   mycountries.Add("F","France")
    8. 
	
  8. 
		   mycountries.Add("I","Italy")
    9. 
	
  9. 
		   dd.DataSource=mycountries
    10. 
	
  10. 
		   dd.DataValueField="Key"
    11. 
	
  11. 
		   dd.DataTextField="Value"
    12. 
	
  12. 
		   dd.DataBind()
    13. 
	
  13. 
		end if
    14. 
	
  14. 
		end sub
    15. 
	
  15. 
		 
    16. 
	
  16. 
		sub displayMessage(s as Object,e As EventArgs)
    17. 
	
  17. 
		lbl1.text="Your favorite country is: " & dd.SelectedItem.Text
    18. 
	
  18. 
		end sub
    19. 
	
  19. 
		</script>
    20. 
	
  20. 
		 
    21. 
	
  21. 
		<!DOCTYPE html>
    22. 
	
  22. 
		<html>
    23. 
	
  23. 
		<body>
    24. 
	
  24. 
		 
    25. 
	
  25. 
		<form runat="server">
    26. 
	
  26. 
		<asp:DropDownList id="dd" runat="server"
    27. 
	
  27. 
		AutoPostBack="True" onSelectedIndexChanged="displayMessage" />
    28. 
	
  28. 
		<p><asp:label id="lbl1" runat="server" /></p>
    29. 
	
  29. 
		</form>
    30. 
	
  30. 
		 
    31. 
	
  31. 
		</body>
    32. 
	
  32. 
		</html>
    33. 




	复制



	创建 Hashtable



	Hashtable 对象包含用键/值对表示的项目。键被用作索引，通过搜索键，可以实现对值的快速搜索。



	通过 Add() 方法向 Hashtable 添加项目。



	下面的代码创建了一个名为 mycountries 的 Hashtable 对象，并添加了四个元素：



	

	
    
		
  1. 
			
    
				<script runat="server">  Sub Page_Load  if Not Page.IsPostBack then  dim mycountries=New Hashtable  mycountries.Add("N","Norway")  mycountries.Add("S","Sweden")  mycountries.Add("F","France")  mycountries.Add("I","Italy")  end if  end sub  </script>
    
		
    2. 
	

	

		复制





	数据绑定



	Hashtable 对象可为下列的控件自动生成文本和值：


    
	
  • 
		asp:RadioButtonList
    • 
	
  • 
		asp:CheckBoxList
    • 
	
  • 
		asp:DropDownList
    • 
	
  • 
		asp:Listbox
    • 




	为了绑定数据到 RadioButtonList 控件，首先要在 .aspx 页面中创建一个 RadioButtonList 控件（不带任何 asp:ListItem 元素）：



	

	
    
		
  1. 
			
    
				<html>  <body>  <form runat="server">  <asp:RadioButtonList id="rb" runat="server" AutoPostBack="True" />  </form>  </body>  </html>
    
		
    2. 
	

	

		复制





	然后添加创建列表的脚本，并且绑定列表中的值到 RadioButtonList 控件：



	

	
    
		
  1. 
			
    
				<script runat="server">  sub Page_Load  if Not Page.IsPostBack then  dim mycountries=New Hashtable  mycountries.Add("N","Norway")  mycountries.Add("S","Sweden")  mycountries.Add("F","France")  mycountries.Add("I","Italy")  rb.DataSource=mycountries  rb.DataValueField="Key"  rb.DataTextField="Value"  rb.DataBind()  end if  end sub  </script>  <html>  <body>  <form runat="server">  <asp:RadioButtonList id="rb" runat="server" AutoPostBack="True" />  </form>  </body>  </html>
    
		
    2. 
	

	

		复制





	然后我们添加一个子例程，当用户点击 RadioButtonList 控件中的某个项目时，该子例程会被执行。当某个单选按钮被点击时，label 中会出现一行文本：



	

		实例

	

	
    
		
  1. 
			
    
				<script runat="server">  sub Page_Load  if Not Page.IsPostBack then  dim mycountries=New Hashtable  mycountries.Add("N","Norway")  mycountries.Add("S","Sweden")  mycountries.Add("F","France")  mycountries.Add("I","Italy")  rb.DataSource=mycountries  rb.DataValueField="Key"  rb.DataTextField="Value"  rb.DataBind()  end if  end sub  sub displayMessage(s as Object,e As EventArgs)  lbl1.text="Your favorite country is: " & rb.SelectedItem.Text  end sub  </script>  <html>  <body>  <form runat="server">  <asp:RadioButtonList id="rb" runat="server"  AutoPostBack="True" onSelectedIndexChanged="displayMessage" />  <p><asp:label id="lbl1" runat="server" /></p>  </form>  </body>  </html>
    
		
    2. 
	

	

		复制





	注释：您无法选择添加到 Hashtable 的项目的排序方式。如需对项目进行字母排序或者数字排序，请使用 SortedList 对象。



	 


      



  

  
  

   
    
    
   

  

  
 
 

 
 
  
 
 
 
 






 






相关教程