VB2008でデスクトップアイコンを移動する (ID:147546)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

VB2008でデスクトップアイコンを移動したいと思っています。
環境はwindows7です。
様々なサイトを探しましたがC言語やVB6.0は見つかりましたが、
vb2008では見つかりませんでした。
vb6.0のコードやハンドルについて調べ自分なりにコードを考えましたが
lngChildWindow = FindWindowEx(lngTopWindow, 0, "SHELLDLL_DefView", vbNullString)の部分でオーバーフローしてエラーになります。
どうすれば良いのか見当もつきません。
助けてください。

Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    Private Declare Function ListView_GetItemRect Lib "user32.dll" Alias "SendMessageA" (ByVal hWnd As Long, ByVal MSG As Long, ByVal lngIndex As Long, ByRef rc As Rectangle) As Long
    Private Declare Function ListView_SetItemPosition Lib "user32.dll" Alias "SendMessageA" (ByVal hWnd As Long, ByVal MSG As Long, ByVal lngIndex As Long, ByVal lngPosition As Long) As Long
    Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Integer, ByVal hWnd2 As Integer, ByVal lpsz1 As String, ByVal lpsz2 As String) As Integer

Private Const LVM_GETITEMRECT As Long = &H100E
    Private Const LVM_SETITEMPOSITION As Long = &H100F

Dim lngTopWindow As Long
        Dim lngChildWindow As Long
        Dim lngSysListView32 As Long
        Dim rc As Rectangle
            lngTopWindow = FindWindow("Progman", "Program Manager")
            If lngTopWindow Then
                lngChildWindow = FindWindowEx(lngTopWindow, 0, "SHELLDLL_DefView", vbNullString)
                If lngChildWindow Then
                    lngSysListView32 = FindWindowEx(lngChildWindow, 0, "SysListView32", vbNullString)
                    If lngSysListView32 Then

ListView_GetItemRect(lngSysListView32, LVM_GETITEMRECT, 0, rc)

ListView_SetItemPosition(lngSysListView32, LVM_SETITEMPOSITION, 0, rc.Top * &H10000 + rc.Left + 300)

End If
                End If
            End If

←解決時は質問者本人がここをチェックしてください。

戻る