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