Problem : inserting back but one place higher

[Stephane Fonteyne]

Hi all,

I want to try this but it's not correct from the vb60 syntax

vb60

DIM content AS STRING
DIM index    AS SINGLE

ProgList.AddItem content, index - 1

PBWin

DIM content AS STRING
DIM index    AS SINGLE
DIM hDlg     AS DWORD

LISTBOX ADD hDlg, %LST_PROG_LIST, content
LISTBOX SELECT hDlg, %LST_PROG_LIST, index - 1

But it's not the same result of the vb60 syntax, Why is that wrong here?

[Dale Yarker]

Not enough code for any result.

Failure to ... again.

Hint on one thing. What numeric type should index be?

[Michael Mattias]

Just a guess, but VB may use the Windows' standard "zero-based" index whereas DDT uses a "one-based" index to identify individual items in a list-type control. That would surely have to mess up whatever you are doing (as noted, insufficient code shown).

Also a guess: if listbox is using the sorted style, "add" may actually be doing an "insert sorted"

Also.. with the DDT, doesn't LISTBOX ADD offer the "TO ivar" option, returning the (DDT one based) index where item was actually inserted, as is available using SDK-style coding?

[StanHelton]

...

Also.. with the DDT, doesn't LISTBOX ADD offer the "TO ivar" option, returning the (DDT one based) index where item was actually inserted, as is available using SDK-style coding?

Yes.