[기타] [vb.net] 클립보드(Clipboard)의 HTML 가져오기 및 HTML 쓰기
하나를하더라도최선을
2020-05-06 19:54
8,205
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