VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日： 2005/12/20(Tue) 18:32
投稿者： ちり
Ｅメール：
ＵＲＬ：
タイトル： 他アプリのオブジェクトの所得

　他アプリのMSHFlexGridWndClassのオブジェクトを所得したいのですが、
vbで可能なのでしょうか？


vb内であれば、
    Dim mshFG As MSHFlexGrid
    Set mshFG = MSHFlexGrid1
    MsgBox mshFG.TextMatrix(1, 1)
とすれば、(1,1)の値を所得できるのですが、他アプリの場合は、
２行目をどのように処理して良いのか分かりませんでした。


    Dim mshFG As Object
    Set mshFG = GetObject("C:\aaa.exe")
と、他アプリを実行しても、
実行時エラー '432':

オートメーションの操作中にファイル名またはクラス名を見つけられませんでした。
と表示されて、所得できませんでした。

また、
    Set mshFG = GetObject(, "MSHFlexGridWndClass")
も同様にエラーが発生してダメでした。


    r = SendMessage(tgt_hWnd, WM_GETTEXTLENGTH, 0&, 0&)
    r = SendMessage(tgt_hWnd, WM_GETTEXT, tmpR, ByVal tgt_Caption)
としましたが、MSHFlexGridWndClassのcaptionは""なので所得できませんでした。


MSHFlexGridオブジェクトを所得して、mshFG.TextMatrix(1, 1)でセルの内容を所得する。
もしくは別の方法でMSHFlexGridWndClassの任意のセルの値の所得出来れば
目的は達成できます。なにか良い方法があればよろしくお願いします。


winXP,vb6(SP5)

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- VBレスキュー(花ちゃん) - - Web Forum -