Tab Control Question

[Richard Kelly]

I'm trying to get my form working without DDT and am unsuccessful in adding a listview to a page.

Creating the tab control

Code Select Expand

DIM pTabPage1 AS CTabPage PTR = NEW CTabPage
pTabPage1->InsertPage(hTab, 0, "Date Types", -1, @TabPage1_WndProc)
DIM pTabPage2 AS CTabPage PTR = NEW CTabPage
pTabPage2->InsertPage(hTab, 1, "Holidays", -1, @TabPage2_WndProc)
DIM pTabPage3 AS CTabPage PTR = NEW CTabPage
pTabPage3->InsertPage(hTab, 2, "Events", -1, @TabPage3_WndProc)
DIM pTabPage4 AS CTabPage PTR = NEW CTabPage
pTabPage4->InsertPage(hTab, 3, "Miscellaneous", -1, @TabPage4_WndProc) 

Adding the listview control to first page

Code Select Expand

FUNCTION TabPage1_WndProc (BYVAL hwnd AS HWND, BYVAL uMsg AS UINT, BYVAL wParam AS WPARAM, BYVAL lParam AS LPARAM) AS LRESULT

   SELECT CASE uMsg

    CASE WM_CREATE
        DIM pTabPage AS CTabPage PTR = AfxCTabPagePtr(GetParent(hwnd), 0)
        DIM LVColumn AS LVCOLUMN
        DIM hListView AS HWND = pTabPage->AddControl("LISTVIEW", hwnd, IDC_LVPAGE1, "", 9, 408, 688, 20)
        DIM wColumnName AS WSTRING * 260
        LVColumn.mask = LVCF_TEXT
        wColumnName = "Name"
        LVColumn.pszText = @wColumnName
        ShowWindow(hListView,SW_SHOW)

The tab control shows up with all the tabs empty.