(Visual Basic 6.0) Markdown to HTML - Full Document, Custom Theme with Code Syntax Highlighting

See more Markdown Examples

Demonstrates how to convert a complete Markdown document to HTML using your own custom theme with Cloudfare Prism's code syntax highlighting.

Note: This example requires Chilkat v11.2.0 or greater.

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

Dim success As Long
success = 0

success = 0

Dim options As New ChilkatJsonObject

' Instead of specifying a "theme", provide values for the HTML document parts.

Dim sbHead As New ChilkatStringBuilder
Dim bCrlf As Long
bCrlf = 1
success = sbHead.AppendLine("<head>",bCrlf)
success = sbHead.AppendLine("<style>",bCrlf)
success = sbHead.AppendLine("body {",bCrlf)
success = sbHead.AppendLine("  font-family: ""Segoe UI"", Tahoma, Geneva, Verdana, sans-serif;",bCrlf)
success = sbHead.AppendLine("}",bCrlf)
success = sbHead.AppendLine("</style>",bCrlf)
success = sbHead.AppendLine("</head>",bCrlf)

' Each HTML section can be set individually.
success = options.UpdateString("docType","<!DOCTYPE html>")
success = options.UpdateString("rootElement","<html lang=""en"">")
success = options.UpdateString("head",sbHead.GetAsString())
success = options.UpdateString("bodyStart","<body>" & vbLf & "<div id=""content""")
success = options.UpdateString("bodyEnd","</div>" & vbLf & "</body>")

' We can add extra content to the bottom of the HTML head and body sections like this:
' Here we are using the Cloudfare Prism "coy" theme for code syntax higlighting.
success = options.UpdateString("extraHead","<link rel=""stylesheet"" href=""https://cdnjs.cloudflare.com/ajax/libs/prism/1.29.0/themes/prism-coy.min.css"" />")
success = options.UpdateString("extraBody","<script src=""https://cdnjs.cloudflare.com/ajax/libs/prism/1.29.0/prism.min.js""></script><script src =""https://cdnjs.cloudflare.com/ajax/libs/prism/1.29.0/plugins/autoloader/prism-autoloader.min.js""></script>")

Dim sbMarkdown As New ChilkatStringBuilder
Dim sbHtml As New ChilkatStringBuilder

success = sbMarkdown.LoadFile("qa_data/markdown/test1.md","utf-8")
If (success = 0) Then
    Debug.Print sbMarkdown.LastErrorText
    Exit Sub
End If

success = sbMarkdown.MarkdownToHtml(options,sbHtml)
success = sbHtml.ToCRLF()

Debug.Print sbHtml.GetAsString()

' The sample markdown input for this example is identical to the one at Markdown to HTML - Full Document, Raw, where you can view it.

' Sample HTML output as viewed in a browser:

'