Вызов события в MemoryMappedFiles

Dim sharedMemory As MemoryMappedFile
 
Protected Overrides Sub OnStart(ByVal args() As String)
sharedMemory = MemoryMappedFile.CreateOrOpen("Global\MemoryFile", 1000 * 2 + 4)
End Sub
 
Public Sub MAPFILE(ByVal msg As String)
        Dim message As Char() = msg
        Dim size As Integer = message.Length
        Using writer As System.IO.MemoryMappedFiles.MemoryMappedViewAccessor = sharedMemory.CreateViewAccessor(0, size * 2 + 4, MemoryMappedFileAccess.Write)
            writer.Write(0, size)
            writer.WriteArray(Of Char)(4, message, 0, message.Length)
        End Using
    End Sub

Dim size1 As Integer
Dim sharedMemory As MemoryMappedFile
    Private Sub MAPS(ByVal message As Char())
        Try
            Using reader As MemoryMappedViewAccessor = sharedMemory.CreateViewAccessor(0, 4, MemoryMappedFileAccess.Read)
                size1 = reader.ReadInt32(0)
            End Using
            Using reader = sharedMemory.CreateViewAccessor(4, size1 * 2, MemoryMappedFileAccess.Read)
                message = New Char(size1 - 1) {}
                reader.ReadArray(Of Char)(0, message, 0, size1)
            End Using
            TEXT_BOX(message & vbCrLf)
        Catch ex As Exception
            TEXT_BOX("NO MAP FILE EXIST" & vbCrLf)
        End Try
    End Sub
 
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        sharedMemory = MemoryMappedFile.OpenExisting("Global\MemoryFile", size1 * 2 + 4)
        Dim SENDERS As New System.Threading.Thread(AddressOf MAPS)
        SENDERS.Start()
End Sub

Пример когда поток ждёт наступления объекта‐события. Поток может находиться даже в другом процессе.
Имя объекта‐события должно быть уникальным.
Sub Main()
    Dim weh = New Threading.EventWaitHandle(False, Threading.EventResetMode.AutoReset, "Событие")
 
    Dim hThread = New Threading.Thread(AddressOf ThreadProc)
    hThread.Start()
 
    Do
        ' Что‐то сделать, например, записать в файл, в данном примере просто ждём ввода с консоли
        Console.ReadLine()
 
        ' Установить событие, сигнализировав ожидающим потокам, что всё готово
        weh.Set()
    Loop
End Sub
 
Sub ThreadProc()
    ' Создать или открыть событие
    Dim weh = New Threading.EventWaitHandle(False, Threading.EventResetMode.AutoReset, "Событие")
 
    Do
        ' Ожидать, когда кто‐то установит событие
        weh.WaitOne()
 
        ' После установки события можно делать полезную работу, в данном примере просто выводим надпись на консоль
        Console.WriteLine("Событие случилось")
    Loop
 
End Sub

.IsBackground = True

eventX = New Threading.EventWaitHandle(False, Threading.EventResetMode.ManualReset, "000" & myName)

Sub WaitSignal()
        Do
            eventX.WaitOne()
            If wasSendEvent Then
                wasSendEvent = False
                eventX.Reset()
                GoTo ItWasMyEvent
            End If
            'Выполняем необходимые действия
ItWasMyEvent:
        Loop
    End Sub

        Try
            Do
                eventX.WaitOne()
                If wasSendEvent Then
                    wasSendEvent = False
                    eventX.Reset()
                    Continue Do
                End If
                'Выполняем необходимые действия
                DoWork()
            Loop
        Catch ex As ThreadInterruptedException
 
        End Try

                If wasSendEvent Then
                    wasSendEvent = False
                    eventX.Reset()
                    Continue Do
                End If

Sub ReadingThread()
    Do While Wait(hEvent)
        
        ' Событие взведено, теперь можно читать файл
        ReadFile(параметры)
        
        ' Файл прочитан, продолжаем ждать взведения события
    Loop
End Sub

