オブジェクト

コントロール配列しすると、Index が得られます。

または…、
　Private Sub xxxClick(ByRef n As String)
　　' …
　End Sub
　Private Sub aaa_Click()
　　xxxClick("aaa")
　End Sub
　Private Sub bbb_Click()
　　xxxClick("bbb")
　End Sub
みたいにする。

…ではダメですか？

投稿日時 - 2003-02-18 00:07:58

> Imageコントロールはフォーカスを持たないので、ActiveControlでは参照出来ないと思います。
> Pictureコントロールなら出来ますが。

ご指摘感謝です。m(_ _)m
ラベルとかもダメですね、たぶん。(試してみてないけど)

投稿日時 - 2003-02-17 16:00:00

こんにちは。maruru01です。

No.1の人の方法ですが、
Imageコントロールはフォーカスを持たないので、ActiveControlでは参照出来ないと思います。
Pictureコントロールなら出来ますが。

投稿日時 - 2003-02-17 15:56:23

> そこでご質問なのですが

敬語の使い方が変です。ふつう自分のことには尊敬語は使いません。
たぶん、尊敬語と謙譲語の使い分けが理解できていないのだと思いますが・・・。
(まさか社会人じゃないよね？)

で、「ご質問の」ケースですが(笑)、

上位モジュール(呼び出し側)で

Screen.ActiveControl.Name を引数として渡し、

下位モジュール(呼び出し先)で

As String の引数で受け取ればよいと思います。

Screen.ActiveControl
　　↓
As Control

でもほぼおなじ。

投稿日時 - 2003-02-17 15:35:36