tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板 [ツリー表示へ]   [Home]
一括表示(VB6.0)
タイトルマウスの下のオブジェクトについて
記事No15248
投稿日: 2011/06/29(Wed) 20:39
投稿者せんとめ
こちらの掲示板のサンプル投稿について質問させて頂いて良いでしょうか。
掲示板のサンプル投稿用(http://hanatyan.sakura.ne.jp/patio/read.cgi?no=190
【文字列を取得,マウスカーソルの下,現在フォーカスがあるオブジェクト】
についてですが、

例えばエクスプローラーで、tmpと言うフォルダを開いていて、その右上の×にマウスカーソルがあるとします。
サンプルのプログラムは、

    Label1.Caption = sName ここに 【閉じる】
    Label2.Caption = sValue ここは 表示されない。
となります。

これを。
    Label1.Caption = sName ここに 【閉じる】
    Label2.Caption = sValue ここは 【tmp】
と同時に表示出来る様に出来ないでしょうか?
宜しくお願い致します。

[ツリー表示へ]
タイトルRe: マウスの下のオブジェクトについて
記事No15250
投稿日: 2011/06/30(Thu) 21:20
投稿者魔界の仮面弁士
>     Label1.Caption = sName ここに 【閉じる】
>     Label2.Caption = sValue ここは 【tmp】
> と同時に表示出来る様に出来ないでしょうか?

とりあえず、
    On Error Resume Next
    sName = objAccessible.accName(v)
    sValue = objAccessible.accValue(v)
    sValueS = objAccessible.accValue
    On Error GoTo 0
    Label1.Caption = sName
    Label2.Caption = sValue
    Label3.Caption = sValueS
のようにしてみるか…これでも都合が悪いなら、親ウィンドウのハンドルを見て、
それが ShellWindows で列挙されたフォルダーウィンドウ内の物かどうかを判定し、
LocationURL などからパスを得るようにしてみるとか。

[ツリー表示へ]
タイトルRe^2: マウスの下のオブジェクトについて
記事No15251
投稿日: 2011/07/01(Fri) 08:29
投稿者せんとめ
魔界の仮面弁士さんありがとうございます。
希望どおり表示される様になりました。

[ツリー表示へ]