Vb.net 如何使用格式和字体将文本复制到剪贴板上?
我目前正在尝试允许用户在单击时将文本从windows窗体上的标签复制到剪贴板,它会复制文本,但不会复制字体和大小。如果有人能帮我修改代码,让剪贴板也能复制字体和字体大小以及文本,我将不胜感激 下面是运行它的代码: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
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
对不起,这个不行。现在没有数据被添加到剪贴板。你是否完全按照我写的那样做?这是钥匙。