を使用して制御配列要素を削除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
なんらかのエラーが発生しましたが、コントロール配列で削除を実行できますか? 助けてください:)