.NET (Core and Framework)

Public Class Class1

    Private _param As Double

    Public Sub New(ByVal amount As Double)
        Me._param = amount
    End Sub

    Public Property Param() As Double
        Get
            Return Me._param
        End Get
        Set(value As Double)
            If Not value = Me._param Then
                Me._param = value
            End If
        End Set
    End Property

    Public Function ToGrey() As ToGreyMethods
        Return New ToGreyMethods(Me)
    End Function

    Public Class ToGreyMethods

        Private _outer As Class1

        Public Sub New(ByRef outer As Class1)
            Me._outer = outer
        End Sub

        Public Sub Increase(ByVal amount As Double)
            Me._outer.Param += amount
        End Sub

        Public Sub Decrease(ByVal amount As Double)
            Me._outer.Param -= amount
        End Sub
    End Class

End Class

Module Module1

    Sub Main()
        Dim thing As Class1 = New Class1(10)
        thing.ToGrey.Increase(5)
        Console.WriteLine(thing.Param.ToString())
        thing.ToGrey.Decrease(10)
        Console.WriteLine(thing.Param.ToString())
        Console.ReadKey()
    End Sub

End Module

'Output is:
'15
'5

Public Sub Example()
    Dim thing as Class1 = New Class1(10)
    Dim whoops as ToGreyMethods = thing.ToGrey()
    'I now have an instance of an object that I can start using to change the thing object without directly referring to thing, feels like a recipe for confusion...
End Sub

Mike-MadBadger wrote:

I now have an instance of an object that I can start using to change the thing object without directly referring to thing, feels like a recipe for confusion...

Public Class Class1

    Private _param As Double
    Private _methods As ToGreyMethods

    Public Sub New(ByVal amount As Double)
        Me._param = amount
        Me._methods = New ToGreyMethods(Me)
    End Sub

    Public Property Param() As Double
        Get
            Return Me._param
        End Get
        Set(ByVal value As Double)
            If Not value = Me._param Then
                Me._param = value
            End If
        End Set
    End Property

    Public ReadOnly Property ToGrey() As ToGreyMethods
        Get
            Return _methods
        End Get
    End Property

    Public Class ToGreyMethods

        Private _outer As Class1

        Public Sub New(ByRef outer As Class1)
            Me._outer = outer
        End Sub

        Public Sub Increase(ByVal amount As Double)
            Me._outer.Param += amount
        End Sub

        Public Sub Decrease(ByVal amount As Double)
            Me._outer.Param -= amount
        End Sub
    End Class

End Class

Module Module1

    Sub Main()
        Dim thing As Class1 = New Class1(10)
        thing.ToGrey.Increase(5)
        Console.WriteLine(thing.Param.ToString())
        thing.ToGrey.Decrease(10)
        Console.WriteLine(thing.Param.ToString())

        ' Dim whoops2 As Font = Form1.Font <- now you got the same thing :)
        Dim whoops As Class1.ToGreyMethods = thing.ToGrey()

        Console.ReadKey()
    End Sub

End Module

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]

Module GreyScaleExtentions
   Public Enum RBGMethods
       Average
       BlueChannel
       Decompose
       Desaturate
       Lightness
       RedChannel
       GreenChannel
   End Enum

   Public Enum LumaEnum
       BT709
       BT601
       GIMP
   End Enum

   ''' <summary>
   ''' Converts Color to greyscale equivalent using RGBGreyScaleMethod
   ''' </summary>
   ''' <param name="c"></param>
   ''' <param name="RGBMethod"></param>
   ''' <returns></returns>
   ''' <remarks></remarks>
   <Runtime.CompilerServices.Extension()> _
   Public Function ToGreyScale(ByVal c As Color, ByVal RGBMethod As RBGMethods) As Color

   End Function

   ''' <summary>
   ''' Converts Color to greyscale equivalent using luminosity method
   ''' </summary>
   ''' <param name="c"></param>
   ''' <param name="factors"></param>
   ''' <returns></returns>
   ''' <remarks></remarks>
   <Runtime.CompilerServices.Extension()> _
   Public Function ToGreyScale(ByVal c As Color, ByVal factors As LumaEnum) As Color

   End Function
End Module

Sub test()
   Dim c As Color = Color.FromArgb(230, 134, 231, 10)
   Dim gs As Color
   gs = c.ToGreyScale(LumaEnum.BT601)
   gs = c.ToGreyScale(RBGMethods.Average)
End Sub

Quote:

That one had occured but it meant that a user of the class would need to know that the overload without a method would give ByLuminosity, which was the bit that felt unintuitive.

Quote:

BTW, thanks for the piece, I assume that's how extension methods work?

Assembly assembly = Assembly.LoadFrom("MyLibrary.dll");

Type type = assembly.GetType("MyType");

object instanceOfMyType = Activator.CreateInstance(type);

John Simmons / outlaw programmer wrote:

...by many other apps.

John Simmons / outlaw programmer wrote:

What I'm seeing is that the new app uses the version of the assembly that's
already in memory. Is that an accurate statement?

Jasmine2501 wrote:

and it appeared that IIS was loading one copy of the DLL for everybody, and it
refused to let go of that even when the underlying file was DELETED