powerbasic listview

PowerBASIC是一种基于BASIC语言的编程语言。它可以用于开发Windows应用程序，包括使用ListView控件来显示数据列表。以下是使用PowerBASIC创建和使用ListView控件的示例代码：

#COMPILE EXE
#DIM ALL

#INCLUDE "WIN32API.INC"

FUNCTION PBMAIN () AS LONG
  LOCAL hDlg, hList AS DWORD
  
  DIALOG NEW 0, "List View Example", , , 200, 200, %WS_OVERLAPPEDWINDOW TO hDlg
  CONTROL ADD "SysListView32", hDlg, %IDC_LISTVIEW, "", 10, 10, 180, 180, _
    %WS_CHILD OR %WS_VISIBLE OR %LVS_REPORT OR %LVS_SINGLESEL

  ListView_SetExtendedListViewStyle GetDlgItem(hDlg, %IDC_LISTVIEW), _
    %LVS_EX_FULLROWSELECT OR %LVS_EX_GRIDLINES
  
  ListView_InsertColumn GetDlgItem(hDlg, %IDC_LISTVIEW), 0, "Column 1", 100
  ListView_InsertColumn GetDlgItem(hDlg, %IDC_LISTVIEW), 1, "Column 2", 100

  ListView_InsertItem GetDlgItem(hDlg, %IDC_LISTVIEW), 0, "Item 1"
  ListView_SetItemText GetDlgItem(hDlg, %IDC_LISTVIEW), 0, 1, "Value 1"
  
  ListView_InsertItem GetDlgItem(hDlg, %IDC_LISTVIEW), 1, "Item 2"
  ListView_SetItemText GetDlgItem(hDlg, %IDC_LISTVIEW), 1, 1, "Value 2"
  
  DIALOG SHOW MODAL hDlg CALL DlgProc
END FUNCTION

CALLBACK FUNCTION DlgProc() AS LONG
  SELECT CASE CBMSG
    CASE %WM_COMMAND
      IF CBCTL = %IDCANCEL THEN
        DIALOG END CBHNDL, 0
      END IF
  END SELECT
END FUNCTION

这个示例代码创建了一个具有两个列的ListView控件，并在其中插入了两个项目。通过设置`%LVS_REPORT`样式，ListView控件将显示为报表视图，每个项目将显示为一行，每个列将显示为一个数据字段。通过设置`%LVS_EX_FULLROWSELECT`和`%LVS_EX_GRIDLINES`样式，ListView控件将启用整行选择和网格线。可以使用`ListView_InsertItem`和`ListView_SetItemText`函数向ListView控件中插入和设置项目和列的文本。