VB6 AllowColumnReorder on listview not working

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) 

よろしく、

マス