PB9 Combobox

[Walt Decker]

It appears that the control add combobox statement in PB9 is broken.

#COMPILE EXE
DEFLNG A - Z

FUNCTION PBMAIN () AS LONG

LOCAL Itm() AS STRING
DIM Itm$(1 TO 10)

FOR I = 1 TO 10
  Itm$(I) = FORMAT$(I)
  A$ = A$ + Itm$(I)
NEXT I


Styl = %WS_OVERLAPPEDWINDOW
DIALOG NEW  0, "Test", , , 100, 100, Styl, ,  TO hDlg

'CONTROL ADD GRAPHIC, hdlg, 100, "", 0, 0, 100, 100'
'GRAPHIC ATTACH hdlg, 100
'GRAPHIC CLEAR %GREEN


CONTROL ADD COMBOBOX, hdlg, 200, Itm$(), 20, 20, 40, 30
DIALOG SHOW MODAL hdlg CALL tstCB

    

END FUNCTION

CALLBACK FUNCTION tstCB
END FUNCTION

The combobox should have 10 items. It only has one.

[Steve Rossell]

Hi Walt,

The Combobox is working correctly. What occurred is that you did not tell the combobox to put a scrollbar on the drop down box if the box is not long enough to list all the strings, this is done with the %WS_VSCROLL style. Also your drop down box is only 30 dialog units in height. I would add the %WS_VSCROLL style and increase the height of the drop down box.

Control Add ComboBox, hdlg, 200, Itm$(), 20, 20, 40, 100, %WS_Child Or %WS_TabStop Or %WS_VScroll Or %CBS_DropDown

[Walt Decker]

Once again I'm an alumni of DUH.

[Michael Mattias]

>an alumni of DUH.

Oooh, oooh... the University of

I like it. I shall use it.

[Walt Decker]

>an alumni of DUH.

Oooh, oooh... the University of

I like it. I shall use it.

Michael, be my guest. I first heard that on talk radio, Rush Limbaugh (sp) to be exact, and have used it since.