listview上的VB6 AllowColumnReorder不起作用

Question

我已经安装了最新的VB6补丁，我正在尝试设置列表视图以允许列重新排序。我已经尝试在可视化编辑器中将属性AllowColumnReorder设置为True，并在表单加载过程中调用AllowColumnReorder = true。

然而，在运行应用程序时我仍然无法移动列。

还有其他我应该寻找的东西吗？代码中没有明确禁用此功能的地方。

谢谢！

Answer 1

添

您需要使用User32 API：

Declare Auto Function SendMessage Lib "user32" _
  (ByVal hwnd As IntPtr, _
   ByVal Msg As Integer, _
   ByVal wParam As Integer, _
   ByVal lParam() As Integer) As Integer

---
Dim colArray(colCount - 1) As Integer
SendMessage(ListView1.Handle, LVM_GETCOLUMNORDERARRAY, colCount,
colArray) 

此致

马斯