[Gambas-user] Filling a text area with a Text file using drag and drop...

[vuott at tutanota.com]

Maybe...

...by using "TextArea" and "FileChooser":

Public Sub Form_Open()

  With TextArea1
    .Drop = True
    .Wrap = True
  End With
 
End

Public Sub TextArea1_Drop()

  TextArea1.Text = File.Load(FileChooser1.SelectedPath)

End

==========================

...now draging from an Folder:

Public Sub Form_Open()

  With TextArea1
    .Drop = True
    .Wrap = True
  End With

End

Public Sub TextArea1_Drop()
 
  Dim filepath As String
 
  filepath = Drag.Paste("text/uri-list")[0]

  TextArea1.Text = File.Load(Trim(filepath))

End

======================





12 ott 2023, 01:19 da sbungay at smartsonsite.com:

> If a text file is dragged from a file manager to a text area, the drop event of the text area is not raised. Why is that and can it be changed?
> -- 
> Stephen A. Bungay
>
> ----[ http://gambaswiki.org/wiki/doc/netiquette ]----
>

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.gambas-basic.org/pipermail/user/attachments/20231012/fe23a646/attachment.htm>