Функция вызова при событии нажатия кнопки

Question

Как я могу назвать эту функцию vb.net в событии нажатия кнопки?

Private Sub GridView_UDGReport_DataBound1(ByVal sender As Object, ByVal e As System.EventArgs) Handles GridView1.DataBound 

    For rowIndex As Integer = GridView_UDGReport.Rows.Count - 2 To 0 Step -1 
     Dim gviewRow As GridViewRow = GridView_UDGReport.Rows(rowIndex) 
     Dim gviewPreviousRow As GridViewRow = GridView_UDGReport.Rows(rowIndex + 1) 
     For cellCount As Integer = 0 To gviewRow.Cells.Count - 1 
      If gviewRow.Cells(cellCount).Text = gviewPreviousRow.Cells(cellCount).Text Then 
       If gviewPreviousRow.Cells(cellCount).RowSpan < 2 Then 
        gviewRow.Cells(cellCount).RowSpan = 2 
       Else 
        gviewRow.Cells(cellCount).RowSpan = gviewPreviousRow.Cells(cellCount).RowSpan + 1 
       End If 
       gviewPreviousRow.Cells(cellCount).Visible = False 
      End If 
     Next 
    Next 
End Sub 

Answer 1

Append первую строку так, что суб обрабатывает более одного события, а именно:

Private Sub GridView_UDGReport_DataBound1(ByVal sender As Object, ByVal e As System.EventArgs) Handles GridView1.DataBound, Button1.Click 

В качестве альтернативы, если вам нужен Click событие, чтобы запустить какой-либо другой код в дополнение к вызову этого sub, сделать это:

Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click 
    'do something 
    GridView_UDGReport_DataBound1(sender, e) 
    'do something else 
End Sub 

Answer 2

Поскольку вы не используете параметры в любом случае, вы можете просто вызвать метод с Nothing в качестве параметра.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
    GridView_UDGReport_DataBound1(Nothing, Nothing) 
End Sub