値（参照）渡しでの引数（構造体）のデータ型

質問

Typeで構造体をいくつか宣言して、それをクリアする関数
を作ろうとしています。どんな構造体がきてもＯＫなように
作りたいんですが、？？？の部分にどうかけばいいかが
わかりません。こういうのって無理なんでしょうか？

Sub Test(ByVal 構造体 As ？？？)

'構造体のクリア
Call ZeroMemory(構造体, Len(構造体))

End Function

ある構造体のみと考えればわかるんですが、どれでもＯＫと
なるとわかりません・・・同じようなことでもいいので、
何かいい方法はないでしょうか？よろしくお願いします。

回答No.3

taka_tetsu

このAPIを使うのが楽でしょう

Declare Sub ZeroMemory Lib "KERNEL32" Alias "RtlMoveMemory" (dest As Any, ByVal numBytes As Long)

お礼

回答ありがとうございます。
このＡＰＩに飛ばす関数を作ろうとしています。
クリアするときに、このＡＰＩを使えばいいだけなんですけど・・。
もう少しやってみます。ありがとうございました。

回答No.2

todo36

ユーザー定義型をPublicクラスで定義した場合は、関数側で ByRef ～ As Variantで
受け取ればいいらしい。(某MLの情報)

>構造体のクリア
>Call ZeroMemory(構造体, Len(構造体))

構造体が可変長文字列や動的配列を含んでいると拙いと思うが..

お礼

回答ありがとうございます。
いろんな構造体となるとまずいようですね・・。
参考にさせて頂きます！ありがとうございました。

回答No.1

sorarisp

Objectで試してみましたか？
実際にテストしていないので旨くいくか分かりませんが。

お礼

回答ありがとうございます。
？？？のところをObjectってことですよね？
構造体を渡すと型が一致しませんとなります。