기타 [vb.net] 클립보드(Clipboard)의 HTML 가져오기 및 HTML 쓰기
페이지 정보
본문
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
- 이전글[vb.net] 리소스(Resources) 파일로 저장하기 20.05.06
- 다음글[vb.net] CallByName을 이용한 Shared 로 설정된 변수에 값넣고 불러오기 20.04.24
댓글목록
등록된 댓글이 없습니다.