如何将 Microsoft.VisualBasic.Compatibility.VB6.PictureBoxArray 转换为 .net 4.7.2

Question

我正在尝试将我的项目 VB6 迁移到 .net 4.7.2，但 PictureBoxArray 类现在已过时。下面我提到了我的代码。

Private component As System.ComponentModel.IContainer
Public WithEvents IMG_LIGHT As Microsoft.VisualBasic.Compatibility.VB6.PictureBoxArray

Me.IMG_LIGHT=New Microsoft.VisualBasic.Compatibility.VB6.PictureBoxArray(components)

如何修复该代码。

Answer 1

您不能像以前在 VB6 中那样执行此操作，但有一些解决方案可以获得您正在寻找的行为，这取决于@jmcilhinney 提到的内容。

一种简单的方法是遍历 Form 的 Controls 集合中的控件（或您可以在其中放置其他控件的任何控件，例如 GroupBox）：

Dim pictureBox As PictureBox
Dim control As Control

For Each control In Me.Controls

    If TypeOf control Is PictureBox Then

        ' Get PictureBox
        pictureBox = CType(control, PictureBox)

        ' Do something with PictureBox

    End If

Next

在类似的循环中，当你的控件被初始化时，你可以使用 AddHandler 为所有的 PictureBox 控件添加一个公共事件处理程序：

For Each control As Control In Me.Controls

    If TypeOf control Is PictureBox Then

        ' Get PictureBox
        pictureBox = CType(control, PictureBox)

        AddHandler pictureBox.Clicked, AddressOf PictureBox_Clicked

    End If

Next

这可能是所有 PictureBox 的 Clicked 事件的通用事件处理程序：

Private Sub PictureBox_Click(sender As Object, e As EventArgs)
    Dim pictureBox As PictureBox = sender

    ' Handle PictureBox Click event in here

End Sub

要识别您的各个 PictureBox 控件，您可以在控件的 Tag 属性中存储一个索引值。这不像让 VB6 为您的控件索引那样令人愉快，但它应该可以工作。您可以在添加事件处理程序的同一循环中自动索引控件。

查看以下帖子：

1. How to create Control Arrays in VB .NET：请参阅第二个答案中的 Looping Through the Controls Collection，这可能就是您要找的。​​li>
2. Control Arrays in VB.NET