SftTree/DLL 7.5 - Tree Control
SftBox/OCX 5.0 - Combo Box Control
SftButton/OCX 3.0 - Button Control
SftMask/OCX 7.0 - Masked Edit Control
SftTabs/OCX 6.5 - Tab Control (VB6 only)
SftTree/OCX 7.5 - Tree Control
SftPrintPreview/DLL 2.0 - Print Preview Control (discontinued)
SftTree/DLL 7.5 - Tree Control
SftBox/OCX 5.0 - Combo Box Control
SftButton/OCX 3.0 - Button Control
SftDirectory 3.5 - File/Folder Control (discontinued)
SftMask/OCX 7.0 - Masked Edit Control
SftOptions 1.0 - Registry/INI Control (discontinued)
SftPrintPreview/OCX 1.0 - Print Preview Control (discontinued)
SftTabs/OCX 6.5 - Tab Control (VB6 only)
SftTree/OCX 7.5 - Tree Control
SftTabs/NET 6.0 - Tab Control (discontinued)
SftTree/NET 2.0 - Tree Control
This sample illustrates using an OLE drag source.
This is not an executable sample, so a complete project is not provided. These statements are intended to show basic concepts and the syntax used.
Private Sub Form_Load() SftMask1.Caption.SizePercent = 33 SftMask1.Caption.Text = "&Filename:" SftMask1.Mask = "" SftMask1.MaxLength = 300 SftMask1.PromptUnderline = False SftMask1.AutoComplete.Contents = contentsSftMaskFilesDirs SftMask1.AutoComplete.DefaultDirectory = "C:\" SftMask1.OLEDragMode = OLEDragSftMaskManual End Sub Private Sub SftMask1_DragStarting(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single) If SftMask1.SelLength <> 0 Then SftMask1.OLEDrag End If End Sub Private Sub SftMask1_OLEStartDrag(Data As SftMaskLib70.DataObject, AllowedEffects As Long) Data.Clear Data.Files.Add SftMask1.SelText Data.SetData , sftCFFiles AllowedEffects = vbDropEffectCopy End Sub