「33358」の検索結果 - DOBON.NETプログラミング道掲示板

DOBON.NETプログラミング道掲示板

ログ内検索

・キーワードを複数指定する場合は半角スペースで区切ってください。
・検索条件は、(AND)=[A かつ B] (OR)=[A または B] となっています。
・[返信]をクリックすると返信ページへ移動します。 (*過去ログは表示されません)
・過去ログから探す場合は検索範囲から過去ログを選択。
・過去ログより前の全過去ログはこちらで検索できます。

No.33358 の関連記事表示

ヒット / 1件 (1-1 を表示)

<< 0 >>

■33358

　Re[7]: C#で作成したDLLがVB6.0で利用できない

□投稿者/ Jun -(2016/05/01(Sun) 13:16:54)

■No33353に返信(魔界の仮面弁士さんの記事)

魔界の仮面弁士さん手取り足取りありがとうございます。
返答が遅くなり申し訳ありません。

サンプルを利用させて頂きましたが・・・

> 試しに作ってみました。Form1 からであれば
> 　Dim c As VirtualDesktopManager
> 　Set c = New VirtualDesktopManager
> 　If c.IsVirtualDesktop(Me.hWnd) Then
> 　　MsgBox "OK"
> 　End If
> のように利用できるはずです。

プログラム内に新しく VirtualDesktopManager というクラスモジュールを作り
実行すると IsVirtualDesktop がないと出てきます。
そこでもしかすると If c.IsVirtualDesktop(Me.hWnd) を If c.IsWindowOnCurrentVirtualDesktop(Me.hWnd) とするとうまくいくかなぁと思いやってみました。
ここはすんなり通ったみたいなのですが、下記のところでエラーが出ます。

> Call IIDFromString(StrPtr("{a5cd92ff-29be-454c-8d04-d82879fb3f1b}"), iid(0))
> Set oVirtualDesktopManager = GetObject("new:aa509086-5ca9-4c25-8f95-589d3c07b48a")
> Call Invoke32(ObjPtr(oVirtualDesktopManager), 0, VarPtr(iid(0)), VarPtr(pIVirtualDesktopManager))
> End Sub

エラーは「GetObject は引数が足りません。」です。

本体の標準モジュールで下記のように宣言しています。

Declare Function GetObject Lib "gdi32" Alias "GetObjectA" (ByVal hObject As Long, ByVal nCount As Long, ByRef lpObject As Any) As Long

ほんとにお手数をかけて申し訳ありません。
もう少しおつきあいくださいませ。

記事No.33343 のレス /過去ログ1より / 関連記事表示
削除チェック/

<< 0 >>

パスワード/

キーワード	/	検索条件	/
検索範囲	/	強調表示	/ ON (自動リンクOFF)
結果表示件数	/	記事No検索	/ ON
投稿日時	/ 日以内
大文字と小文字を区別する