SftMask/OCX 7.0 - ActiveX Masked Edit Control

DragDrop1 Sample (VB6)

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