Private Sub btnRender_Click(sender As Object, e As EventArgs)
' アプリケーションパスを取得します
Dim appPath As String
appPath = System.IO.Path.GetDirectoryName
(System.Reflection.Assembly.GetExecutingAssembly().Location).ToLower()
Dim i As Integer = appPath.IndexOf(vbBack & "in")
If(i < 0) Then
i = appPath.IndexOf(vbBack & "in")
End If
If(i > 0) Then
appPath = appPath.Remove(i, appPath.Length - i)
End If
' レポート定義ファイルからレポートの名前を取得します
Dim m_ReportDefinitionFile As String = appPath &
Convert.ToString("¥Data¥Products Report.flxr")
Dim reports As String() = C1FlexReport.GetReportList(m_ReportDefinitionFile)
' コンボボックスにデータを設定します
cmbReport.Items.Clear()
For Each report As String In reports
cmbReport.Items.Add(report)
Next
Try
Cursor = System.Windows.Input.Cursors.Wait
' レポートをロードします
fv.StatusText = "Loading" + cmbReport.Text
rep.Load(m_ReportDefinitionFile, cmbReport.Text)
' 印刷プレビューコントロールにレンダリングします
fv.StatusText = "Rendering" + cmbReport.Text
fv.DocumentSource = rep
' 印刷プレビューコントロールにフォーカスを設定します
fv.Focus()
Finally
Cursor = InlineAssignHelper(Cursor, System.Windows.Input.Cursors.Arrow)
End Try
End Sub