Использование событий и свойств созданных объектов

Question

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

Это код используется для создания панелей

For i As Integer = 0 To IDs.Count - 1 
    Dim testPanel As New Panel With 
     { 
      .Height = 50, 
      .Width = 140, 
      .BackColor = Blue, 
      .Name = "rPanel" + i.ToString 
     } 
    FlowLayoutPanel.Controls.Add(testPanel) 
Next 

Answer 1

Добавьте обработчик события к событию MouseClick, как это.

For i As Integer = 0 To IDs.Count - 1 
    Dim testPanel As New Panel With 
     { 
      .Height = 50, 
      .Width = 140, 
      .BackColor = Blue, 
      .Name = "rPanel" + i.ToString 
     } 
    AddHandler testPanel.MouseClick, AddressOf PanelMouseClick 
    FlowLayoutPanel.Controls.Add(testPanel) 
Next 

Затем создайте вспомогательную подставку для события. Как ..

Private Sub PanelMouseClick(sender As Object, e As MouseEventArgs) 
    MessageBox.Show("Mouse Clicked") 
End Sub 

AddHandler позволяет установить событие, которое вы хотите обработать. AddressOf позволяет вам установить, какой субтитр вы хотите, чтобы вызов обрабатывал указанное событие. Если вы не уверены в подпикселе, вы можете использовать Visual Studio для генерации каких-либо созданных подпрограмм с правильными сигнатурами.

Answer 2

Добавить обработчик на панель, прежде чем добавлять ее на другую панель.

AddHandler testPanel.Click, AddressOf Method 
FlowLayoutPanel.Controls.Add(testPanel) 

Добавить новый метод с отправителем и EventArgs как значения:

Private Sub Method(sender As Object, e As EventArgs) 
    'Your Code 
End Sub