我知道控件数组实际上不再存在,但我需要一些可以与我的代码相关的东西。我正在制作一个带有 32 个网格的购物清单游戏,单击时会翻转。它们实际上是名为 pbxTile1 - pbxTile32 的 PictureBox。我感觉你已经知道我要说什么了。
我的代码示例:
Private Sub pbxTile1_Click(sender As Object, e As EventArgs) Handles pbxTile1.Click
If TileFlag(1) = 0 Then Exit Sub
My.Computer.Audio.Play(My.Resources.Tile_Flip, AudioPlayMode.Background) : Application.DoEvents()
Me.pbxTile1.BackgroundImageLayout = ImageLayout.Stretch
Me.pbxTile1.BackgroundImage = My.Resources.FLIP01 : Application.DoEvents() : System.Threading.Thread.Sleep(50)
Me.pbxTile1.BackgroundImage = My.Resources.FLIP02 : Application.DoEvents() : System.Threading.Thread.Sleep(50)
Me.pbxTile1.BackgroundImage = My.Resources.FLIP03 : Application.DoEvents() : System.Threading.Thread.Sleep(50)
Dim GroceryValue = TileItem(1)
Call Get_Grocery(GroceryValue)
Me.pbxTile1.BackgroundImageLayout = ImageLayout.None
Me.pbxTile1.BackgroundImage = My.Resources.ResourceManager.GetObject(GroceryResource) : Application.DoEvents()
您可以看到我的问题 - 这是子程序的一小部分,我需要重新创建 32 次。但我相信你们中的一个聪明的小伙子可以想出一些办法来减轻我的痛苦!我见过标记、列表和索引——但不知道如何应用它,这是最好的,需要一些例子!