如何在 VBA for Ms Access 中擦除或重新加载 InkPicture 笔画？

我想显示之前在 Ms Access 中的 inkPicture 对象上保存的笔画（它位于通过 ActiveX 的表单上）。

笔划作为 ole 对象保存在表中的“笔划”字段中。

现在，执行一次就足够简单了（一行代码），我可以毫无问题地使用此代码片段：

Public Sub loadInkImage(MyInkPic As MSINKAUTLib.InkPicture)       

    MyInkPic.Object.Ink.Load (Me.Strokes)       

End Sub

当我想第二次这样做时，问题就出现了：墨水图片不再“干净”并且无法加载笔画。
仅删除现有笔画是行不通的，那么如何再次填充相同的墨迹图片呢？

Thanks!

您是否正在尝试将两组笔画加载到同一个对象中，或者只是将一组新的笔画重新加载到 InkPicture 中？如果要重新加载笔画，您需要创建一个新的 InkDisp 对象，然后将其分配给 InkPicture。

Public Sub loadInkImage(MyInkPic As MSINKAUTLib.InkPicture)

    Dim newInk As New MSINKAUTLib.InkDisp 'need new object to load new ink

    newInk.Load Me.Strokes 'load in the ink

    Set MyInkPic.Ink = newInk 'set the InkPictures Ink to the new Ink
End Sub

注意：我目前无法对此进行测试，因此可能需要调整。