Hide

SftMask/OCX 7.0 - ActiveX Masked Edit Control

Display
Print

DragDrop2 Sample (VB.NET)

This sample illustrates using an OLE drop target.

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 Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    AxSftMask1.Caption.SizePercent = 33
    AxSftMask1.Caption.Text = "&Filename:"
    AxSftMask1.Mask = ""
    AxSftMask1.MaxLength = 300
    AxSftMask1.PromptUnderline = False
    AxSftMask1.OLEDropMode = SftMaskOLEDropModeConstants.OLEDropSftMaskManual
End Sub

Private Sub AxAxSftMask1_OLEDragDrop(ByVal sender As Object, ByVal e As AxSftMaskLib70._ISftMaskEvents_OLEDragDropEvent) Handles AxSftMask1.OLEDragDrop
    If e.data.GetFormat(SftOLEClipboardConstants.sftCFFiles) Then
        If e.data.Files.Count > 1 Then
            MsgBox("Only one file at a time please.")
        Else
            AxSftMask1.Text = e.data.Files.Item(1)
        End If
    End If
End Sub

Private Sub AxAxSftMask1_OLEDragOver(ByVal sender As Object, ByVal e As AxSftMaskLib70._ISftMaskEvents_OLEDragOverEvent) Handles AxSftMask1.OLEDragOver
    If e.targetChar < 0 Then
        ' Outside edit control (on caption)
        e.effect = 0 ' vbDropEffectNone
    Else
        ' Inside edit control
        If e.data.GetFormat(SftOLEClipboardConstants.sftCFFiles) Then
            ' OK, we have a file format
        Else
            ' No file format
            e.effect = 0 ' vbDropEffectNone
        End If
    End If
End Sub

Last Updated 08/13/2020 - (email)
© 2024 Softel vdm, Inc.