C to VB

[EyeTalion]

can anyone translate this to VB.NET...

private void DataGrid1_ItemCreated(object sender, System.Web.UI.WebControls.DataGridItemEventArgs e)
{
switch(e.Item.ItemType)
{
case ListItemType.Item:
case ListItemType.AlternatingItem:
case ListItemType.EditItem:
case ListItemType.SelectedItem:
WebControl c = (WebControl)(e.Item.Cells[2].Controls[0]);
c.PreRender += new EventHandler(this.DataGridDeleteButton_PreRender);
c.Attributes["itemId"] = ((DataRowView)(e.Item.DataItem))["CategoryID"].ToString()! ;
break;
}
}

private void DataGridDeleteButton_PreRender(object sender, System.EventArgs e)
{
WebControl c = (WebControl)sender;
c.Attributes["onclick"] = String.Format("ConfirmDelete('{0}',this.itemId);",c.UniqueID);
}

[Cander]

Public Sub DataGrid1_ItemCreated(ByVal sender as Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) 

     Select Case e.Item.ItemType
          case ListItemType.Item
          case ListItemType.AlternatingItem
          case ListItemType.EditItem
          case  ListItemType.SelectedItem
               Dim c As WebControl = CType(e.Item.Cells(2).Controls(0), WebControl)
               c.PreRender = New EventHandler(Me.DataGridDeleteButton_PreRender) 
               c.Attributes("itemId") = CType(e.Item.DataItem), DataRowView)("CategoryID".ToString()

     End Select
End Sub

Private Sub DataGridDeleteButton_PreRender(byVal sender As Object, Byval e As System.EventArgs)
     Dim c As WebControl  = CType(sender, WebControl)
     c.Attributes("onclick") = String.Format("ConfirmDelete('{0}',this.itemId);",c.UniqueID) 


End Sub

[EyeTalion]

thank you....


damn those lawyers to hell!