如何使用格式和字体将文本复制到剪贴板上？

Question

我目前正在尝试允许用户在单击时将文本从Windows窗体上的标签复制到剪贴板，它会复制文本，但不会复制字体和大小。 如果有人可以帮助我以某种方式更改我的代码，以便剪贴板也将字体和字体大小与文本一起复制，将不胜感激。

这是运行它的代码：

Private Sub Lbl1_Click(sender As Object, e As EventArgs) Handles Lbl1.Click

    Clipboard.SetText(lbl1.Text)

    popup.Label1.Text = "Text copied to clipboard"
    Dim popupF As New Form
    popupF = popup
    popupF.Show()

End Sub

Answer 1

我会这样做。 创建课程：

<Serializable>
Private Class LabelText
    Public font As Font
    Public text As String
End Class

然后您可以将其复制到剪贴板，如下所示：

    Dim labelText As New LabelText
    labelText.font = Me.lbl1.Font
    labelText.text = Me.lbl1.Text

    Clipboard.SetData("label", labelText)

并粘贴如下：

    Dim labelText As LabelText = Clipboard.GetData("label")

    Me.lbl2.Font = labelText.font
    Me.lbl2.Text = labelText.text