イベントハンドラの定義 private function foo2(byval bar as integer) as boolean dim WithEvents obClass1 as new Class1 private sub objClassOnChange(byval system.sender As Object, byval e As system.EventArgs) Handles objClass1.Change MessageBo…

イベントのドリブン public class Class1 public event Change(byval sender As Object, byval e As EventArgs) private function foo(byval bar as integer) as boolean RiaseEvent Change(me, new EventArgs) end function end class ・EventAtgsを継承し…

イベントの定義 public class Class1 public event Change(byval sender As Object, byval e As EventArgs) end class

デフォルトプロパティ public class StringList dim ObjectList as new List(Of String) default public property Item(byval index as integer) as string get return ObjectList(index) end get set(byval value as string) ObjectList(index) = value end…

前の続きid:boukanrisha:20101227休み中にTStringListもどきのStringListクラス作っとくかな。まじめに書くと1日かかるし、自宅で開発中のあるガジェットでも必要になるからな、どうせ。