• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 498
  • Last Modified:

vb.net how to instantiate a class based on a variable name at runtime

I'm sure this is easy, but my search is coming up short.   I want to be able to instantiate an object (in this case a Prompt Screen), but the Class name is variable based on what the user is doing.  

This is the statement:
    myPromptScreen = New [VariableClassName]

Thanks in advance.
0
jackiemeck
Asked:
jackiemeck
1 Solution
 
Mike TomlinsonMiddle School Assistant TeacherCommented:
0
 
rawinnlnx9Commented:
Look at the 5th option down. Regardless though one of these will work for you. It's the right way:

http://msdn.microsoft.com/en-us/library/system.activator.createinstance.aspx
0
 
grayeCommented:
Here is a small chunk of code that I've used to allow a program to dynamically load a "plug-in" at run time.  It uses the techniques as described above

Imports System.IO
Imports System.Reflection

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim DLL_File As String

        ' fill the combobox with the list of available plug-in DLLs
        For Each DLL_File In Directory.GetFiles(Application.StartupPath & "\" & My.Settings.PluginDirectory, "Plug*.dll")
            ComboBox1.Items.Add(DLL_File)
        Next

        ' make a default item
        If ComboBox1.Items.Count > 0 Then
            ComboBox1.Text = ComboBox1.Items(0).ToString
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Assmbly As Reflection.Assembly
        Dim PlugInType As Type
        Dim pi As PluginBase

        ' load the DLL file using the "signature" of the base class
        Assmbly = Reflection.Assembly.LoadFrom(ComboBox1.Text)

        PlugInType = Assmbly.GetType(Assmbly.GetName.Name & "." & Assmbly.GetName.Name, True, True)
        pi = CType(Activator.CreateInstance(PlugInType), PluginBase)

        ' execute a method on the plug in
        pi.DoSomething()
    End Sub
End Class

Open in new window

0
VIDEO: THE CONCERTO CLOUD FOR HEALTHCARE

Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.

 
jackiemeckAuthor Commented:
I have searched numerous resources and have found a lack of detailed examples along the lines of what I'm trying to do.  I know I need "CreateInstance", but I don't know how to format it.  I'll restate by issue with hopefully a little better detail:

I have 15 Forms that each include the same methods.  I don't know which of the Forms the user will decide to activate until runtime.  Basically, there is a loop of 1 through 15, and if the Form is selected, we need to run the identical method inside it.

' The assembly is called "MyProgram", but I'm not sure where that goes.

FormName(1)   = "FormForReportA"
FormName(2)   = "FormForReportB"
FormName(...)   = (etc)
FormName(15)   = "FormForReportZ"

for x = 1 to 15
    myPromptScreen(x) = CreateInstance("NotSureWhatGoesHere", FormName(x))
next x

For x = 1 to 15
    if UserSelected(x) = true then
        myPromptScreen(x).InitializeData()
        myPromptScreen(x).CalculateData()
    end if
next x

Thanks in advance...
0
 
Mike TomlinsonMiddle School Assistant TeacherCommented:
Try something like this:

    Dim asm As System.Reflection.Assembly = System.Reflection.Assembly.GetExecutingAssembly
    ...
    for x = 1 to 15
        myPromptScreen(x) = asm.CreateInstance(asm.GetName.Name & "." & FormName(x))
    next x
0
 
jackiemeckAuthor Commented:
That's perfect!  It's exactly what I needed.  Thanks so much.
0

Featured Post

Hire Technology Freelancers with Gigs

Work with freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely, and get projects done right.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now