System.OutOfMemoryException

[ndemidov]

Вот код из программы, который приводит к этой ошибки:

Код: Выделить всё

Dim fntTemp As New Font("Arial", 12)
SelectObject(MeDC, fntTemp.ToHfont)
TextOut(MeDC, 0, 0, "Font", 4)
fntTemp.Dispose()

Если делать это часто, то приведёт к OutOfMemoryException. Объясните пожалуйста в чём тут дело и как этого избежать. (Я только могу предположить, что при передаче fntTemp.ToHfont увеличивается ссылка на объект fntTemp и поэтому он не освобождается при GC.Collect.)

P.S. Прикрепляю демонстрационный пример, но скорее всего, после него придётся перезагружать компьютер

[iGrok]

Не уверен... Но что если так?

Код: Выделить всё

hNew = fntTemp.ToHfont
hOld = SelectObject(MeDC, hNew )

...
SelectObject (MeDC, hOld)
DeleteObject hNew

[ndemidov]

iGrok, всё работает! Спасибо. А fntTemp, помойму, можно не Dispose'ить?

[iGrok]

А по-моему, не помешает..
Но опять же. Не уверен ))