如何循环给RichTextBox添加图片？

Question

我正在向 RichTextBox 添加不同的字符串数组，我也想插入图片。我搜索了一种方法，他们都说粘贴它。我试过了，但它在循环中不起作用。

Dim df As DataFormats.Format = DataFormats.GetFormat(DataFormats.Bitmap)
for i as integer = 0 to 50
 RTF1.text = RTF1.text & arr1(i) & arr2(i) & vbnewline 
 Dim bmp As New Bitmap(picarr(i))
 Clipboard.SetImage(bmp)
 RTF1.Paste(df)
next i

我也试过SendKeys，因为当我按Ctrl+V时，它会粘贴图片。另外，我尝试退出循环，它只粘贴最后一张图片。

Answer 1

每次设置 RichTextBox.Text 属性时，您都会丢失它之前包含的所有 RTF 数据（包括格式、图像等），而您只保留纯文本（因为= RTF1.Text & ...).

而是使用 AppendText() 方法，如下所示：

Dim df As DataFormats.Format = DataFormats.GetFormat(DataFormats.Bitmap)
For i As Integer = 0 To 50
    RTF1.AppendText(arr1(i) & arr2(i) & vbNewLine)
    Using bmp As New Bitmap(picarr(i))
        Clipboard.SetImage(bmp)
    End Using
    RTF1.Paste(df)
Next

如何循环给RichTextBox添加图片？

How to add pictures to RichTextBox in a loop?

vb.net

image

richtextbox