EXEからActiveX DLLへユーザー定義型を引数にする (ID:91486)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ユーザー定義型を引数にしようと思いコンパイルしたところ、 「パブリック オブジェクト モジュールで定義されたユーザー定義型に限り、クラスモジュール内のパブリックユーザー定義型の要素として使用することができます。」というエラーメッセージが出てしまいます。 過去ログも確認しましたが、VBを始めたばかりの完全な素人の為理解できませんでした。申し訳ございませんが、以下のコードの間違いをご教授お願い致します。 [EXE Form] Private Sub Command1_Click() Dim obj1 As Object Dim rtn As Integer Dim t1 As typ1 Set obj1 = CreateObject("dll1.Class1") t1.a1 = "1" t1.a2 = "2" rtn = obj1.Mt2(t1) End Sub [EXE Module] Public Type typ1 a1 As String a2 As String End Type Public t1 As typ1 [ActiveXDLL Class] Type typ1 a1 As String a2 As String End Type ---------------------------- Public Function Mt2(t1 As typ1) As Integer Mt2 = 3 End Function