C# と VB.NET の質問掲示板

ASP.NET、C++/CLI、Java 何でもどうぞ

掲示板トップ C# と VB.NET 入門 新規作成 利用方法 ツリー表示 トピック表示 ランキング 記事検索 過去ログ
ログ内検索
  • キーワードを複数指定する場合は 半角スペース で区切ってください。
  • 検索条件は、(AND)=[A かつ B] (OR)=[A または B] となっています。
  • [返信]をクリックすると返信ページへ移動します。
キーワード/ 検索条件 /
検索範囲/ 強調表示/ ON (自動リンクOFF)
結果表示件数/ 記事No検索/ ON
大文字と小文字を区別する

No.94205 の関連記事表示

<< 0 >>
■94205 　クラスライブラリでのObject型について
□投稿者/ kumakuma -(2020/03/25(Wed) 05:45:18)

    分類:[VB.NET/VB2005 以降]　

    vb.netで開発したクラスライブラリでのObject型について

    現在vb.net Fremework 4.5.2の環境にてExcel等Officeで参照可能なライブラリとして
    クラスライブラリの開発を行っています。
    質問です。
    公開するファンクションやイベントでObject型を強制することは可能でしょうか？
    vb.netではvariant型の変わりにObject型になっています。
    その為かクラスライブラリでのObject型がすべてvariant型に変換されていまいます。
    これを変換させない方法はありますでしょうか？
    □例
    vb.net側　Function aaa(b as Object) as Object
    vba側　 Function aaa(b as Object) as Object

    Objectの中身はJsonのオブジェクトで構成が一定ではありません。
    その為、型やクラスに置き換えしづらい事と1000単位で修正しなくてはなりません。

    ご指導のほどよろしくお願いします。
親記事 /過去ログ163より / 関連記事表示
削除チェック/

■94207 　Re[1]: クラスライブラリでのObject型について
□投稿者/ 魔界の仮面弁士 -(2020/03/25(Wed) 09:11:58)
    ■No94205 (kumakuma さん) に返信
    > 公開するファンクションやイベントでObject型を強制することは可能でしょうか？
    これでどうでしょう。

    Public Sub SetVariant(ByVal o As Object)
    Public Sub SetVariantRef(ByRef o As Object)
    Public Function GetVariant() As Object

    Public Sub SetIDispatch( <MarshalAs(UnmanagedType.IDispatch)> ByVal o As Object)
    Public Sub SetIDispatchRef( <MarshalAs(UnmanagedType.IDispatch)> ByRef o As Object)
    Public Function GetIDispatch() As <MarshalAs(UnmanagedType.IDispatch)> Object

    Public Sub SetIUnknown( <MarshalAs(UnmanagedType.IUnknown)> ByVal o As Object)
    Public Sub SetIUnknownRef( <MarshalAs(UnmanagedType.IUnknown)> ByRef o As Object)
    Public Function GetIUnknown() As <MarshalAs(UnmanagedType.IUnknown)> Object
記事No.94205 のレス /過去ログ163より / 関連記事表示
削除チェック/

■94212 　Re[2]: クラスライブラリでのObject型について
□投稿者/ kumakuma -(2020/03/25(Wed) 12:26:52)
    ■No94207 (魔界の仮面弁士 さん) に返信
    > ■No94205 (kumakuma さん) に返信
    >>公開するファンクションやイベントでObject型を強制することは可能でしょうか？
    > これでどうでしょう。
    >
    > Public Sub SetVariant(ByVal o As Object)
    > Public Sub SetVariantRef(ByRef o As Object)
    > Public Function GetVariant() As Object
    こちらは今まで通りvariant型ですね。
    > Public Sub SetIDispatch( <MarshalAs(UnmanagedType.IDispatch)> ByVal o As Object)
    > Public Sub SetIDispatchRef( <MarshalAs(UnmanagedType.IDispatch)> ByRef o As Object)
    > Public Function GetIDispatch() As <MarshalAs(UnmanagedType.IDispatch)> Object
    こちらで無事Object型で登録されている事を確認できました。
    > Public Sub SetIUnknown( <MarshalAs(UnmanagedType.IUnknown)> ByVal o As Object)
    > Public Sub SetIUnknownRef( <MarshalAs(UnmanagedType.IUnknown)> ByRef o As Object)
    > Public Function GetIUnknown() As <MarshalAs(UnmanagedType.IUnknown)> Object
    こちらの場合Unknown型で登録されました。

    こちら1週間ほど悩んでいたので本当にありがとうございます。
    また個人的にはなりますが魔界の仮面弁士さんの様々な回答でいままで本当に助かっております。
    私の知識の半分は魔界の仮面弁士さんのおかげといっても過言ではございません。
    本当にありがとうございました。

記事No.94205 のレス / END /過去ログ163より / 関連記事表示
削除チェック/



<< 0 >>
パスワード/

- Child Tree -