使用InkEdit控件时发生内存泄漏

Question

我们有一个使用微软InkEdit控件的Windows Forms应用程序。这已经15年没有问题了。在windows7、8和10上运行得很好。然而，最近的windows10更新在调用此控件时引入了内存泄漏。

在堆栈溢出上也有类似的问题: https://stackoverflow.com/questions/63645140/memory-leaks-in-inkedit-control

我们已经在代码中实现了这些解决方案，但是仍然存在内存泄漏问题。

分析似乎表明windows DLL mshwLatin.dll正在泄漏内存。

我展示了一个简单的例子来重复这个问题。同样，在最新的Windows 10上也会发生这种情况。让一个窗口调用此窗口，然后关闭它。我的示例应用程序从4MB开始，在打开和关闭7-10次后增长到超过100MB。

寻找内存泄漏的解决方案(如果有)，或者如何最好地向Microsoft报告此问题。

Imports Microsoft.Ink  

Public Class Form2  
    Dim inkfield As New InkEdit  
    Dim inkfield2 As New InkEdit  
    Dim inkfield3 As New InkEdit  
    Dim inkfield4 As New InkEdit  
    Dim inkfield5 As New InkEdit  

    Public Sub New()  

        ' This call is required by the designer.
        InitializeComponent()

        ' Add any initialization after the InitializeComponent() call.
        Me.Controls.Add(inkfield)
        Me.Controls.Add(inkfield2)
        Me.Controls.Add(inkfield3)
        Me.Controls.Add(inkfield4)
        Me.Controls.Add(inkfield5)
        inkfield.Location = New Point(10, 10)
        inkfield2.Location = New Point(10, 40)
        inkfield3.Location = New Point(10, 70)
        inkfield4.Location = New Point(10, 100)
        inkfield5.Location = New Point(10, 150)
        inkfield.Height = 24
        inkfield2.Height = 24
        inkfield3.Height = 24
        inkfield4.Height = 24
        inkfield5.Height = 24
    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Me.Close()
    End Sub

End Class

Answer 1

我不知道这对你是否有效，但你可以尝试它，不是在相同的情况下，但它对我有效，我仍然在使用它。这会减少应用程序使用的内存大小。它很容易创建和测试。

1. 创建一个名为clsMemory的类，并插入以下代码：

导入CallingConvention:=CallingConvention.StdCall)>公共类CallingConvention:=CallingConvention.StdCall)> (“KERNEL32.DLL”，SetProcessWorkingSetSize“SetProcessWorkingSetSize”，SetLastError:=True，CallingConvention：=CallingConvention.StdCall)>_ Friend共享函数SetProcessWorkingSetSize(ByVal pProcess作为IntPtr，ByVal dwMinimumWorkingSetSize作为整数，ByVal dwMaximumWorkingSetSize作为整数)作为布尔结束函数作为End Function Public Sub New() Dim As =()(，-1，()(，-1，-1)端子端类

1. 在表单上创建一个按钮btnCleanMemory并插入以下代码：

Dim MemClass As clsMemory() MemClass = Nothing

虽然可能性不大，但当应用程序使用大量内存时，只需单击该按钮，即可查看它是否适用于您。