我使用以下代码删除控制数组元素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
但是发生了一些错误,是否可以在控制数组中执行删除?请帮帮我:)