메모리 부족 예외 새 비트 맵

Question

내 응용 프로그램에서 나는 타이머 경과 이벤트에 5 초마다 "업데이트"기능을 실행합니다. 이 함수는 5 초마다 실행되어 45 개의 picturebox 이미지를 "StatoBrucitore"변수 상태로 업데이트합니다. 인터페이스의 다시 그리기 버튼을 사용하여이 기능을 강제 실행할 수도 있습니다. 스트레스 테스트에서이 함수를 여러 번 클릭하면 "메모리 부족 예외"가 나타났습니다. 다음은 코드입니다 : 중간 경우 "eStato.sAccensione"는 애니메이션 GIF 것을

Select Case Essiccatoio.RegTemp(Ireg).StatoBruciatore 
    Case eStato.sOFF 
     NomeFile = Trim("FlameOff.png") 
     NomeFile = Percorso & "\Immagini\" & NomeFile 
     If My.Computer.FileSystem.FileExists(NomeFile) Then 
      Dim bm As New Bitmap(NomeFile) 
      PictBruc(Ireg).BackgroundImage = bm 
      PictBruc(Ireg).Image = Nothing 
     End If 
    Case eStato.sAccensione 
     NomeFile = Trim("FlameTransitorio.gif") 
     NomeFile = Percorso & "\Immagini\" & NomeFile 
     If My.Computer.FileSystem.FileExists(NomeFile) Then 
      Dim bm As New Bitmap(NomeFile) 
      PictBruc(Ireg).BackgroundImage = Nothing 
      PictBruc(Ireg).Image = bm 
     End If 
    Case eStato.sRegime 
     NomeFile = Trim("FlameTransitorio.png") 
     NomeFile = Percorso & "\Immagini\" & NomeFile 
     If My.Computer.FileSystem.FileExists(NomeFile) Then 
      Dim bm As New Bitmap(NomeFile) 
      PictBruc(Ireg).BackgroundImage = bm 
      PictBruc(Ireg).Image = Nothing 
     End If 
End Select 

주, 그래서 내가 애니메이션을 손실 할 수 이러한 접근 방식 원인 대신 listimage을 사용할 수 없습니다. 나는이 문제가 계속되는 "새로운 비트 맵"이라고 생각한다 ... 누구나이 예외를 해결하기 위해 제안 된 옵션을 가지고 있는가?

도움

당신은 선이있는 새로운 비트 맵을 만드는

Answer 1

주셔서 감사합니다 :

Dim bm As New Bitmap(NomeFile) 

...하지만 당신은 이전의 이미지를 폐기되지 않습니다. 45 개의 객체에 대해 5 초 타이머를 사용하면 분당 개의 새 객체가 개 있습니다. 결국에는 더 이상 생성 할 수 없으며 오류가 발생합니다.

---

동일한 세 이미지 중 하나를 지정했기 때문에 이러한 비트 맵을 계속해서 다시 만들 이유가 없습니다. 더 근본적으로 12 개의 그림 상자가 같은 이미지를 표시하려면 12 개의 다른 Bitmap 개체가 필요하지 않습니다.

로드 어딘가에 프로그램의 시작 배열로 이미지 :

Private BurnerImgs(2) As Image 

' load the array somewhere like form load: 
BurnerImgs(0) = Image.FromFile("...") 
BurnerImgs(1) = Image.FromFile("...") 
BurnerImgs(2) = Image.FromFile("...") 

그런 다음 거기에서 주어진에 PictureBox를 할당 :

PictBruc(Ireg).Image = BurnerImgs(0) 

---

을 이미지 자원의 구성원 인 경우 , 당신도 똑같은 일을하고 싶습니다. 리소스에서 이미지를 가져 오는 데 사용되는 GetObject() 메서드는 새 이미지 객체를 만듭니다. 따라서 리소스에서 반복적으로 할당하면 동일한 문제가 발생할 수 있습니다.

그것 좀 더 쉽게하지만 에서 배열을로드 :

Private BurnerImgs As Image() 
... 
BurnerImgs = New Image() {My.Resources.FlameOn, 
          My.Resources.FlameOff, 
          My.Resources.WhiteHotFlame} 

Answer 2

당신의 그림 상자에 새 비트 맵을 할당하기 전에 당신이 기존에 폐기()를 호출해야합니다.

If PictBruc(Ireg).Image isnot nothing then PictBruc(Ireg).Image.Dispose