P
psuedonym
Can someone please explain to me how the complier can manage to make sense
out of the following bit of nonsense ;-)
My Solution Name: Dim.sln
My Project Name: Dim.vbproj (Standard Console Application)
My File Name: Dim.vb (Standard class module)
Namespace [Dim]
' Class to manipulate brightness in VB
Class [Dim]
' Data member to keep brightness
Dim bDim As Boolean
' Entry Point to launch application
Shared Sub Main()
Dim [Dim] As New [Dim](Nothing)
If Not [Dim].Dim Then
Console.WriteLine("Bright")
Else
Console.WriteLine("Dim")
End If
End Sub
' Object Constructor
Sub New(ByVal [Dim] As [Dim])
If Not [Dim] Is Nothing Then
Me.Dim = [Dim].Dim
Else
Me.Dim = False
End If
End Sub
' Property to modify brightness
Property [Dim]() As Boolean
Get
Return bDim
End Get
Set(ByVal Value As Boolean)
bDim = Value
End Set
End Property
End Class
End Namespace
out of the following bit of nonsense ;-)
My Solution Name: Dim.sln
My Project Name: Dim.vbproj (Standard Console Application)
My File Name: Dim.vb (Standard class module)
Namespace [Dim]
' Class to manipulate brightness in VB
Class [Dim]
' Data member to keep brightness
Dim bDim As Boolean
' Entry Point to launch application
Shared Sub Main()
Dim [Dim] As New [Dim](Nothing)
If Not [Dim].Dim Then
Console.WriteLine("Bright")
Else
Console.WriteLine("Dim")
End If
End Sub
' Object Constructor
Sub New(ByVal [Dim] As [Dim])
If Not [Dim] Is Nothing Then
Me.Dim = [Dim].Dim
Else
Me.Dim = False
End If
End Sub
' Property to modify brightness
Property [Dim]() As Boolean
Get
Return bDim
End Get
Set(ByVal Value As Boolean)
bDim = Value
End Set
End Property
End Class
End Namespace