投稿日 | : 2003/02/21(Fri) 11:12 |
投稿者 | : 回答1412 |
Eメール | : |
URL | : |
タイトル | : Re: クラスモジュール |
'* フォームモジュール (Form1)
Option Explicit
Private Mo As New Class1
Private Sub Form_Load()
Set Mo.wForm = Me
Call Mo.aaa
End Sub
Public Sub ccc()
MsgBox "成功"
End Sub
'* クラスモジュール (Class1)
Option Explicit
Public wForm As Form1
Public Sub aaa()
Call wForm.ccc
End Sub
こんな感じ?
でも、普通こんなやり方はしないと思いますけど。