質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

88.22%

メモリが大きくなりアプリがエラーになる(disposeのやり方が知りたい)

解決済

回答 1

投稿

  • 評価
  • クリップ 0
  • VIEW 422

hanbee.com

score 5

いつもお世話になっております。
以下のコードのようにピクチャーボックスを並べて画像を表示しているのですが、
時間がたつとアプリが「メモリが大きすぎる」というエラーを出してしまいます。
おそらくdisposeで開放していないからなのかなと思っています。

   Dim fs As FileStream
   Dim img As Image

   For i As Integer = 1 To 4

                '生成
                Dim bihin As New PictureBox
         '~~~DBからresourceを読み出します~~~~'
                fs = File.OpenRead(resource)
                img = Image.FromStream(fs, False, False) 
                bihin.Image = img
                Me.Controls.Add(bihin)

    Next


しかし、ネットで調べてコードを作り、デバックしてみてもコンパイルエラーが起きてしまいます。
(使用されたパラメータが有効ではありませんとのことです。)
以下にコードを載せます。このコードでは何がだめなのでしょうか。

どうかご教授宜しくお願い致します。

Imports System.IO
                        Try
                            fs = File.OpenRead(resource)
                            img = Image.FromStream(fs, False, False) 
                            bihin.Image = img
                            Me.Controls.Add(bihin)
                        Finally
                            fs.dispose()                            
                            img.Dispose()
                        End Try

Windows Form Application
Framework:.Net4.6.1

  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 過去に投稿した質問と同じ内容の質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

質問への追記・修正、ベストアンサー選択の依頼

  • YAmaGNZ

    2020/11/08 13:05

    「使いまわす」といった言葉がややこしいのかもしれませんね。
    最初からPictureBoxを必要個数分配置しておいて、それに対してImageをセットするという言い方なら分かりますか?

    キャンセル

  • hanbee.com

    2020/11/08 13:14

    ありがとうございます。
    「使い回す」という言葉ですが、理解できていると思っています。
    今ピクチャーボックスを必要個数分formのloadイベントで生成して使い回すようにコードを編集している最中です。
    このloadイベントを何回も繰り返すようにプログラムを作ってしまっていたので、loadイベントははじめの一度きりしか使わず、後はその生成したピクチャーボックスを更新するイベントを繰り返すようにする方針です。
    「使い回す」はとても分かりやすい表現だと感じてます!

    キャンセル

  • hanbee.com

    2020/11/08 13:50

    生成するイベントは表題のコードをそのまま使えばいいと思っていますが、
    更新するイベントは表題のコードで配列として生成したピクチャーボックスにアクセスしないといけないので、ちょっと難しいですね。
    フォームのデザインに配置しているわけではないので、Loadイベントの中以外ではbihin(i)は
    宣言されていない扱いになってしまいます。
    これについてももうちょっと考えてみようと思います。

    キャンセル

回答 1

checkベストアンサー

0

変数のスコープなど基本を学習する必要があるかと思います。
また、コメントにて「コントロールの配列に関して調べてください。」と書きましたが
「VB.NET コントロール 配列」と検索すれば下記のようにコントロールを配列に格納して利用するようなコードが紹介されているページがいろいろ出てくるはずです。

Private Bihin(4) As PictureBox

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    For i = 0 To 4
        Bihin(i) = New PictureBox()
    Next
End Sub

Private Sub proc()

    For i = 0 To 4
        '新しいイメージを取得する処理
        Dim newImage As Image = Nothing

        '古いイメージの破棄&新しいイメージをセット
        Dim oldImage = Bihin(i).Image
        Bihin(i).Image = newImage

        oldImage?.Dispose()
        'この書き方はNull条件演算子といって下記のコードと同等です。
        'If oldImage IsNot Nothing Then
        '    oldImage.Dispose()
        'End If

    Next

End Sub

また、表示されているコントロールを破棄するのは

Dim removecontrol = Me.Controls("PictureBox1")
Me.Controls.Remove(removecontrol)
removecontrol.Dispose()


という感じでControlsコレクションより削除して、そのコントロールをDisposeする処理となります。
もし、他に変数などにインスタンスを保持している場合はそれらもクリアして破棄対象のインスタンスを保持しているものはクリアする必要があります。

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2020/11/08 21:50

    YAmaGNZ様には長きにわたって私の質問に丁寧なご回答を頂きまして、本当に助かりました。ありがとうございます。

    キャンセル

  • 2020/11/29 14:32

    いつもお世話になっております。YAmaGNZさんの提案いただいた使いまわしのお陰でメモリがいっぱいになるという表題の問題点はクリアできていますので、これからKousinプロシージャを見直していこうと思います。それができてからこの質問をクローズしたいと思います。

    キャンセル

  • 2020/11/29 14:55

    すみません。やっぱり違う趣旨の質問となるのでいったんこの質問はクローズして新しく上げさせていただきます。ありがとうございました。

    キャンセル

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 88.22%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる

関連した質問

同じタグがついた質問を見る