表示・非表示

[saito]

以前の掲示板（0027）でオブジェクトの表示切替が
あってその通りにやってみたのですがうまくいきません。
ご教授お願い致します。

Dim SetOBJ As WROBJPROPERTY
SetOBJ.fVisible = 0
If wrSetObjectProp(hReport, “Line200”,WON_VISIBLE, SetOBJ) Then
‘詳細なエラーコードを取得
dwErrorCode = wrGetErrorCode(hReport, True)
MsgBox dwErrorCode
‘戻る
Exit Sub
End If

　※　dwErrorCodeの値は０です。
　※　Line200はグループ化してありません。

***　開発環境　******
　VB6 SP5 Windows2000
********************

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

お世話になります。

wrSetObjectProp関数の戻り値はBooleanとなっており、処理に
失敗したときのみFalseを戻します。
大変お手数ですが、下記の様にコードを修正してテストを行っ
て頂けないでしょうか？

　　if not wrSetObjectProp( …… ) then
.
.
end if

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

[投稿者]

投稿