VB6 AllowColumnReorder на listview не работает

Question

Я установил последние исправления VB6, и я пытаюсь настроить listview для разрешения переупорядочения столбцов. Я попытался установить свойство 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