VB.NET : Definire un tasto di default su di una pagina ASPX

La funzione riportata in seguito permette, data una pagina aspx e un bottone, di definire il bottone come default ovvero come bottone che verrà premuto nel momento in cui l'utente preme INVIA.



private Sub SetDefaultButton(byval page as Page,ByVal btn As Button)
  Dim formName As String
  Dim c As Control = btn.Parent
  While (Not (TypeOf c Is System.Web.UI.HtmlControls.HtmlForm))
    c = c.Parent
  End While

  If TypeOf c Is System.Web.UI.HtmlControls.HtmlForm Then
    formName = c.ClientID
  Else
    formName = "forms[0]"
  End If

  Dim jsString As New StringBuilder
  With jsString
    .Append("")
  End With
  page.RegisterStartupScript("defaultButtonScript", jsString.ToString())
End Sub