• 쇼핑몰
  • 커뮤니티
  • 북마크

vb.net




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

하나를하더라도최선을
2020.05.06 19:54 852 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

등록된 댓글이 없습니다.