SftTabs/OCX 6.5 - Tab Control for VB6

DataObjectFiles.Remove Method

Removes a filename from the DataObject.Files collection (sftCFFiles format only).

Syntax

object

A DataObjectFiles object.

ItemIndex

The one-based position of the file name to be removed as an Integer or the filename to be removed as a String.

Comments

The Remove method removes a filename from the DataObject.Files collection (sftCFFiles format only).

To remove all the file names from the Files collection, use the Clear method.

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 Total As Integer, i As Integer
    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
            Total = Data.Files.Count
            For i = 1 To Total
                List1.AddItem Data.Files.Item(1)
                Data.Files.Remove 1
            Next
        End If
    End With
End Sub

See Also DataObjectFiles Object | Object Hierarchy