SftTabs/OCX 6.5 - Tab Control for VB6

DataObjectFiles.Count Property

Returns the number of filenames in the DataObject.Files collection (sftCFFiles format only).

Syntax

object

A DataObjectFiles object.

Total

Returns the number of file names in the Files collection of a DataObject object (sftCFFiles format only).

Comments

The Count property returns the number of filenames in the DataObject.Files collection (sftCFFiles format only).

This property can be used to iterate through all file names in the Files collection.

Example

This example uses a list box (List1) which is placed on the same form as the tab control (SftTabs1). By dragging files from Windows Explorer to the tab control, the list box is populated.

Private Sub Form_Load()
    With SftTabs1.Direct
        .OLEDropMode = OLEDropSftControlManual
        .Style = styleSftTabsModernTop
        .ClientArea = False
        .Scrolling.Style = scrollSftTabsAlwaysLeft
        .Scrolling.FullSize = True
        .MakeNaturalSize
    End With
End Sub

Private Sub SftTabs1_OLEDragDrop(Data As SftTabsLib.DataObject, TargetTab As Integer, Effect As Long, Button As Integer, Shift As Integer, x As  Single, y As Single)
    Dim v As Variant
    With SftTabs1.Direct
        If Data.GetFormat(sftCFFiles) Then
            ' File names - add them to a list box (the list box is on the
            ' same form as the tab control (not inside tab control)
            List1.Clear
            List1.AddItem Data.Files.Count & " files"
            For Each v In Data.Files
                List1.AddItem v
            Next
        End If
    End With
End Sub

See Also DataObjectFiles Object | Object Hierarchy