LowMemoryNotificationContext Class

Public NotInheritable Class LowMemoryNotificationContext
	Implements IDisposable

Dim instance As LowMemoryNotificationContext

public ref class LowMemoryNotificationContext sealed : IDisposable

[<SealedAttribute>]
type LowMemoryNotificationContext = 
    class
        interface IDisposable
    end

No code example is currently available or this language may not be supported.

<ReliabilityContract(Consistency.WillNotCorruptState, Cer.MayFail)>
<SecurityCritical>
Private Sub Test() 

    Dim computerInfo As New Microsoft.VisualBasic.Devices.ComputerInfo()
    Dim minMemory As ULong = 1073741824 '1 GB
    Dim action As New Action(
        Sub()
            Console.WriteLine("Available free physical memory is running low...")
            Console.WriteLine($"Total...........: {New Filesize(computerInfo.TotalPhysicalMemory, DigitalStorageUnits.Byte)}")
            Console.WriteLine($"Available.......: {New Filesize(computerInfo.AvailablePhysicalMemory, DigitalStorageUnits.Byte)}")
            Console.WriteLine($"Minimum required: {New Filesize(minMemory, DigitalStorageUnits.Byte)}")
        End Sub)

    Using lowMemNotify As New LowMemoryNotificationContext(minMemory, action, 1000)

        ' Allocate all available physical memory:
        Dim allocSize As New IntPtr(CLng(computerInfo.AvailablePhysicalMemory))
        Dim alloc As IntPtr = Marshal.AllocHGlobal(allocSize)
        NativeMethods.ZeroMemory(alloc, allocSize)

        ' Run job until the low-memory notification occurs.
        Do While True
            Thread.Sleep(100)
            Application.DoEvents()
        Loop

    End Using

End Sub

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.