Drag And Drop File into PowerBuilder Application

Dragging and dropping files into Application

Drag Drop Files In PowerBuilder

Drag And Drop Files

Declare External Functions:

Subroutine DragAcceptFiles(Long hWnd, Boolean fAccept) Library "shell32.dll"

subroutine DragFinish(long hDrop) library "shell32.dll"

Function ULong DragQueryFileW(Long hDrop, ULong iFile, Ref String szFileName, ULong cch) Library "shell32.dll" Alias For "DragQueryFileW"

Function ULong DragQueryFileA(Long hDrop, ULong iFile, Ref String szFileName, ULong cch) Library "shell32.dll" Alias For "DragQueryFileA"

Enable Drag Accept Files (event open or constructor)

1 2	// Enable Drag Accept Files DragAcceptFiles(Handle(lb_files), True)

Disable Drag Accept Files (event close or destructor):

1 2	// Disable Drag Accept Files DragAcceptFiles(Handle(lb_files), False)

Add custom event pbm_dropfiles

Constant ULong FILECOUNT = 4294967295

ULong lul_index, lul_chars, lul_idx, lul_max

String ls_FileName

ULong lul_size = 1023 //260

lul_max = DragQueryFileW(Handle, FILECOUNT, ls_FileName, lul_size)

For lul_idx = 1 To lul_max

lul_index = lul_idx - 1

ls_FileName = Space(lul_size)

lul_chars = DragQueryFileW(Handle, lul_index, ls_FileName, lul_size)

lb_files.AddItem(ls_FileName)

DragFinish(Handle)

Find Projects On Github click here

Good Luck!

PowerBuilder Tips & Tricks

March 16, 2021

Was this article helpful?