WPF：允许用户调整 RichTextBox 中图像的大小

Question

WPF 中的 RichTextBox 控件中是否有一种方法允许用户调整插入图像的大小，或者您是否必须为此设计自己的方法。

我想要实现的目标如下所示，写字板执行我想要的操作的屏幕截图：

注意：

• 以纯文本形式读取 RTF 文件我发现与图像大小相关的控制标签是 < code>\picscalex100 和 \picscaley100（其中 100 表示缩放至 100%）。

那么是的，有没有适当的方法或技巧呢？关于如何进行编程有什么建议吗？或者我完全看错了控件？

Answer 1

结果您需要将图像包装在 ResizingAdorner 中。

可以在 http://msdn.microsoft.com/en-us/library/ms771714%28loband%29.aspx" rel="noreferrer">http://msdn.microsoft.com/zh-cn 找到此代码的美观且简单的实现。 /msdn.microsoft.com/en-us/library/ms771714%28loband%29.aspx 作者：Marco Zhou（第二篇文章）。

此 ResizingAdorner 的代码可作为 MSDN 示例提供，网址为 http://msdn.microsoft.com/en-us/library/ms771714%28loband%29.aspx

这是我现在使用的代码的 VB.net 等效项

Dim img As Image
Sub AddImg() Handles btnAddImage.Click
    Dim dlg As New Microsoft.Win32.OpenFileDialog
    dlg.Filter = "Image Files(*.*) | *.*"
    If dlg.ShowDialog Then
        img = New Image
        AddHandler img.Loaded, AddressOf imgloaded
        img.Source = New BitmapImage(New Uri(dlg.FileName, UriKind.Absolute)) With {.CacheOption = BitmapCacheOption.OnLoad}
        Dim container As New BlockUIContainer(img)
        rtb.Document.Blocks.Add(container)
    End If
End Sub

Private Sub imgloaded(ByVal sender As Object, ByVal e As Windows.RoutedEventArgs)
    Dim al As AdornerLayer = AdornerLayer.GetAdornerLayer(img)
    If Not (al Is Nothing) Then
        al.Add(New SDKSample.ResizingAdorner(img))
    End If
End Sub

ResizingAdorner< /code> 示例需要一些出色的黑客技术才能满足我的需求，但这是一个很棒的开始。

希望其他人发现这很有用！

Answer 2

也许将图像复制到 Paint 并相应地调整大小，然后发布到 VB6 中的 RichTextBox。直接发布到 VB6 的图像往往会失真。从 Paint 复制到 VB6 的任何图像都会像在 Paint 中一样粘贴。我在从 PDF 图像复制到 RichTextBox 时发现了这一点。