[WR3.0]WROGetX1関数について Part2

[C-Hashimoto]

お世話になっております。
前回の投稿（[WR3.0]WROGetX1関数について）へのご回答を有難う
ございました。
新モジュールで早速試してみたのですが、エラーは出なくなった
ものの値が全て0で返ってきてしまいます。
以下の４関数が該当します。

・WROGetX1
・WROGetX2
・WROGetY1
・WROGetY2

さらに、以下の４関数は値を反映していないようです。

・WROSetX1
・WROSetX2
・WROSetY1
・WROSetY2

なお同じLineタイプオブジェクトに関して、以下の関数は値を
正確に反映しています。

・WROGetLineColor
・WROSetLineColor
・WROGetVisible
・WROSetVisible

対処方法などありましたらお教え下さい。
以上宜しくお願い致します。

[動作環境]VB6+SP3,Windows98

[中嶋＠ソフトウィング]

お世話になっております。

こちらで確認しましたDeclare文を記述しましたので
お試しいただけますでしょうか？

よろしくお願いいたします。

Declare Function WROGetX1 Lib “WRCIF30.DLL” (ByVal Hreport As Long, ByVal strObjectName As String, lngVal As Single) As Long
Declare Function WROGetX2 Lib “WRCIF30.DLL” (ByVal Hreport As Long, ByVal strObjectName As String, lngVal As Single) As Long
Declare Function WROGetY1 Lib “WRCIF30.DLL” (ByVal Hreport As Long, ByVal strObjectName As String, lngVal As Single) As Long
Declare Function WROGetY2 Lib “WRCIF30.DLL” (ByVal Hreport As Long, ByVal strObjectName As String, lngVal As Single) As Long

Declare Function WROSetX1 Lib “WRCIF30.DLL” (ByVal Hreport As Long, ByVal strObjectName As String, ByVal lngVal As Single) As Long
Declare Function WROSetX2 Lib “WRCIF30.DLL” (ByVal Hreport As Long, ByVal strObjectName As String, ByVal lngVal As Single) As Long
Declare Function WROSetY1 Lib “WRCIF30.DLL” (ByVal Hreport As Long, ByVal strObjectName As String, ByVal lngVal As Single) As Long
Declare Function WROSetY2 Lib “WRCIF30.DLL” (ByVal Hreport As Long, ByVal strObjectName As String, ByVal lngVal As Single) As Long

[C-Hashimoto]

お世話になっております。ご回答を有難うございました。
宣言を書き換えてみたところ無事動作致しました。
お手数をおかけ致しました。

なお WingReport v3.0\Dev\WR30VBAPI.bas に該当関数分の
Declare宣言が無かったため、こちらで作成したものが動作
しなかったようです。

色々有難うございました。
これからも宜しくお願い致します。

[投稿者]

投稿