Visual Basic

Public Shared Function CreateInstance(ByVal sFullClassName As String) As Object
     Dim ao As [Assembly], aoName As New AssemblyName
     Dim o As Object
     Try
         aoName.Name = sFullClassName.Substring(0, sFullClassName.LastIndexOf("."))
         ao = [Assembly].Load(aoName)
         o = ao.CreateInstance(sFullClassName, True)
     Catch ex As Exception
         Try
             ExceptionManager.HandleClientException("Exception creating an instance of " & sFullClassName & ".", ex)
         Catch : End Try
         Throw ex
     End Try
     ao = Nothing
     Return o
 End Function

 Public Shared Function CreateInstance(ByVal sAssembly As String, ByVal sClass As String) As Object
     Dim ao As [Assembly], aoName As New AssemblyName
     Dim o As Object
     Try
         aoName.Name = sAssembly
         ao = [Assembly].Load(aoName)
         o = ao.CreateInstance(sAssembly & "." & sClass, True)
     Catch ex As Exception
         'ExceptionManager.PublishException(ex)
         Throw ex
     End Try
     ao = Nothing
     Return o
 End Function

 Public Shared Function CreateInstance(ByVal sFullPathIncludingFileName As String, ByVal sAssembly As String, _
                                       ByVal sClass As String) As Object
     Dim ao As [Assembly], o As Object

     Try
         ao = [Assembly].LoadFrom(sFullPathIncludingFileName)
         o = ao.CreateInstance(sAssembly & "." & sClass, True)
     Catch ex As Exception
         'ExceptionManager.PublishException(ex)
         Throw ex
     End Try

     ao = Nothing
     Return o
 End Function

nlarson11 wrote:

Actually - when you do a loadassembly you don't have to use reflection any longer. It is the same as saying Dim MyObj as new Test. Once you have the object that is returned just access it's properties/fields/methods as before like it was referenced.

GriffinPeter wrote:

oh dear god... try attempting it before you ask!

string3 = string1 + string2

Puneet Bhatnagar wrote:

DesiredTask: I want to add both these strings to 0th Index of cboProject and at the same point of time hide the text followed by "," i.e hide India.

Public Class TheData
   'Public for simplicity but should be properties
   Public firstString As String
   Public secondString As Sting
   
   Public Overrides Function ToString() As String
      return firstString
   End Function
End Class

Dim d As TheData = new TheData()
d.firstString = "Puneet"
d.secondString = "India"
me.cboProject.Items.Insert(0, d)  ' or me.cboProject.Items.Add(d)

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
   Dim d As TheData = New TheData()
   Me.cboProject.BeginUpdate()
   d.firstString = "Duke"
   d.secondString = "USA"
   Me.cboProject.Items.Insert(0, d)  ' or me.cboProject.Items.Add(d)

   d = New TheData()
   d.firstString = "Alice"
   d.secondString = "England"
   Me.cboProject.Items.Insert(0, d)  ' or me.cboProject.Items.Add(d)

   d = New TheData()
   d.firstString = "Bob"
   d.secondString = "Australia"
   Me.cboProject.Items.Insert(0, d)  ' or me.cboProject.Items.Add(d)

   d = New TheData()
   d.firstString = "Duncan"
   d.secondString = "Scotland"
   Me.cboProject.Items.Insert(0, d)  ' or me.cboProject.Items.Add(d)

   d = New TheData()
   d.firstString = "Puneet"
   d.secondString = "India"
   Me.cboProject.Items.Insert(0, d)  ' or me.cboProject.Items.Add(d)

   Me.cboProject.EndUpdate()
End Sub

Private Sub CboProject_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cboProject.SelectedIndexChanged
   GetProjectID()
End Sub

Public Sub GetProjectID()
   Dim d1 As TheData = New TheData()
   d1 = CType(Me.cboProject.SelectedItem, TheData)
   RichTextBox1.Text = d1.secondString
   RichTextBox1.Text = RichTextBox1.Text & "   " & d1.firstString
End Sub