ƒ^ƒCƒgƒ‹ F ‘½dŒp³‚ɂ‚¢‚Ä2 “Še“ú F 2007/04/11(Wed) 10:16 “ŠeŽÒ F ‚ЂłÆ
Public Class ƒ‰ƒ_[ƒgƒŒƒC Private ƒTƒCƒhޔŒúvalue As Double Private ƒNƒƒXޔŒúvalue As Double Private new’ê‹È‚° As Double Public Property ƒTƒCƒhޔŒú() As Double Get Return ƒTƒCƒhޔŒúvalue End Get Set(ByVal value As Double) ƒTƒCƒhޔŒúvalue = value End Set End Property Public Property ƒNƒƒXޔŒú() As Double Get Return ƒNƒƒXޔŒúvalue End Get Set(ByVal value As Double) ƒNƒƒXޔŒúvalue = value End Set End Property Public Property ’ê‹È‚°() As Double Get Return new’ê‹È‚° End Get Set(ByVal value As Double) new’ê‹È‚° = value End Set End Property End Class Namespace ƒ‰ƒ_[ƒgƒŒƒC Public Class ŠOˆê“x‹È‚° Inherits …•½ƒgƒŒƒC.ƒ‰ƒ_[ƒgƒŒƒC Private new‰‹È‚°x As Double Public Property ‰‹È‚°x() As Double Get Return new‰‹È‚°x End Get Set(ByVal value As Double) new‰‹È‚°x = value End Set End Property End Class End Namespace Namespace |”ƒgƒŒƒC Public Class ŠOˆê“x‹È‚° Inherits …•½ƒgƒŒƒC.|”ƒgƒŒƒC Private new‰‹È‚°x As Double Public Property ‰‹È‚°x() As Double Get Return new‰‹È‚°x End Get Set(ByVal value As Double) new‰‹È‚°x = value End Set End Property End Class End Namespace Namespace ƒ‰ƒ_[ƒgƒŒƒC Namespace ŠOˆê“x‹È‚° Public Class ƒXƒgƒŒ[ƒg Inherits ’f–ÊŒ`ó.ƒ‰ƒ_[ƒgƒŒƒC.ŠOˆê“x‹È‚° Private newW As Double Public Property W() As Double Get Return newW End Get Set(ByVal value As Double) newW = value End Set End Property End Class End Namespace End Namespace (ˆÈ‰º‚ÍÈ—ª) |