タイトル : Re^4: フォーカスの現在の位置 投稿日 : 2008/01/28(Mon) 14:05 投稿者 : 來
YKさん 返信ありあがとうございます。 > クラスモジュールで > WithEventsを利用したらどうでしょう。 WithEvents で出来ました。 今まで使ったことが無かったのですが、何とか思うように動きました。 WithEvents 過去ログから参照して自分なりに作ってみてたのですが 下記のようでしょうか? Private Const LogCtrNum = 37 Private Ctr(LogCtrNum) As Control Private WithEvents A As TextBox Private Sub Form_Load() Call FocSet End Sub Private Sub FocSet() Set Ctr(0) = Txt0 Set Ctr(1) = Txt1 Set Ctr(2) = Txt2 ・ ・ ・ Set Ctr(37) = Txt37 End Sub Private Sub A_LostFocus() SE = Screen.ActiveControl.TabIndex ChgColor (SE) 'BackColor変更 Set a = Ctr(SE) End Sub いなさん 花ちゃんさん YKさん 本当にありがとうございました。 |