서식 및 글꼴을 사용하여 텍스트를 클립 보드에 복사하는 방법은 무엇입니까?

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