Bug? InputList() has bug

[Theera]

I've tested Bluetooth project.I found bug in InputList() it still used Msgbox().

 

[Sandman]

It's almost like you make it a sport to give as little information as you can. I realize there is a high language barrier for you, but surely you must understand that you have provided extremely poor information?

This is something I have noticed in many of your posts. Please note that I'm not angry or irritated. Nor am I trying to put you down. I just want you to put in more effort so it's easier for the forum to actually help you.

 

[Theera]

It's almost like you make it a sport to give as little information as you can. I realize there is a high language barrier for you, but surely you must understand that you have provided extremely poor information?

This is something I have noticed in many of your posts. Please note that I'm not angry or irritated. Nor am I trying to put you down. I just want you to put in more effort so it's easier for the forum to actually help you.

I'm Ok. I found my solve the problem. the straegy like this

'Example from the Aeric's

'Changing InputListTobeInputListAsync
'The old code
'    Dim Res As Int
'    Res = InputList(l, "Choose a printer", -1) 'show list with paired devices
'    If Res <> DialogResponse.CANCEL Then
'        Serial1.Connect(PairedDevices.Get(l.Get(Res))) 'convert the name to mac address
'        Return True
'    End If
'-----------------------------------------------------------------------------
'The new code
    InputListAsync(l, "Choose a printer", 0, False)
    Wait For InputList_Result (Res As Int)
    If Res <> DialogResponse.CANCEL Then
        Serial1.Connect(PairedDevices.Get(l.Get(Res))) 'convert the name to mac address
        Return True
    End If

 

[aeric]

It's not a bug. It's the example code not up to date (deprecated) to use the async function.