'' 
'' このコードは、DioDocs for PDF のサンプルの一部として提供されています。
'' © MESCIUS inc. All rights reserved.
'' 
Imports System.IO
Imports System.Drawing
Imports GrapeCity.Documents.Pdf
Imports GrapeCity.Documents.Text

'' DsPdf を使用して「Hello、World！」 PDF を作成する、
'' 最も簡単な方法の１つです。
Public Class HelloWorld
    Sub CreatePDF(ByVal stream As Stream)
        '' 新規 PDF ドキュメントを作成します。
        Dim doc = New GcPdfDocument()
        '' ページを追加し、そのグラフィックスを取得します。
        Dim g = doc.NewPage().Graphics
        '' ページに文字列を描画します。
        '' メモ:
        '' - DsPdf のページ座標は、デフォルトで 72 dpi を使用して左上隅から始まります。
        '' - 標準のフォントを使用します（14個の標準 PDF フォントは DsPdf に組み込まれており、
        ''   常に利用可能です）：
        g.DrawString(
            "Hello, World!" + Environment.NewLine + "こんにちは、DioDocs（ディオドック）です",
            New TextFormat With {
                .Font = StandardFonts.Times,
                .FontSize = 12
            },
            New PointF(72, 72))
        '' PDF を保存します。
        doc.Save(stream)
    End Sub
End Class