Listbox errors

[Brian Heibert]

Hi,

I screwed something up in the code below it is giving me the following error message: Error 519 in C:\Users\brian~1\Desktop\SuperFind.bas(134:027) Missing declaration L1 LISTBOX ADD hDlg,L1, USING$("Yahoo,Excite",i)
So there is a missing declaration but I don't know what
and also I want to add a list of items to the listbox and am not sure if I am doing it right.

FUNCTION SampleListBox(BYVAL hDlg AS DWORD, BYVAL lID AS LONG, BYVAL lCount _
AS LONG) AS LONG
LOCAL i AS LONG

FOR i = 1 TO lCount
LISTBOX ADD hDlg, L1, USING$("Yahoo,Excite", i)
NEXT i
END FUNCTION

[Kev Peel]

Something like this?

FUNCTION SampleListBox(BYVAL hDlg AS DWORD, _
                       BYVAL lID AS LONG, _
                       BYVAL lCount AS LONG) AS LONG
  LOCAL i AS LONG
  LOCAL sItems AS STRING
 
  sItems = "Yahoo,Excite" ' Assign list once to a dynamic variable.
 
  FOR i = 1 TO lCount
     LISTBOX ADD hDlg, lID, PARSE$(sItems, i)
  NEXT i
 
END FUNCTION

Note that the missing declaration was in the error message ("L1"), this was not declared as a equate, variable or function. It looked like a typo so I changed it to "lID".

[Brian Heibert]

Thankyou

OK thankyou,

Right now I am logged into MacOS X
I will restart into Windows and check the code in a minute

(I have a Apple iMac with a Intel Chip so I can dual-boot )

[Brian Heibert]

It worked.