C# と VB.NET の質問掲示板

■No41645 (たくボン さん) に返信
> ■No41644 (hs さん) に返信
毎回NewでFormを作っているなら通常はそれらを管理するために配列やリストなどにインスタンスを保持しておくべきです。
今回はOpenFormsでも管理できてますが、作り捨てはあまり推奨されません。

あと「自分自身ではない」という判定もNameプロパティでやるのは些か不安ですね。
現在のコード上、必ず異なるNameを振り分けられる保証があったとしても
今後のメンテでどうなるかわからないので。

またOpenFormsは呼び出されるたびに「開いているフォーム」を返します。
よって、たくボンさんの方法ではCloseするたびにOpenFormsの要素数が変わるのに
Forのカウンタ最大値は変わらないのでインデックス範囲外の例外が発生する可能性大です。

OpenFormsを使う方法でやるなら以下のような感じです


'現時点での要素数を維持するためコレクション変数に入れる
Dim forms As FormCollection = Application.OpenForms
Dim i As Integer

For i = 0 To forms.Count - 1
    'Is/IsNot で、インスタンスレベルで同一か調べる
    If forms(i) IsNot Me Then
        forms(i).Close()
    End If
Next

> '現時点での要素数を維持するためコレクション変数に入れる
> Dim forms As FormCollection = Application.OpenForms
> Dim i As Integer
> 
> For i = 0 To forms.Count - 1
>     'Is/IsNot で、インスタンスレベルで同一か調べる
>     If forms(i) IsNot Me Then
>         forms(i).Close()
>     End If
> Next

これも駄目だと思います。

For Each frm As Form In New List(Of Object)(Application.OpenForms)
    If frm IsNot Me Then
        frm.Close()
    End If
Next
とか。

まあちゃんと自分で管理するべきだとは思いますが。

みすりましたごめんなさい。

For Each frm As Form In New ArrayList(Application.OpenForms)
    If frm IsNot Me Then
        frm.Close()
    End If
Next

これで。