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

[BB]

The question was "*Why is the TextArea.Drop event not fired*".**


On 12/10/23 1:33 pm, vuott--- via User wrote:
> 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 ]----
>
>
>
> ----[ http://gambaswiki.org/wiki/doc/netiquette ]----
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.gambas-basic.org/pipermail/user/attachments/20231012/0a53416d/attachment-0001.htm>