与动态生成的控件交互时运行的函数

Question

双击我的 datagridview 单元格时，我在制作一个运行s 的子时遇到了麻烦。这是因为datagridview是通过编程方式创建的，而不是由设计者创建的。我找到了一个似乎与该问题相关的帮助网站，我将包括在内。

Public Class seattemplatecreator
    Dim alphabet() As Char = "ABCDEFGHIJKLMNOPQRSTUVWXYZ".ToCharArray()
    Private WithEvents dgv_flightTemplate As DataGridView

    'help from https://it.toolbox.com/question/event-for-dynamically-created-command-button-043008

    Public Sub init(ByVal dgv01 As DataGridView)
        dgv_flightTemplate = dgv01
    End Sub

    Private Sub dgv_flightTemplate_CellMouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles dgv_flightTemplate.CellMouseDoubleClick
        MsgBox("workwd")
    End Sub

    Private Sub btn_createflight_Click(sender As Object, e As EventArgs) Handles btn_createflight.Click
        'used https://social.msdn.microsoft.com/Forums/vstudio/en-US/e222f438-f060-4e61-ab28-523d02db91b2/how-to-programmatically-create-datagridview-with-empty-columns-and-rows?forum=vbgeneral
        'to help with this part for automatically generating the datagridview

        MsgBox(alphabet(0))

        Dim dgv_flightTemplate As New DataGridView
        Dim c As Integer = txb_columns.Text
        Dim r As Integer = txb_rows.Text

        For colcount As Integer = 0 To c - 1
            Dim nc As New DataGridViewTextBoxColumn
            nc.Name = "Seating Column"
            dgv_flightTemplate.Columns.Add(nc)
        Next
        dgv_flightTemplate.Rows.Add(r)

        For x = 0 To r - 1
            dgv_flightTemplate.Rows(x).HeaderCell.Value = alphabet(x).ToString
        Next

        Me.Controls.Add(dgv_flightTemplate)
        dgv_flightTemplate.Location = New Point(400, 400)
        dgv_flightTemplate.AllowUserToAddRows = False
        dgv_flightTemplate.AllowUserToDeleteRows = False
        dgv_flightTemplate.RowHeadersWidthSizeMode = DataGridViewRowHeadersWidthSizeMode.AutoSizeToAllHeaders

        dgv_flightTemplate.AutoResizeRows()
        dgv_flightTemplate.AutoSize = True
    End Sub
End Class

https://it.toolbox.com/question/event-for-dynamically-created-command-button-043008

编辑：Olivier Jacot-Descombes 的回应是完美的，所需要的只是运行 "Init" 子。 Public Class seattemplatecreator

Dim alphabet() As Char = "ABCDEFGHIJKLMNOPQRSTUVWXYZ".ToCharArray()
Private WithEvents dgv_flightTemplate As DataGridView
'help from https://it.toolbox.com/question/event-for-dynamically-created-command-button-043008
Public Sub init(ByVal dgv01 As DataGridView)
    dgv_flightTemplate = dgv01
End Sub
Private Sub dgv_flightTemplate_CellMouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles dgv_flightTemplate.CellMouseDoubleClick
    MsgBox("workwd")
End Sub

Private Sub btn_createflight_Click(sender As Object, e As EventArgs) Handles btn_createflight.Click

    'used https://social.msdn.microsoft.com/Forums/vstudio/en-US/e222f438-f060-4e61-ab28-523d02db91b2/how-to-programmatically-create-datagridview-with-empty-columns-and-rows?forum=vbgeneral 
    'to help with this part for automatically generating the datagridview
    MsgBox(alphabet(0))
    Dim dgv_flightTemplate As New DataGridView
    Dim c As Integer = txb_columns.Text
    Dim r As Integer = txb_rows.Text
    For colcount As Integer = 0 To c - 1
        Dim nc As New DataGridViewTextBoxColumn
        nc.Name = "Seating Column"
        dgv_flightTemplate.Columns.Add(nc)
    Next
    dgv_flightTemplate.Rows.Add(r)
    For x = 0 To r - 1
        dgv_flightTemplate.Rows(x).HeaderCell.Value = alphabet(x).ToString

    Next
    Me.Controls.Add(dgv_flightTemplate)


    dgv_flightTemplate.Location = New Point(400, 400)
    dgv_flightTemplate.AllowUserToAddRows = False
    dgv_flightTemplate.AllowUserToDeleteRows = False
    dgv_flightTemplate.RowHeadersWidthSizeMode = DataGridViewRowHeadersWidthSizeMode.AutoSizeToAllHeaders

    dgv_flightTemplate.AutoResizeRows()
    dgv_flightTemplate.AutoSize = True

    init(dgv_flightTemplate)






End Sub





End Class

如有任何帮助，我们将不胜感激

谢谢，泰恩

Answer 1

您没有打电话给 Init。但是，您也可以直接分配给字段

dgv_flightTemplate = New DataGridView 'Note: No Dim here.

但即使您动态创建列，也可以使用设计器添加网格。直接打电话

dgv_flightTemplate.Columns.Clear()

在添加列之前。

与动态生成的控件交互时运行的函数

function that runs when dynamically generated control is interacted with

vb.net

controls

datagridview

dynamic