tagCANDY CGI VBƒŒƒXƒLƒ…[(‰Ô‚¿‚á‚ñ) ‚Ì Visual Basic 2010 —p ŒfŽ¦”Â(VB.NET ŒfŽ¦”Â)
VBƒŒƒXƒLƒ…[(‰Ô‚¿‚á‚ñ) ‚Ì Visual Basic 2010 —p ŒfŽ¦”Â(VB.NET ŒfŽ¦”Â)
[ƒcƒŠ[•\Ž¦‚Ö]@ [ƒ[ƒhŒŸõ]@ [Home]

ƒ^ƒ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
(ˆÈ‰º‚ÍÈ—ª)

- ŠÖ˜Aˆê——ƒcƒŠ[ i ‚ðƒNƒŠƒbƒN‚·‚é‚ƃcƒŠ[‘S‘Ì‚ðˆêŠ‡•\Ž¦‚µ‚Ü‚·j

ŒÃ‚¢ƒXƒŒƒbƒh‚ɃŒƒX‚͂‚¯‚ç‚ê‚Ü‚¹‚ñB