1

我使用以下代码删除控制数组元素Unload并尝试替换元素

Private Sub mnudelete_Click()
Dim i As Integer
MsgBox (SelectedItemIndex)
RoomIndex = SelectedItemIndex
Unload frmData.lblRoom(RoomIndex)
Unload frmData.brdrRoom(RoomIndex)
For i = SelectedItemIndex To NumberOfRooms
    lblRoom(i) = lblRoom(i + 1)
    brdrRoom(i) = brdrRoom(i + 1)
Next
NumberOfRooms = NumberOfRooms - 1
End Sub

但是发生了一些错误,是否可以在控制数组中执行删除?请帮帮我:)

4

1 回答 1

1

如果您在运行时添加控件,则只能删除控件数组中的控件(尝试删除您通过设计器添加的控件,您会收到错误消息)。此代码应该可以工作:

Unload lblRoom(RoomIndex)
Unload brdrRoom(RoomIndex)

来自MSDN:

您可以使用 Unload 语句删除使用 Load 创建的任何控件。但是,您不能使用 Unload 删除在设计时创建的控件,无论它们是否是控件数组的一部分。

于 2015-08-05T12:44:09.227 回答