[WROSetText]に渡す文字列

[ishii]

お世話になっております。
[VB6]+[WR2.0]から[VB2008]+[WR3.1](API使用)への移行作業での質問となります。

レポート上の表へ条件により「○」（全角の丸）を表示するため、下記のようなプログラムを組んでいます。

—START—
Dim strWk As String

strWk = “○”

If optChecked1 = “0” Then
Call WROSetText(hReport, “txt1”, strWk)
ElseIf optChecked = “1” Then
Call WROSetText(hReport, “txt2”, strWk)
End If

If optChecked2 = “0” Then
Call WROSetText(hReport, “txt3”, strWk)
ElseIf optChecked = “1” Then
Call WROSetText(hReport, “txt4”, strWk)
End If
—END—

[txt1][txt2]に対しては「○」が表示されましたが、[txt3][txt4]には「・」が表示されました。
デバッグして追ってみたところ、最初のIF文内で[WROSetText]を呼ぶと変数「strWk」の内容が変わってしまっていましたが、[WROSetText]の使用方法に問題があるのでしょうか？

なお使用しているAPIのモジュールのバージョンは下記のとおりです。
　WrCif31.dll　4.1.0.20

年末のお忙しい中申し訳ありませんが大至急よろしくお願いいたします。

[ishii]

すいません、ソースが一部誤っていました。
「ElseIf」部分の「optChecked」は、それぞれ「optChecked1」「optChecked2」となります。

[support]

お世話になっております。ソフトウィングサポート係です。

現象確認の為、現在ishii様が使用している定義ファイルを
「support@swg.co.jp」にご提供頂く事は可能でしょうか？

以上、よろしくお願い申し上げます。
　　　　　　　　　　　　　　　　　　　　　株式会社ソフトウィング
　　　　　　　　　　　　　　　　　　　　　　　　　　　サポート係

[ishii]

お世話になっております。
API関数定義ファイルを送付させていただきましたのでよろしくお願いいたします。

[ishii]

送付して頂いた.net用のAPI定義ファイルを使用したところ、文字欠けの現象は起きなくなり、問題なく帳票が出力されることを確認いたしました。
御対応ありがとうございました。

[投稿者]

投稿