기타 [vb.net] html 테그를 클립보드에 삽입하는 함수
페이지 정보
본문
Private Sub AddHTMLToClipboard(ByVal html As String)
Const sContextStart As String = "<HTML><BODY><!--StartFragment -->"
Const sContextEnd As String = "<!--EndFragment --></BODY></HTML>"
Const m_sDescription As String = "Version:1.0" & Constants.vbCrLf & "StartHTML:aaaaaaaaaa" + Constants.vbCrLf & "EndHTML:bbbbbbbbbb" + Constants.vbCrLf & "StartFragment:cccccccccc" + Constants.vbCrLf & "EndFragment:dddddddddd" + Constants.vbCrLf
Dim sHtmlFragment As String = html
Dim sData As String = m_sDescription & sContextStart & sHtmlFragment & sContextEnd
sData = sData.Replace("aaaaaaaaaa", m_sDescription.Length.ToString().PadLeft(10, "0"c))
sData = sData.Replace("bbbbbbbbbb", sData.Length.ToString().PadLeft(10, "0"c))
sData = sData.Replace("cccccccccc", (m_sDescription & sContextStart).Length.ToString().PadLeft(10, "0"c))
sData = sData.Replace("dddddddddd", (m_sDescription & sContextStart & sHtmlFragment).Length.ToString().PadLeft(10, "0"c))
Clipboard.SetDataObject(New DataObject(DataFormats.Html, sData), True)
End Sub
- 이전글[vb.net] 클래스에서 이벤트 매인 폼에서 사용하기 20.05.23
- 다음글[vb.net] WinHttp를 이용한 네이버 SmartEditor 2.0 이미지 업로드 20.05.23
댓글목록
등록된 댓글이 없습니다.