MDIフォームによる、マウスのイベントモジュール

解決


doc  2004-04-12 16:36:49  No: 112794  IP: [192.*.*.*]

MDIフォームを作成し、子フォームを複数呼び出して、
マウスにイベントをさせたのですが…
Form1だけしかその動作を起こしません。

[Ex]
MDIForm

→→→form1(コイツだけしかマウスイベントを受け付けない)
  ↓→form2(☆マウスイベントの発生)
  ↓→form3

どうやって、特定の子フォームを判断させれるか。
(webも紹介ください。)
ご教授おながいします。

編集 削除
doc  2004-04-16 12:36:52  No: 112795  IP: [192.*.*.*]

以下の要領でできるようになりました。

まず、MSDNのサンプルMDIメモ帳を使って、
Sub FileNew()
Function FindFreeIndex() as Integer
メニュー新規作成メニューバーをつくる。
の部分を新規のフォームに組み込ませて、
formにインデックスをつけ配列にさせる。

マウスのイベントが発生させる場合は
if Bottom = 1 then Sub 処理イベント(x ,y ,z)      
※ちなみに(x,y←マウスの座標 z←formのタグ番
のように、作る。

--Module1.bas--
Option Explicit
Public tgt as integer

sub 処理イベント(x as single, y as single, z as integer←ここはデバックで調べる

処理内容
form1(tgt).Pset ぐらいかな。
説明がぜんぜん足りないので申し訳ないのですが、
ローカルウォッチを使って、Form配列化ができたか。それから、指定フォームをクリックした場合、に認識できたかが、ポイントになります。

編集 削除