SftDirectory 3.5 - ActiveX File/Folder Control

UserContents Sample (VB6)

This sample illustrates adding user-defined columns.

This is not an executable sample, so a complete project is not provided. These statements are intended to show the syntax used.

Private Sub Form_Load()
    SftDirectory1.ColumnCount = 2
    SftDirectory1.ShowFiles = False
    SftDirectory1.GridStyle = gridSftDirectoryBoth
    SftDirectory1.Headers.Style = headersSftDirectoryButton
    SftDirectory1.ColumnEntry(0).HeaderText = "Folder"
    SftDirectory1.ColumnEntry(1).HeaderText = "Full Path"
    SftDirectory1.ColumnEntry(1).Contents = contentsSftDirectoryUser1
    SftDirectory1.Reload False, False
End Sub

Private Sub SftDirectory1_UserContents(ByVal Folder As SftDirectoryLib30.ISftDirectoryFolder, ByVal Contents As SftDirectoryLib30.SftDirectoryContentsConstants, UserString As String)
    If Contents = contentsSftDirectoryUser1 Then
        UserString = Folder.Path
    End If
End Sub