B4J Code Snippet Drag and drop file into a B4XFloatTextField

Depends on DragAndDrop2: https://www.b4x.com/android/forum/threads/jdraganddrop2-drag-and-drop.76168/#content

'globals

Private txtFile As B4XFloatTextField
Private DragAndDrop1 As DragAndDrop
Private AllowedExtensions As List = Array(".csv", ".xlsx", ".xls")

'after the layout is loaded
DragAndDrop1.Initialize(Me)
DragAndDrop1.MakeDragTarget(txtFile.mBase, "DropTarget")
txtFile.HintText = "Drop file (allowed extensions: csv, xlsx, xls)"
txtFile.Update

Sub DropTarget_DragEntered(e As DragEvent)
    Log("DragEntered")
    Dim clr As Int
    If IsValidDropEvent(e) Then
        clr = xui.Color_Green
    Else
        clr = xui.Color_Red
    End If
    txtFile.TextField.SetColorAndBorder(xui.Color_White, 4dip, clr, 0)
End Sub

Sub DropTarget_DragExited(e As DragEvent)
    txtFile.TextField.SetColorAndBorder(xui.Color_White, 1dip, xui.Color_LightGray, 2dip)
End Sub

Sub DropTarget_DragOver(e As DragEvent)
    If IsValidDropEvent(e) Then e.AcceptTransferModes(TransferMode.COPY)
End Sub

Sub IsValidDropEvent(e As DragEvent) As Boolean
    If e.GetDragboard.HasFiles Then
        Dim files As List = e.GetDragboard.GetFiles
        Try
            If files.Size = 1 And File.Exists(files.get(0), "") Then
                Dim filename As String = files.Get(0)
                For Each ext In AllowedExtensions 'comment if not relevant
                    If filename.ToLowerCase.EndsWith(ext) Then Return True
                Next
            End If
        Catch
            Log(LastException)
        End Try
    End If
    Return False
End Sub

Sub DropTarget_DragDropped(e As DragEvent)
    Log("drag dropped")
    Dim filename As String = e.GetDragboard.GetFiles.Get(0)
    Try
        txtFile.Text = filename
    Catch
        Log(LastException)
    End Try
    e.SetDropCompleted(True)
End Sub

 

[Erel]

The last sub, where the action is taken were missing. Fixed.