VB6 AllowColumnReorder на просмотр списка не работает

Question

Я установил последние исправления VB6 и пытаюсь настроить просмотр списка, чтобы разрешить изменение порядка столбцов. Я попытался установить для свойства AllowColumnReorder значение True в визуальном редакторе, а также вызвать AllowColumnReorder = true в процедуре загрузки формы.

Пока я не могу переместить столбцы при запуске приложения.

Будут ли еще какие-то вещи, которые я должен искать? В коде нет места, где эта функция явно отключена.

Спасибо!

Answer 1

Тим

Вам необходимо использовать API User32:

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) 

С уважением,

Mas