[vb.net] 클립보드(Clipboard)의 HTML 가져오기 및 HTML 쓰기 > vb.net

본문 바로가기

vb.net

[기타] [vb.net] 클립보드(Clipboard)의 HTML 가져오기 및 HTML 쓰기

회원사진
하나를하더라도최선을
2020-05-06 19:54 7,848 0

본문



    Public Function SwapClipboardHtmlText(Optional ByVal replacementHtmlText As String = ""As String
        Dim returnHtmlText As String = ""
        If Clipboard.ContainsText(TextDataFormat.Html) Then
            returnHtmlText = Clipboard.GetText(TextDataFormat.Html)
            returnHtmlText = Split(returnHtmlText, "<!--StartFragment-->")(1)
            returnHtmlText = Split(returnHtmlText, "<!--EndFragment-->")(0)
            If replacementHtmlText.Length > 0 Then Clipboard.SetText(replacementHtmlText, TextDataFormat.Html)
        End If
        Return returnHtmlText
    End Function
 
 
    Private Sub RichTextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles RichTextBox1.KeyDown
        If e.Modifiers = Keys.Control AndAlso e.KeyCode = Keys.V Then
            Dim T As String = SwapClipboardHtmlText()
            If T.Length > 0 Then Clipboard.SetText(T)
        End If
    End Sub
 

댓글목록0

등록된 댓글이 없습니다.
게시판 전체검색