在异常发生后,我没有太成功尝试做任何事情 – 我无法获得足够的内存来做任何事情.

此外,我已经尝试分配一个巨大的对象,然后立即取消分配,结果不一致.也许我在做错事？

无论如何,我被困住的只是设置缓存对象的硬编码限制,从经验来看,似乎足够低.任何更好的想法？谢谢.

回答后编辑

以下代码似乎正在完成我想要的：

Loop 
    Dim memFailPoint As MemoryFailPoint = Nothing
    Try
        memFailPoint = New MemoryFailPoint( mysize) ''// size of MB of several objects I'm about to add to cache 
        memFailPoint.Dispose()
    Catch ex As InsufficientMemoryException
        ''// dump the oldest items here
    End Try
   ''// do work
next loop.

我需要测试是否在这种安排中放慢事情的速度,但是我可以看到任务管理器中的黄线看起来像一个非常健康的锯齿模式,具有一致的顶部！