v2→v3.1への移行

[魚住]

いつもお世話になっております。

VB5+WingReport V2からVB(.NET FRAMEWORK1.1)へ移行を行っております。

そこでWingReport V2 で使用していた「wrCreateObject」はFRAMEWORK1.1で記述するとすればどうなりますでしょうか。
（今回は、互換性を保つ名前空間は使いたくないという事情もあります。）

ソースコードの抜粋
Dim wrobj As WRObject

wrobj.Name = strSenNm & vbNullChar
wrobj.X1 = sigStrXsen
wrobj.X2 = sigEndXsen
wrobj.Y1 = intStrYsen
wrobj.Y2 = intEndYsen
wrobj.Visible = True

このような記述をしていますが、最後のレポート定義体へ追加する部分で記述が分からない状態です。ここでは、ラインオブジェクトをCREATEしたい場合です。

[伊藤＠ソフトウィング]

いつもお世話になっております。

FRAMEWORK1.1にて「wrCreateObject」と同様の処理を行う記述は以下の通りとなります。

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

Dim wrobj As WRObject = Nothing
Dim wdnReport As WRReport = Nothing

wrobj = wdnReport.Layers(1).Create(ObjectType.Line,left,top,width,height)

wrobj.Name = strSenNm
wrobj.X1 = sigStrXsen
wrobj.X2 = sigEndXsen
wrobj.Y1 = intStrYsen
wrobj.Y2 = intEndYsen
wrobj.Visible = True

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

以上、宜しくお願い致します。

[投稿者]

投稿