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