Visual Basic

Private Sub DataGrid1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles DataGrid1.DragDrop
Dim lbl As String = DirectCast(e.Data.GetData(GetType(String)), String)
Dim Index As Integer

TextBox1.Text = lbl
DataGrid1.BorderStyle = BorderStyle.Fixed3D

Dim pt As Point = DataGrid1.PointToClient(New Point(e.X, e.Y))
Dim hti As DataGrid.HitTestInfo = DataGrid1.HitTest(pt.X, pt.Y)

hitRow = hti.Row
hitCol = hti.Column
If hti.Type = DataGrid.HitTestType.Cell Then
DataGrid1(hti.Row, hti.Column) = lbl
End If

Label6.Text = hitRow
Label7.Text = hitCol
Label9.Text = Me.DataGrid1(hti.Row, 8).ToString()
End Sub

Phantom715 wrote:

DirectCast(e.Data.GetData(GetType(String)), String)

Phantom715 wrote:

DataGrid1(hti.Row, hti.Column) = lbl

Luc Pattyn [Forum Guidelines] [My Articles]

---

Fixturized forever.

---

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)