Sub WritingThread()
    Do
        ' Ждём данные, чтобы записать их в файл
        GetData(параметры)
 
        ' У нас есть данные для файла
        ' Сбрасываем событие
        Event.Reset()
        
        ' Записываем данные в файл
        WriteFile(параметры)
        
        ' Уведомляем читающие потоки, устанавливая событие
        Event.Set
    Loop
End Sub

        Event.Reset()
        ' Записываем данные в файл
        WriteFile(параметры)
        ' Уведомляем читающие потоки, устанавливая событие
        Event.Set

Public Class eXPS
    Implements IConnectable
    'Implements IMovable
    Public X As Integer
    Public Y As Integer
    Public num As Integer
    Public myName As String
    Public pins As Integer
    Public loc As Integer = 1
 
    'Dim points() As Apoint
    Dim mFile As MemoryMappedFile
    Dim eventX As Threading.EventWaitHandle
    Dim eventThread As Threading.Thread
    Dim wasSendEvent As Boolean = False
    Dim Signals As New ArrayList
    Delegate Sub DoNext_()
    Private myDelegate As DoNext_ = New DoNext_(AddressOf DoNext)
 
    Dim m_Y As Integer
    Dim m_X As Integer
 
    'Structure Apoint
    '   Dim myCondition As Integer
    '   Dim Condition As Integer
    '   Dim pin As Integer
    'End Structure
 
    Public Sub New(rx As Integer, ry As Integer, n As Integer, aName As String, pinov As Integer, locat As Integer)
        ....
        myName = aName
        ....
 
        OnCreate()
    End Sub
 
    Sub OnCreate()
        mFile = MemoryMappedFile.CreateOrOpen(myName, 256)
        eventX = New EventWaitHandle(False, Threading.EventResetMode.ManualReset, "000" & myName)
        eventThread = New Thread(AddressOf WaitSignal) With {
            .IsBackground = True
        }
        eventThread.Start()
    End Sub
 
    Sub WaitSignal()
        Try
            Do
                eventX.WaitOne()
                If wasSendEvent Then
                    wasSendEvent = False
                    eventX.Reset()
                    Continue Do
                End If
                'Выполняем необходимые действия
                DoWork()
            Loop
        Catch ex As ThreadInterruptedException
 
        End Try
    End Sub
 
    Sub DoWork()
        Dim size1 As Integer
        Dim message As Char(), msg As String
        Try
            Using reader As MemoryMappedViewAccessor = mFile.CreateViewAccessor(0, 4, MemoryMappedFileAccess.Read)
                size1 = reader.ReadInt32(0)
            End Using
            Using reader = mFile.CreateViewAccessor(4, size1 * 2, MemoryMappedFileAccess.Read)
                message = New Char(size1 - 1) {}
                reader.ReadArray(Of Char)(0, message, 0, size1)
            End Using
            msg = New String(message)
            Signals.Add(msg)
            Me.Invoke(myDelegate)
        Catch ex As Exception
 
        End Try
    End Sub
 
    Public Sub Change(from As Integer, condition As Integer) Implements IConnectable.Change
 
        Dim msg As String = "A;" & (from - num).ToString & ";" & (condition + 50).ToString
        Dim message As Char() = msg
        Dim size As Integer = message.Length
 
        Using writer As System.IO.MemoryMappedFiles.MemoryMappedViewAccessor = mFile.CreateViewAccessor(0, 256, MemoryMappedFileAccess.Write)
            writer.Write(0, size)
            writer.WriteArray(Of Char)(4, message, 0, message.Length)
        End Using
        eventX.Set()
        wasSendEvent = True
    End Sub
    ......
End Class

        eventX.Set()
        wasSendEvent = True

            Do
                eventX.WaitOne()
                
                If wasSendEvent Then
                    wasSendEvent = False
                    eventX.Reset()
                    Continue Do
                End If
                
                'Выполняем необходимые действия
                DoWork()
                
            Loop

            Do
                eventX.WaitOne()
                
                'Выполняем необходимые действия
                DoWork()
                
            Loop