DragDrop Sample (VB.NET)
This sample illustrates drag & drop.
The source code is located at C:\Program Files (x86)\Softelvdm\SftTree OCX 7.5\Samples\Visual Studio - VB.NET\DragDrop\Form1.vb or C:\Program Files\Softelvdm\SftTree OCX 7.5\Samples\Visual Studio - VB.NET\DragDrop\Form1.vb (on 32-bit Windows versions).
Private Sub Command1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Command1.Click
Application.Exit()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
DropTargetPic.AllowDrop = True
Dim i As Integer
AxSftTree1.Items.Add("Item 0")
i = AxSftTree1.Items.Add("Item 1")
AxSftTree1.get_Item(i).Level = 1
i = AxSftTree1.Items.Add("Item 2")
AxSftTree1.get_Item(i).Level = 2
i = AxSftTree1.Items.Add("Item 3")
AxSftTree1.get_Item(i).Level = 1
End Sub
Private Sub AxSftTree1_DragStarting(ByVal sender As Object, ByVal e As AxSftTreeLib75._DSftTreeEvents_DragStartingEvent) Handles AxSftTree1.DragStarting
AxSftTree1.CancelMode() ' .NET controls drag&drop, so tree control needs to cancel
' This section demonstrates drag (&drop) using the .NET DoDragDrop method
' THIS CODE IS ONLY USED IF DRAGMETHOD IS SET TO ( 1 - Manual ) or SftTreeDragMethodConstants.dragSftTreeManual
Dim curr As Integer
curr = AxSftTree1.Items.Current
'
Dim Data As System.Windows.Forms.DataObject
Data = New System.Windows.Forms.DataObject()
Data.SetData(DataFormats.Text, AxSftTree1.get_Cell(curr, 0).Text)
' item picture
Dim img As SftPictureObject
If AxSftTree1.get_Item(curr).Image.Type = SftPictureTypeConstants.sftTypeIDispatch Then
img = AxSftTree1.get_Item(curr).Image
Else
If AxSftTree1.get_Item(curr).Expanded Then
img = AxSftTree1.Items.ItemImageExpanded
ElseIf AxSftTree1.get_Item(curr).DependentAllCount > 0 Then
img = AxSftTree1.Items.ItemImageExpandable
Else
img = AxSftTree1.Items.ItemImageLeaf
End If
End If
Dim sendingImage As Image = OLECvt.ToImage(img.Picture)
Data.SetData(DataFormats.Bitmap, True, sendingImage)
DoDragDrop(Data, DragDropEffects.Copy)
End Sub
Private Sub AxSftTree1_OLEStartDrag(ByVal sender As Object, ByVal e As AxSftTreeLib75._DSftTreeEvents_OLEStartDragEvent) Handles AxSftTree1.OLEStartDrag
' This section demonstrates drag&drop) using OLE mechanisms built into this control
' THIS CODE IS ONLY USED IF DRAGMETHOD IS SET TO ( 3 - OLEDrag ) or SftTreeDragMethodConstants.dragSftTreeOLE
Dim curr As Integer
curr = AxSftTree1.Items.Current
'
e.data.SetData(AxSftTree1.get_Cell(curr, 0).Text, SftOLEClipboardConstants.sftCFText)
' item picture
Dim img As SftPictureObject
If AxSftTree1.get_Item(curr).Image.Type = SftPictureTypeConstants.sftTypeIDispatch Then
img = AxSftTree1.get_Item(curr).Image
Else
If AxSftTree1.get_Item(curr).Expanded Then
img = AxSftTree1.Items.ItemImageExpanded
ElseIf AxSftTree1.get_Item(curr).DependentAllCount > 0 Then
img = AxSftTree1.Items.ItemImageExpandable
Else
img = AxSftTree1.Items.ItemImageLeaf
End If
End If
e.data.SetData(img.Picture, SftOLEClipboardConstants.sftCFDIB)
e.data.SetData(img.Picture, SftOLEClipboardConstants.sftCFBitmap)
e.allowedEffects = 3
End Sub
Private Sub DropTarget_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles DropTarget.DragEnter
If e.Data.GetDataPresent(DataFormats.Text, True) Or e.Data.GetDataPresent(DataFormats.Bitmap, True) Then
e.Effect = DragDropEffects.Copy
Else
e.Effect = DragDropEffects.None
End If
End Sub
Private Sub DropTarget_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles DropTarget.DragDrop
Dim arrayOfFormats As [String]() = e.Data.GetFormats(True) ' informational
If e.Data.GetDataPresent(DataFormats.Text, True) Then
DropTarget.Text = e.Data.GetData(DataFormats.Text, True)
End If
If e.Data.GetDataPresent(DataFormats.Bitmap, True) Then
DropTargetPic.Image = e.Data.GetData(DataFormats.Bitmap, True)
End If
End Sub
Private Sub DropTargetPic_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles DropTargetPic.DragEnter
If e.Data.GetDataPresent(DataFormats.Bitmap, True) Then
e.Effect = DragDropEffects.Copy
Else
e.Effect = DragDropEffects.None
End If
End Sub
Private Sub DropTargetPic_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles DropTargetPic.DragDrop
Dim arrayOfFormats As [String]() = e.Data.GetFormats(True) ' informational
If e.Data.GetDataPresent(DataFormats.Bitmap, True) Then
Dim O As Object = e.Data.GetData(DataFormats.Bitmap, True)
DropTargetPic.Image = O
End If
End Sub
Private Sub AxSftTree1_OLEDragDrop(ByVal sender As Object, ByVal e As AxSftTreeLib75._DSftTreeEvents_OLEDragDropEvent) Handles AxSftTree1.OLEDragDrop
' get horizontal extent and width of column 0
Dim horzExtent As Integer
horzExtent = AxSftTree1.Items.HorizontalExtentPix
Dim firstColumnWidth As Integer
firstColumnWidth = AxSftTree1.get_Column(0).WidthPix
Dim insertAt As Integer
insertAt = AxSftTree1.Items.DropHighlight
If insertAt < 0 Then Exit Sub
If e.data.GetFormat(SftOLEClipboardConstants.sftCFText) Then
Dim lvl As Integer
lvl = AxSftTree1.get_Item(insertAt).Level
Dim str As String
str = e.data.GetData(SftOLEClipboardConstants.sftCFText)
Dim newItem As Integer
newItem = AxSftTree1.Items.Insert(insertAt + 1, str)
AxSftTree1.get_Item(newItem).Level = lvl + 1
End If
If e.data.GetFormat(SftOLEClipboardConstants.sftCFDIB) Then
AxSftTree1.get_Cell(insertAt, 0).Image.Picture = e.data.GetData(SftOLEClipboardConstants.sftCFDIB)
AxSftTree1.get_Cell(insertAt, 0).ImageHAlign = SftTreeHAlignConstants.halignSftTreeRight
End If
If e.data.GetFormat(SftOLEClipboardConstants.sftCFBitmap) Then
AxSftTree1.get_Cell(insertAt, 0).Image.Picture = e.data.GetData(SftOLEClipboardConstants.sftCFBitmap)
AxSftTree1.get_Cell(insertAt, 0).ImageHAlign = SftTreeHAlignConstants.halignSftTreeRight
End If
If e.data.GetFormat(SftOLEClipboardConstants.sftCFFiles) Then
AxSftTree1.BulkUpdate = True
Dim lvl As Integer
lvl = AxSftTree1.get_Item(insertAt).Level
Dim newItem As Integer
newItem = insertAt + 1
Dim i As Integer
For i = e.data.Files.Count To 1 Step -1
newItem = AxSftTree1.Items.Insert(newItem, e.data.Files(i))
AxSftTree1.get_Item(newItem).Level = lvl + 1
Next
AxSftTree1.BulkUpdate = False
End If
' make horizontal extent and width of column 0 wider than previous
' setting, but never smaller
AxSftTree1.ColumnsObj.MakeOptimal()
AxSftTree1.Items.RecalcHorizontalExtent()
If horzExtent > AxSftTree1.Items.HorizontalExtent Then
AxSftTree1.Items.HorizontalExtent = horzExtent
End If
If firstColumnWidth > AxSftTree1.get_Column(0).WidthPix Then
AxSftTree1.get_Column(0).WidthPix = firstColumnWidth
End If
End Sub
Private Sub Picture1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Picture1.MouseDown
Dim Data As System.Windows.Forms.DataObject
Data = New System.Windows.Forms.DataObject()
Data.SetData(DataFormats.Bitmap, True, Picture1.Image)
DoDragDrop(Data, DragDropEffects.Copy)
End Sub
Private Sub Picture2_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Picture2.MouseDown
Dim Data As System.Windows.Forms.DataObject
Data = New System.Windows.Forms.DataObject()
Data.SetData(DataFormats.Dib, True, Picture2.Image)
DoDragDrop(Data, DragDropEffects.Copy)
End Sub
Private Sub Text1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Text1.MouseDown
Dim Data As System.Windows.Forms.DataObject
Data = New System.Windows.Forms.DataObject()
Data.SetData(DataFormats.Text, Text1.Text)
DoDragDrop(Data, DragDropEffects.Copy)
End Sub
End Class
On
Off