在這裏沒有結果的一個代碼段:使用BITMAP
Dim BMf As Bitmap
BMf = New Bitmap(PicBox.Width, PicBox.Height)
Call FourierPlot(PlotHeight, PlotWidth, RPMArray, CoefArray, Count, 2, BMf)
Me.PicBox.Image = BMf
BMf.Dispose()
子程序內是這樣的代碼:
Dim myGraphics As Graphics = Graphics.FromImage(BMf)
Dim myPen As New Pen(colr)
....
myGraphics.DrawLine(myPen, lastx, lasty, temp1, temp2)
....
myPen.Dispose()
myGraphics.Dispose()
顯示的PicBox由具有線的邊界矩形的從對角繪製(什麼我認爲是一個「錯誤圖像。)
任何建議(希望非常簡單的),我做錯了什麼?
你得到了Dispose()回調。你應該處理*舊*圖像,而不是新的。因此,在分配Image屬性之前使用'If Me.PicBox.Image IsNot Nothing Then Me.PicBox.Image.Dispose()'。 –