掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
別プロジェクトからフォームの参照を受け取るには (ID：76037)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
任意のフォームのキーエベントをフックしてコントロールを制御するプログラムを作成しＤＬＬ化しようとしているのですが該当のソースをコンパイルすると以下のエラーがでます。 「プライベートオブジェクトモジュールを、 パブリックオブジェクトモジュール内でパブリックプローシジャの 引数または戻り値、パブリックデータメンバ、またはパブリックの ユーザー定義型のフィールドとして、使用することはできません。」 どうやらフォーム型変数がまずいようです。 フォーム型変数をオブジェクト型に変えて再コンパイルしても同じ結果でした。何か他の方法があれば教えてください。お願いします。 [ソース] '任意のフォームのイベントを請負うためイベントを宣言 Dim WithEvents mfrmForm As Form 'フォームとフォームコントロールの参照を受け取るメソッド Public Sub Connect(frmForm As Form, varControls As Variant) '任意のフォームオブジェクトを生成 Set mfrmForm = frmForm 'コントロール配列をバリアント型へ代入 mvarControls = varControls End Sub ’フォームのイベント処理 Private Sub mfrmForm_KeyDown(KeyCode As Integer, Shift As Integer) 'いろいろな処理 End Sub
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.