ASP Net Controls ASP.Net Tutorial

  1. Home
  2. ASP.Net Tutorial
  3. ASP Net Controls
  4. Check CommandArgument (VB net)
<%@ Page Language="VB" %>
<%@ Import Namespace="System.Collections.Generic" %>


    Private groceries As New List(Of String)()
    Sub Page_Load()
        groceries.Add("A")
        groceries.Add("B")
        groceries.Add("C")
    End Sub
    Sub Sort_Command(ByVal sender As Object, ByVal e As CommandEventArgs)
        If e.CommandName = "Sort" Then
            Select Case e.CommandArgument.ToString()
                Case "ASC"
                    groceries.Sort(AddressOf SortASC)
                Case "DESC"
                    groceries.Sort(AddressOf SortDESC)
            End Select
        End If
    End Sub
    Sub Page_PreRender()
        bltGroceries.DataSource = groceries
        bltGroceries.DataBind()
    End Sub
    Function SortASC(ByVal x As String, ByVal y As String) As Integer
        Return String.Compare(x, y)
    End Function
    Function SortDESC(ByVal x As String, ByVal y As String) As Integer
        Return String.Compare(x, y) * -1
    End Function



    Button Command


    
    

    
            id="btnSortAsc"
        Text="Sort ASC"
        CommandName="Sort"
        CommandArgument="ASC"
        OnCommand="Sort_Command" 
        Runat="server" />
    
            id="btnSortDESC"
        Text="Sort DESC"
        CommandName="Sort"
        CommandArgument="DESC"
        OnCommand="Sort_Command" 
        Runat="server" />
    
    
    
            id="bltGroceries"
        Runat="server" />