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

名前

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

本文 おかん様 回答ありがとうございます。 分かりにくいソースで申しわけないです。コメントを反映してみました。 が,それでもForm2のclsa_cのイベント？が発生しません。 参照のセットは行われています。（Module.でglclsAが選択できます） 以下ソースです。 Module1.bas---------------------- Option Explicit Global glclsA As Class1 Sub Main() Set glclsA = New Class1 Form1.Show 0 Form2.Show 0 End Sub Sub Ending() '終了処理 Set glclsA = Nothing End Sub --------------------------------- class1.cls----------------------- Dim strd As String Public Event Evtest(ByVal strf As String) Public Sub Testsub(ByVal strc As String) RaiseEvent Evtest(strc) End Sub ---------------------------------- Form1------------------------------ Option Explicit Private Sub Command1_Click() Module1.glclsA.Testsub ("ああああ") End Sub Private Sub Form_Unload(Cancel As Integer) '終了処理 Call Ending Unload Form2 End Sub ----------------------------------- Form2------------------------------ Option Explicit Dim WithEvents clsD As Class1 Private Sub clsD_Evtest(ByVal strf As String) Text1.Text = strf End Sub Private Sub Form_Load() Set clsD = Module1.glclsA End Sub Private Sub Form_Unload(Cancel As Integer) Set clsD = Nothing End Sub -----------------------------------