tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 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さん 本当にありがとうございました。

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。