events - vb6でイベントを実装するには?

Question

私は1つのボタンを定義し、1つのイベントがボタンクリックでイベントを発生させているので、私の質問はそのイベントを実装する方法です

Public Event ClickEvent()

Private Sub Command1_Click()
    RaiseEvent ClickEvent
End Sub

Answer 1

投稿されたコードが Form1 というフォームにあると仮定します。

新しいフォーム (Form2) を作成します。このコードを Form2 に追加します。

'declare an object and tell vb you want to subscribe to the objects events
Private WithEvents Foo As Form1

Private Sub Form_Load()
    'initialise the object
    Set Foo = New Form1
    'show the Form1 object which has the button on so we have something to click
    Foo.Show
End Sub

'when the button is clicked this event is raised
Private Sub Foo_ClickEvent()
    MsgBox "Click Event"
End Sub