Vb.net 如何使用格式和字体将文本复制到剪贴板上?

Vb.net 如何使用格式和字体将文本复制到剪贴板上?,vb.net,clipboard,clipboarddata,Vb.net,Clipboard,Clipboarddata,我目前正在尝试允许用户在单击时将文本从windows窗体上的标签复制到剪贴板,它会复制文本,但不会复制字体和大小。如果有人能帮我修改代码,让剪贴板也能复制字体和字体大小以及文本,我将不胜感激 下面是运行它的代码: Private Sub Lbl1_Click(sender As Object, e As EventArgs) Handles Lbl1.Click Clipboard.SetText(lbl1.Text) popup.Label1.Text = "Text co

我目前正在尝试允许用户在单击时将文本从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

我会这样做。创建类:

<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

对不起,这个不行。现在没有数据被添加到剪贴板。你是否完全按照我写的那样做?这是钥匙。