VisualBasic.NET

デリゲート

同じ引数を持つイベントを複数作成するときに便利。

Public Delegate Sub MyDelegate(ByVal sender As Object, ByVal e As EventArgs)

Public Event MyEvent1 As MyDelegate
Public Event MyEvent2 As MyDelegate

オリジナルのEventArgsを作るときはNewを活用

Public Class MyEventArgs
  Inherits EventArgs

  Private strMyProperty As String

  Public Readonly Property MyProperty As String
    Get
      Return strMyProperty
    End Get
  End Property

  Private Sub New(ByVal MyProperty As String)
    strMyProperty = MyProperty
  End Sub
End Class

イベントを呼び出すときは以下のように記述する。

RaiseEvent(Sender, New MyEventArgs(”123”))

トップ   編集 凍結解除 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2007-05-22 (火) 20:42:38 (4528d)