CreateInstance Method Parameter Question on ActivationAttributes

Check this.

http://sastools.com/b2/post/79394179

Thanks, I tried using NULL but never dawned on me to try Nothing, dah..  It is happy with the argument except for the Args now - where I have oObject below: (see below code for more explanation)

    Private Sub mnuVortexModule(ByVal sGUID As String)
        Dim ofrmCustom As Object
        Dim myDLL As [Assembly]
        Dim oModules As New vtxObject.Modules(oSettings)
        Dim oObject As Object = oSettings

        If oModules.Load(sGUID) Then
            Try
                'Dim sDLLName As String = "vtxEDCFSC.dll"
                myDLL = [Assembly].LoadFrom(Application.StartupPath & oModules.DLLPath & oModules.DLLName)
                Debug.WriteLine("Object loaded...")
                'Dim sFeature As String = "vtxEDCFSC.Form1"
                ofrmCustom = myDLL.CreateInstance(oModules.ClassName, True, BindingFlags.CreateInstance, Nothing, oObject, Nothing, Nothing)
                Debug.WriteLine("Instance created...")
                ofrmCustom.MdiParent = Me
                ofrmCustom.Show()
                ofrmCustom.BringToFront()
                'Debug.WriteLine(ofrmCustom.HW)
            Catch ex As Exception
                Debug.WriteLine("Threw Error: " & ex.Message)
            End Try
        End If
    End Sub

What I want to send to the class constructor is another instance of a different class that has all my application settings defined.  Typically I do something like the following:

Dim oSettings as new vtxObject.Settings
oSettings.Load
'Now I have Settings, open another form (class)
Dim oForm as new Form1(oSettings)
oForm.Show

The Form1 (or any class) Constructor looks like this in my app:
==================================================
    Private oSettings As Settings
    Private sConnectionString As String
    Private iCommandTimeout As Integer

    Public Sub New()
        MyBase.New()
    End Sub

    Public Sub New(ByRef AppSettings As Settings)
        Me.New()
        oSettings = AppSettings
        sConnectionString = oSettings.ConnectionString
        iCommandTimeout = oSettings.CommandTimeout
    End Sub

    Public Property ConnectionString() As String
        Get
            Return sConnectionString
        End Get
        Set(ByVal Value As String)
            sConnectionString = Value
        End Set
    End Property

    Public Property CommandTimeout() As Integer
        Get
            Return iCommandTimeout
        End Get
        Set(ByVal Value As Integer)
            iCommandTimeout = Value
        End Set
    End Property
================================================

I need to send all these settings in my oSettings class instance to the new class I am trying to creat an instance of above - its just that the DLL is an optional module so its being loaded if available at runtime and I'm not sure how to allow it to access all the information available publically in the main app that opened it.  There may even be a totally different way thats easier??

Any ideas?  I need a solution asap.  Increasing points to 500.  Thanks.

ofrmCustom = myDLL.CreateInstance(oModules.ClassName, True, BindingFlags.CreateInstance, Nothing, oObject, Nothing, Nothing)

What I understood is u r passing your settings as oObject as a constructor arg..right?

this should work, if yr constructor of omodule.classname is accepting that param....
is it so?

as an alternative, u can create a method Init or something in your class which accepts this osettings object and do your work..and clients has to call this method at first...just an idea..

by the way what is the error u r getting?

Regards,
NetPointer

The error I am receiving is:

Specified cast is not valid.

I'm wondering if the Args have to be specifically an array or any object.  I was just sending an instance of a class saved to an object var like:

Dim oSettings as New vtxObject.Settings
oSettings.Load   'this populates the properties from db
Dim oObject as Object = oSettings

then:
ofrmCustom = myDLL.CreateInstance(oModules.ClassName, True, BindingFlags.CreateInstance, Nothing, oObject, Nothing, Nothing)

I presume the cast problem is with the object and the way I was trying to send it.  Anyone know how to pass my oSettings instance, and can I pass it by reference to a class from an external dll like this or does it have to be by value?  

Thanks -Scott Carullo

what is the signature of constructor???

check that it is like this.

Public sub new (osetting as Object)

and not your class name...

Looks like this:

Public Class Form1
    Inherits System.Windows.Forms.Form

    Private oSettings As vtxObject.Settings

#Region " Windows Form Designer generated code "

    Public Sub New(ByVal oObject As Object)
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call
        oSettings = oObject
    End Sub

if u try the following way, it will show us that whether problem is in calling or when casting it back to osettings.

Public Sub New(ByVal oObject As Object)
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()
        msgbox("Before casting")
        'Add any initialization after the InitializeComponent() call
        oSettings = oObject
        msgbox("after casting")
    End Sub

Its kinda interesting, but while waiting on a possible solution to this problem I went on to working on the next part of my program, which sends different kinds of email (html, text, web page etc..) to different target audiences based on groups.  Anyway, I could not remember off the top of my head how to quickly add a new row to a datatable that was just filled so I went to Google, and ran across this method and used it in my program:

        If Len(txtToAddress.Text.Trim) > 0 Then
            moDT.Rows.Add(New Object() {"", "", "", "", txtToName.Text.Trim, txtToAddress.Text.Trim})
        End If

That led me to thinking, hey, this create instance wants an object I'll try feeding it like this:

                ofrmCustom = myDLL.CreateInstance(oModules.ClassName, True, BindingFlags.CreateInstance, Nothing, New Object() {oSettings}, Nothing, Nothing)

It worked...  Could someone be so kind as to explain why, what the difference is etc.

To answer your question netpointer, the error was being generated on the createinstance call itself, it never did get to the constructor of the class it was creating an instance of.  I'm past it I just want to understand more about it.

Thanks -Scott

I should have asked more specifically what this is doing:

New Object() {oSettings}

or

New Object() {"", "", "", "", txtToName.Text.Trim, txtToAddress.Text.Trim}

Thanks -Scott

No comment has been added lately, so it's time to clean up this TA.
I will leave the following recommendation for this question in the Cleanup topic area:

Accept: NetPointer {http:#9697067}

Please leave any comments here within the next seven days.
PLEASE DO NOT ACCEPT THIS COMMENT AS AN ANSWER!

TheLearnedOne
EE Cleanup Volunteer