|
すいません。 理由は分かりませんが、下記のコードで動きました。 "Progman"でFindWindowExをすると動くみたいです。 お騒がせしました。
Private Sub Form_Load() Dim progmanHandle As Long Dim workerWHandle As Long Dim ret As Long 'Formサイズ変更 Me.Width = Screen.Width Me.Height = Screen.Height ' 正しく取得できた場合は、Program Manager を親ウィンドウに設定する progmanHandle = FindWindowEx(0, 0, "Progman", vbNullString) If progmanHandle <> 0 Then ret = SetParent(Me.hWnd, progmanHandle) Exit Sub End If ' 正しく取得できた場合は、WorkerW を親ウィンドウに設定する workerWHandle = FindWindowEx(0, 0, "WorkerW", vbNullString) If workerWHandle <> 0 Then ret = SetParent(Me.hWnd, workerWHandle) Exit Sub End If End Sub
|