VB.NETからのHTML帳票出力

VB.NET + Create!FormでのHTML帳票生成方法

まず、Create!Formを使ってHTML帳票を生成する手順を説明します。

1. 帳票開発環境で、帳票定義（デザインやデータとの関連付け）を作成する。
2. VB.NETアプリケーションより、帳票出力用データファイルを作成する。
3. VB.NETアプリケーションから、1の帳票定義や2の帳票出力用データファイルをもとに、Create!Form Screen(HTML帳票出力ランタイム)を呼びだし、HTML帳票を出力する。

3の、Create!Form Screenを呼び出すVB.NETサンプルコードを以下に記載します。

VB.NETサンプルコード

VB.NETからの呼び出しが簡単に行える.NetAPIを使用してHTML帳票を作成します。

実行パラメーターに、作業ディレクトリ、スタイルファイル、出力ファイル名、入力データファイル名を設定し、Create!Form Screenを呼び出します。

Imports Infotec.CreateForm.Runtime
Imports Infotec.CreateForm.Runtime.Html

Module Module1

    Sub Main()
        Dim screen As ScreenRuntime
        Dim param As RuntimeParam
        Dim inputStd As InputDataParamStandard
        Dim inputData() As InputDataParam
        Dim ret As Integer

        Console.WriteLine("## Create!Form Runtime Call. ##")

        ' ①実行オプションの設定
        param = New RuntimeParam
        param.WorkDir = "C:\ProgramData\Infotec\CreateForm\12\work\sample\01_申請・申込書"
        param.StyleFile = "A02_JukiCardShinsei.sty"
        param.OutputFile = param.WorkDir & "\A02_JukiCardShinsei.html"
        ' ②入力データファイルの設定
        inputStd = New InputDataParamStandard
        inputStd.DataFile = param.WorkDir & "\A02_JukiCardShinsei.csv"
        inputData = New InputDataParam() {inputStd}
        param.InputData = inputData
        ' ③ランタイムオブジェクトを作成し、のExecute メソッドを実行
        screen = New ScreenRuntime
        ret = screen.Execute(param)
        ' ④ランタイム実行の後処理
        If ret <> 1 Then
            ' エラー処理
            Console.WriteLine("Error Code:" + ret.ToString("D"))
        Else
            Console.WriteLine("Success")
        End If
    End Sub

End Module

このサンプルコードを実行すると、指定したディレクトリにHTML帳票「A02_JukiCardShinsei.html」が作成されます。