SftDirectory 3.5 - ActiveX File/Folder Control

FullTreeView Sample (VB.NET)

This sample illustrates implementing a multi-column, multi-selection treeview control with drag & drop, context menus, renaming files/folders, reordering columns.

The source code is located at C:\Program Files (x86)\Softelvdm\SftDirectory 3.5\Samples\Visual Studio - VB.NET\FullTreeView\Form1.vb or C:\Program Files\Softelvdm\SftDirectory 3.5\Samples\Visual Studio - VB.NET\FullTreeView\Form1.vb (on 32-bit Windows versions).

Private Sub AxSftDirectory1_SelectionFinal(ByVal sender As Object, ByVal e As System.EventArgs) Handles AxSftDirectory1.SelectionFinal
    If Not AxSftDirectory1.CurrentFolder Is Nothing Then
        AxSftDirectory1.CurrentFolder.GetImage()
        LabelInfoTip.Text = AxSftDirectory1.CurrentFolder.InfoTip
    Else
        PictureBox1.Image = Nothing
        LabelInfoTip.Text = ""
    End If
End Sub

Private Sub AxSftDirectory1_FolderImageReady(ByVal sender As Object, ByVal e As AxSftDirectoryLib30._ISftDirectoryEvents_FolderImageReadyEvent) Handles AxSftDirectory1.FolderImageReady
    PictureBox1.Image = OLECvt.ToImage(e.picture)
End Sub

Private Sub CloseButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CloseButton.Click
    Application.Exit()
End Sub