langs a-z

Task/Classes/Visual-Basic-.NET/classes-1.visual

@@ -0,0 +1,29 @@
+Class Foo
+   Private m_Bar As Integer
+
+   Public Sub New()
+
+   End Sub
+
+   Public Sub New(ByVal bar As Integer)
+       m_Bar = bar
+   End Sub
+
+   Public Property Bar() As Integer
+       Get
+           Return m_Bar
+       End Get
+       Set(ByVal value As Integer)
+           m_Bar = value
+       End Set
+   End Property
+
+   Public Sub DoubleBar()
+       m_Bar *= 2
+   End Sub
+
+   Public Function MultiplyBar(ByVal x As Integer) As Integer
+       Return x * Bar
+   End Function
+
+End Class