首先看看效果：

 

 Repeater控件，放在ItemTemplate内的铵钮OnClick之后，获取Repeater的Item，ItemIndex，CommandArgument，CommandName以及绑定的字段值。

准备数据：

1 Imports Microsoft.VisualBasic 2 Namespace Insus.NET 3  4     Public Class Catalog 5  6         Private _ID As Integer 7         Private _Name As String 8  9         Public Property ID As Integer10             Get11                 Return _ID12             End Get13             Set(value As Integer)14                 _ID = value15             End Set16         End Property17 18         Public Property Name As String19             Get20                 Return _Name21             End Get22             Set(value As String)23                 _Name = value24             End Set25         End Property26 27     End Class28 End Namespace

 

1  Private Function GetData() As List(Of Catalog) 2         Dim cls As New List(Of Catalog) 3  4         Dim cl As Catalog = New Catalog() 5         cl.ID = 1 6         cl.Name = "汽车" 7         cls.Add(cl) 8  9         cl = New Catalog()10         cl.ID = 211         cl.Name = "时尚"12         cls.Add(cl)13 14         cl = New Catalog()15         cl.ID = 316         cl.Name = "科技"17         cls.Add(cl)18 19         cl = New Catalog()20         cl.ID = 521         cl.Name = "文化"22         cls.Add(cl)23 24         cl = New Catalog()25         cl.ID = 626         cl.Name = "公益"27         cls.Add(cl)28         Return cls29     End Function

在.aspx放置Repeater控件：

                      
                           
                            
        
                            
        
        
                                 
          
                                       
ID 
                                       
Name 
                                       
Choose
                                  
                                          
                                   
 
             
                                   
 
             
                                   
 
             
                              
                                         
        
                            
       
      

在.aspx.vb为Repeater控件绑定数据：

Imports Insus.NETPartial Class Default2    Inherits System.Web.UI.Page    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load        If Not IsPostBack Then            Data_Binding()        End If    End Sub    Private Sub Data_Binding()        Me.RepeaterCatalog.DataSource = GetData()        Me.RepeaterCatalog.DataBind()    End SubEnd Class

接下来，我们写onclick事件，在写事件之前，先在.aspx放一个Label来显示事件结果：

Process infor:
      

 

Protected Sub Button1_Click(sender As Object, e As EventArgs)        Dim btn As Button = DirectCast(sender, Button)        Dim commandArgument As String = btn.CommandArgument        Dim commandName As String = btn.CommandName        Dim item As RepeaterItem = DirectCast(btn.NamingContainer, RepeaterItem)        Dim index As Integer = item.ItemIndex        Dim id As String = DirectCast(item.FindControl("LabelID"), Label).Text        Dim name As String = DirectCast(item.FindControl("LabelName"), Label).Text        Me.LabelInfo.Text = String.Format("Item index: {0}; CommandArgument: {1}; CommandName: {2}; ID: {3}; Name: {4};", index, commandArgument, commandName, id, name)    End Sub