求助list view control绘制表格

nsc · 发表于 2021-12-7 15:56:14

问题：使用list view control 绘制表格，能够画出表头，可是显示不了内容。求教
代码如下：

[Fortran] 纯文本查看 复制代码

01    TYPE(T_LVCOLUMN) lvc
02    TYPE(T_LVITEM) lvi
03 
04 
05   character(len=Len("序号")),dimension(3)::header=["序号","姓名","年龄"]
06   character(len=4):: pszText
07 
08 
09 
10    lret=DlgInit(IDD_test, gdlg)
11 
12    if (lret == FALSE) goto 9999
13    lret = DlgModeless(gdlg)
14 
15    hListView=getDlgItem(gdlg%hwnd,IDC_LISTCONTROL)
16    lret= sendmessage(hListView,LVM_SETEXTENDEDLISTVIEWSTYLE,0,LVS_EX_GRIDLINES)
17 
18    lvc%mask=IOR(IOR(LVCF_WIDTH,LVCF_TEXT),LVCF_SUBITEM)
19    lvc%cx=50
20 
21    do i=1,3
22        pszText=header(i)
23        !      iret = MessageBox(null, pszText, "Error"C, MB_OK)
24        lvc%pszText=LOC(pszText)
25        lvc%iSubItem=i-1
26 
27        lret= sendmessage(hListView,LVM_INSERTCOLUMN,i-1,LOC(lvc))
28    end do
29 
30！上面的代码可以显示出表头"序号","姓名","年龄"
31！下面的代码用来添加项目，程序没有报错，可以没有显示出来任何一个“小明”
32    lvi%mask=LVIF_TEXT
33 
34    pszText="小明"C
35    lvi%pszText   =LOC("小明"C)
36    !       lvi%iItem  = sendmessage(hListView,LVM_GETITEMCOUNT,0,0);
37    lvi%iItem=0
38    lvi%iSubItem  =0;
39    lret=sendmessage(hListView,LVM_SETITEM,0,LOC(lvi))
40 
41if (lret == -1) then
42        goto 9999
43    else
44        lvi%mask=LVIF_TEXT
45 
46        lvi%pszText   =LOC("小明"C)
47        lvi%iSubItem  =1;
48 
49        lret =sendmessage(hListView,LVM_SETITEMTEXT,1,LOC(lvi))
50    end if
51 
52    if (lret == -1) then
53        goto 9999
54    else
55        lvi%pszText   =LOC("小明"C)
56        lvi%iSubItem  =2;
57        lret =sendmessage(hListView,LVM_SETITEMTEXT,2,LOC(lvi))
58    end if
59 
60 
61    return
62 
639999 iret = MessageBox(null, "Error initializing dlg"C, "Error"C, MB_OK)
64    return