Dynamic Libraries (Windows)

[Petr]

@Mad Axeman, I didn't forget. Here's a version of ListMenu for Windows without the top search bar. This time it's in the form of a .h file. This eliminates the need to create 32-bit and 64-bit DLLs. 

Code: (Select All)

Declare CustomType Library "listpickB"

    Function PickFromListACP& (title As String, prompt As String, items As String, ByVal startIndex As Long)

End Declare



Dim outt As String * 1024 ' buffer pro nßvratovř text (ACP), NUL-terminated

outt = String$(Len(outt), Chr$(0))





text:

Data "One","Two","Three","Four","Five","Six","Seven","Eight","Nine","Ten","Cočka","Zelí","Pekč","Uzenáč","Pískle","Slepýš","Pakliže","One","Two","Three","Four","Five","Six","Seven","Eight","Nine","Ten","4očka","Zelí","Pekáč","Uzenáč","Pískle","Slepýš","Pakliže"

Restore text

For fill = 1 To 34

    Read t$

    items$ = items$ + t$ + Chr$(10)

Next fill

items$ = items$ + Chr$(0)



title$ = "Select... " + Chr$(0)

prompt$ = "Arrows / click, Enter select, Esc abort" + Chr$(0)

' Polozky oddelene LF. Na konci NUL.





idx& = PickFromListACP&(title$, prompt$, items$, 0)



Print "Selected index (0-based):"; idx&

If idx& >= 0 Then Print "1-based:"; idx& + 1

Sleep

H file is needed.