trouble with comboboxes

[Erich Schulman]

The second combobox shows up on the form, but the strings I add to it do not show up and it is not possible to select anything.

    CONTROL ADD COMBOBOX, hDlg, %ID_VSELECT,, 1,25, 100,40, CALL ShowfrmMainProc
    COMBOBOX ADD hDlg, %ID_VSELECT, "Clients"
    COMBOBOX ADD hDlg, %ID_VSELECT, "Individuals"
    COMBOBOX ADD hDlg, %ID_VSELECT, "Work Applications"
    CONTROL ADD LABEL, hDlg, %LBL_VSELECT, "View this table:", 1,12, 100,8

    CONTROL ADD COMBOBOX, hDlg, %ID_RFSELECT,, 150,25, 100,40, CALL ShowfrmMainProc
    COMBOBOX ADD hDlg, %ID_RFSELECT, "Clients"
    COMBOBOX ADD hDlg, %ID_RFSELECT, "Individuals"
    COMBOBOX ADD hDlg, %ID_RFSELECT, "Work Applications"
    CONTROL ADD LABEL, hDlg, %LBL_RFSELECT, "Refresh this table:", 150,12, 100,8

Callback

        CASE %WM_COMMAND
            ' Process control notifications
            SELECT CASE AS LONG CB.CTL
                CASE %ID_VSELECT
                    SELECT CASE AS LONG CB.CTLMSG
                        CASE %CBN_SELCHANGE
                            COMBOBOX GET SELECT hDlg, %ID_VSELECT TO TableChoice
                            SELECT CASE AS LONG TableChoice
                                CASE 1
                                    CONTROL SHOW STATE hDlg, %EGRID_01, %SW_SHOW
                                    CONTROL SHOW STATE hDlg, %EGRID_02, %SW_HIDE
                                    CONTROL SHOW STATE hDlg, %EGRID_03, %SW_HIDE
                                CASE 2
                                    CONTROL SHOW STATE hDlg, %EGRID_01, %SW_HIDE
                                    CONTROL SHOW STATE hDlg, %EGRID_02, %SW_SHOW
                                    CONTROL SHOW STATE hDlg, %EGRID_03, %SW_HIDE
                                CASE 3
                                    CONTROL SHOW STATE hDlg, %EGRID_01, %SW_HIDE
                                    CONTROL SHOW STATE hDlg, %EGRID_02, %SW_HIDE
                                    CONTROL SHOW STATE hDlg, %EGRID_03, %SW_SHOW
                            END SELECT
                    END SELECT
                CASE %ID_RFSELECT
                    SELECT CASE AS LONG CB.CTLMSG
                        CASE %CBN_SELCHANGE
                            COMBOBOX GET SELECT hDlg, %ID_RFSELECT TO TableChoice
                            SELECT CASE AS LONG TableChoice
                                CASE 1
                                    DispClientsTable
                                CASE 2
                                    DispWorkAppsTable
                                CASE 3
                                    DispIndividualsTable
                            END SELECT
                    END SELECT
            END SELECT

[Fred Buffington]

Since I do not have PB9, I had to modify the callback somewhat to be compatible with version 8+ and since you did not show come of the other
subs/or functions, i remmed those. But this has the items in it.

#COMPILE EXE
#INCLUDE "win32api.inc"
GLOBAL hDlg  AS DWORD, TableChoice AS LONG
%ID_VSELECT=201
%LBL_VSELECT=102
%ID_RFSELECT=202
%LBL_RFSELECT=101
%EGRID_01=301
%EGRID_02=302
%EGRID_03=303
CALLBACK FUNCTION dlgproc
SELECT CASE CBMSG
  CASE %WM_COMMAND
            ' Process control notifications
            SELECT CASE AS LONG CBCTL 'CB.CTL
                CASE %ID_VSELECT
                    SELECT CASE AS LONG CBCTLMSG 'CB.CTLMSG
                        CASE %CBN_SELCHANGE
                            'COMBOBOX GET SELECT hDlg, %ID_VSELECT TO TableChoice
                            COMBOBOX GET TEXT hDlg,%ID_VSELECT TO temp$
                            TableChoice=VAL(Temp$)
                            SELECT CASE AS LONG TableChoice
                                CASE 1
                                    CONTROL SHOW STATE hDlg, %EGRID_01, %SW_SHOW
                                    CONTROL SHOW STATE hDlg, %EGRID_02, %SW_HIDE
                                    CONTROL SHOW STATE hDlg, %EGRID_03, %SW_HIDE
                                CASE 2
                                    CONTROL SHOW STATE hDlg, %EGRID_01, %SW_HIDE
                                    CONTROL SHOW STATE hDlg, %EGRID_02, %SW_SHOW
                                    CONTROL SHOW STATE hDlg, %EGRID_03, %SW_HIDE
                                CASE 3
                                    CONTROL SHOW STATE hDlg, %EGRID_01, %SW_HIDE
                                    CONTROL SHOW STATE hDlg, %EGRID_02, %SW_HIDE
                                    CONTROL SHOW STATE hDlg, %EGRID_03, %SW_SHOW
                            END SELECT
                    END SELECT
                CASE %ID_RFSELECT
                    SELECT CASE AS LONG CBCTLMSG 'CB.CTLMSG
                        CASE %CBN_SELCHANGE
                            'COMBOBOX GET SELECT hDlg, %ID_RFSELECT TO TableChoice
                            COMBOBOX GET TEXT hDlg,%ID_RFSELECT TO temp$
                            TableChoice=VAL(Temp$)

                            SELECT CASE AS LONG TableChoice
                                CASE 1
                                    'DispClientsTable
                                CASE 2
                                    'DispWorkAppsTable
                                CASE 3
                                    'DispIndividualsTable
                            END SELECT
                    END SELECT
            END SELECT
  END SELECT
END FUNCTION
FUNCTION PBMAIN() AS LONG
   DIM ID_LIST$(0:2)
   ID_LIST$(0)="Clients"
   ID_LIST$(1)="Individuals"
   ID_LIST$(2)="Work Applications"
   DIALOG NEW 0,"My Dialog",40,30,300,200,0,%WS_EX_TOPMOST TO hDlg

    CONTROL ADD COMBOBOX, hDlg, %ID_VSELECT,ID_LIST$(), 1,25, 100,40', CALL ShowfrmMainProc
'    COMBOBOX ADD hDlg, %ID_VSELECT, "Clients"
'    COMBOBOX ADD hDlg, %ID_VSELECT, "Individuals"
'    COMBOBOX ADD hDlg, %ID_VSELECT, "Work Applications"
    CONTROL SET TEXT hDlg,%ID_VSELECT,ID_LIST$(0) '"Clients"
    CONTROL ADD LABEL, hDlg, %LBL_VSELECT, "View this table:", 1,12, 100,8

    CONTROL ADD COMBOBOX, hDlg, %ID_RFSELECT,, 150,25, 100,40', CALL ShowfrmMainProc
    COMBOBOX ADD hDlg, %ID_RFSELECT, "Clients"
    COMBOBOX ADD hDlg, %ID_RFSELECT, "Individuals"
    COMBOBOX ADD hDlg, %ID_RFSELECT, "Work Applications"
    CONTROL ADD LABEL, hDlg, %LBL_RFSELECT, "Refresh this table:", 150,12, 100,8
    DIALOG SHOW MODAL hDlg CALL dlgproc


END FUNCTION