質問編集履歴

2

コードにmarkdownのコメントが残ったままだったので修正

2020/11/19 23:38

投稿

popy
popy

スコア9

title CHANGED
File without changes
body CHANGED
@@ -61,9 +61,9 @@
61
61
  lngSysListView32 = GetWindow(lngChildWindow, GW_CHILD)
62
62
  If lngSysListView32 Then
63
63
 
64
- **' インデックス= 0 のアイコンの位置を取得します。**
64
+ ' インデックス= 0 のアイコンの位置を取得します。
65
- **rc.Left = LVIR_ICON**
65
+ rc.Left = LVIR_ICON
66
- **ListView_GetItemRect lngSysListView32, LVM_GETITEMRECT, 0, rc**
66
+ ListView_GetItemRect lngSysListView32, LVM_GETITEMRECT, 0, rc
67
67
 
68
68
  ' X 方向に +100 移動させます
69
69
  ListView_SetItemPosition lngSysListView32, LVM_SETITEMPOSITION, 0, rc.Top * &H10000 + rc.Left + 100

1

コードを専用の枠に移動しました。

2020/11/19 23:38

投稿

popy
popy

スコア9

title CHANGED
File without changes
body CHANGED
@@ -16,8 +16,7 @@
16
16
 
17
17
  を教えていただきたいと思います。
18
18
  WINAPI32に関しては初心者なので初歩的なミスがあるかもしれませんが、ご容赦いただければと思います。
19
-
20
- 【サンプル】
19
+ ```ここに言語を入力
21
20
  Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
22
21
  Private Declare Function GetWindow Lib "user32.dll" (ByVal hWnd As Long, ByVal uCmd As Long) As Long
23
22
  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 RECT) As Long
@@ -73,8 +72,8 @@
73
72
  End If
74
73
  End If
75
74
  End Sub
75
+ ```
76
76
 
77
-
78
77
  参考にしたサイト
79
78
  https://okwave.jp/qa/q5525027.html
80
79