ACCESS VBA 判定に利用できる情報について
下のようなテストプログラムを作ってみました。
サブルーチン chgcolorの中で、どちらの上位ルーチンからコールされたか
で処理を切り替えたいと考えています。上位ルーチンからの引数を増やす
ことなく、判定する方法はないものでしょうか。
アドバイスお願いします。
Private Sub txt1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call chgcolor(Me.txt1)
End Sub
:
Private Sub txt1_DblClick(Cancel As Integer)
Call chgcolor(Me.txt1)
End Sub
:
Sub chgcolor(a As Control)
◇txt1_MouseDownからコールされた場合(またはクリックイベントの場合)
→a.BackColor = CLng("&HFF00FF")
◇txt1_DblClickからコールされた場合(またはダブルクリックイベントの場合)
→a.BackColor = CLng("&HFFFFFF")
End Sub
お礼
ありがとうございました。