функция, которая запускается, когда динамически сгенерированный элемент управления взаимодействует с - PullRequest
Новая
       33

функция, которая запускается, когда динамически сгенерированный элемент управления взаимодействует с

0 голосов
/ 18 сентября 2018

У меня были проблемы с созданием подпрограммы, которая запускается, когда дважды щелкается моя ячейка таблицы данных.Это вызвано тем, что сетка данных создается программно, а не дизайнером.Я нашел справочный веб-сайт, который я включу, который, кажется, связан с этой проблемой. 

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

Редактировать: Ответ Оливье Жако-Дескомба был идеальным, все, что было нужно,запустить подпрограмму "Init".Publictemplatecreator 

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

Любая помощь будет принята с благодарностью

Спасибо, Taine

1 Ответ

0 голосов
/ 18 сентября 2018

Вы не звоните Init.Но вместо этого вы также можете напрямую назначить поле 

dgv_flightTemplate = New DataGridView 'Note: No Dim here.

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

dgv_flightTemplate.Columns.Clear()

перед добавлением столбцов.

...