クラスのイベントが拾えないのですが (ID:87812)

名前

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

本文 mammal様 回答いただきありがとうございます。 内容は理解できるのですが・・・ >解決策は、Global宣言したコピーからイベントを拾ってください。それだけ。 を実現するのに力不足のようで・・ Form2の記述を以下のように変更してみました。 Set clsD = clsa でGlobal宣言したクラスをForm2のclsDにコピー しているつもりです。 ・・・がやはりtext1に値が入りません。 Form2------------------------------ Option Explicit Dim WithEvents clsD As Class1 Public Sub clsa_c(ByVal strf As String) Text1.Text = strf End Sub Private Sub Form_Load() Set clsD = clsa End Sub Private Sub Form_Unload(Cancel As Integer) Set clsD = Nothing End Sub ----------------------------------- >てか、これでは、コンパイル時にエラーが出ませんか？ 私のところではエラーは出ずにEXEファイル作成されます^^; （Form2にはテキストボックスを,Form1にはボタンを配置して スタートアップの設定をSub main()にしています。）