用vb.net改写？

Question

Protected Overrides Sub OnInit(e As System.EventArgs)
   InitializeComponent()
   MyBase.OnInit(e)
End SubPrivate Sub InitializeComponent()
   AddHandler Me.grid.ItemCreated,Addressof new System.Web.UI.WebControls.DataGridItemEventHandler(Me.grid_ItemCreated)
   AddHandler Me.grid.PageIndexChanged,Addressof new System.Web.UI.WebControls.DataGridPageChangedEventHandler(Me.PageIndexChanged)
   AddHandler Me.Load,Addressof Page_Load
End SubPrivate Sub grid_ItemCreated(sender As Object ,e As EventArgs)
   Dim elemType As ListItemType = e.Item.ItemType
   If (elemType Is ListItemType.Pager) Then
      Dim pager As TableCell = CTypr(e.Item.Controls(0),TableCell)
      Dim i As Integer 
      For i = 0 To i < pager.Controls.Count Step + 2
         Dim o As Object = pager.Controls(i)
         If (o Is LinkButton) Then
            Dim h As LinkButton = CType(o,LinkButton)
            h.Text = "[ " & h.Text & " ]"
         Else
            Dim l As Label = CType(o,Label)
            l.Text = "第" & l.Text & "页"
         End If
       Next
   End If
End SubPS:我随手写的，运行成功了就行，如果不成功，我也没办法。

Answer 1

TomMax(笑望人生) ( 
有错误

Answer 2

AddHandler (Me.grid).ItemCreated, AddressOf New System.Web.UI.WebControls.DataGridItemEventHandler(Me.grid_ItemCreated)
        AddHandler (Me.grid).PageIndexChanged, AddressOf New System.Web.UI.WebControls.DataGridPageChangedEventHandler(Me.PageIndexChanged)
Dim elemType As ListItemType = e.Item.ItemType
        If (elemType Is ListItemType.Pager) Then
            Dim pager As TableCell = CTypr(e.Item.Controls(0), TableCell)
            Dim i As Integer
            For i = 0 To i < pager.Controls.Count Step +2
                Dim o As Object = pager.Controls(i)
                If (o Is LinkButton) Then
                    Dim h As LinkButton = CType(o, LinkButton)
                    h.Text = "[ " & h.Text & " ]"
                Else
                    Dim l As Label = CType(o, Label)
                    l.Text = "第" & l.Text & "页"
                End If
            Next
        End If