アクティブコントロール名を取得するには？
解決いつも参考にさせていただいております。
.Net初心者です。
vb6のプログラムを現在vb2008に修正しております。
フォームにはSplitContainerを貼り付け
Panel2にテキストボックス(txtCD)を配置しています。
txtCD_TextChangedイベントで
実際に入力したときに実行する処理と
プログラムからデータが変更された場合の処理を分けています。
この判断をvb6では以下のように判断しました。
IF txtCD.Parent.ActiveControl.Name = txtCD.Name Then
vb2008では以下のように記述しましたが
SplitContainerの名前が戻ってきます。
IF txtCD.FindForm.ActiveControl.Name = txtCD.Name Then
調べてみるとこちら↓のサイト様のコメントに
http://blogs.wankuma.com/naoko/archive/2007/03/30/69542.aspx
「SplitContainer を使うと Form.ActiveControl がちょっと期待ハズレになってしまう点にお気をつけあれ。」とありました。
まさしくその現象が起こっていると思われるのですが
SplitContainerを外さない限り欲しい結果は得られないのでしょうか？
[vb2008/xp(sp3)]
>txtCD_TextChangedイベントで
>実際に入力したときに実行する処理と
>プログラムからデータが変更された場合の処理を分けています。
>
>この判断をvb6では以下のように判断しました。
>IF txtCD.Parent.ActiveControl.Name = txtCD.Name Then
>
>vb2008では以下のように記述しましたが
>SplitContainerの名前が戻ってきます。
>IF txtCD.FindForm.ActiveControl.Name = txtCD.Name Then
ActiveControl.Nameではなく、txtCD.Focusedでフォーカスを持っているか
では判断できませんか？
Dim StringActveControl As String = Me.ActiveControl.GetType.ToString()
If StringActveControl = "System.Windows.Forms.SplitContainer" Then
If (SplitContainer1.ActiveControl IsNot Nothing) Then
StringActveControl = SplitContainer1.ActiveControl.Name.ToString()
End If
End If
If StringActveControl = txtCD.Name Then
'MessageBox.Show(StringActveControl)
End If
こんなかな。
あれ！もっと簡単になりそうだな。
あとはご自分でごにょごにょやってください。
If SplitContainer1.ActiveControl IsNot Nothing AndAlso _
DirectCast(SplitContainer1.ActiveControl, TextBox) Is txtCD Then
'Do Something
End If
なんとなく後味が悪いので結局書いてしまった。
If DirectCast(SplitContainer1.ActiveControl, TextBox) Is txtCD Then
'Do Something
End If
でも良さそうだが、なんかのタイミングで例の
「オブジェクト参照がオブジェクト インスタンスに設定されていません。」
と言うのが出る可能性あり。
matsuさん 我龍院さん
お返事ありがとうございます。
matsuさんに教えていただいたFocusedで
フォーカスを持っているかが判断できました。
vb6にはない便利なプロパティですね。
ActiveControlにこだわって検索していたせいで
１日中SplitContainerを外すか悩んでいました。
我龍院さんのソースはとても参考になりました。
何度もお返事をいただき今日も早朝から
気にかけてくださったようで本当に感謝しております。
SplitContainerにもActiveControlがあることを知らず
このように判断できることを学びました。
matsuさん 我龍院さん
本当にありがとうございました！
DirectCast してはマズイと思いますよ。＞我龍院さん
魔界の仮面弁士さん
ご指摘のとおり確かにマズイ、SplitContainerに何が乗ってるかわかりませんからね。
If SplitContainer1.ActiveControl IsNot Nothing AndAlso _
TypeOf SplitContainer1.ActiveControl Is TextBox AndAlso _
DirectCast(SplitContainer1.ActiveControl, TextBox) Is txtCD Then
'Do Something
End If
かな。
読みやすくするんだったら
Dim obj As Object = SplitContainer1.ActiveControl
If obj IsNot Nothing AndAlso _
TypeOf obj Is TextBox AndAlso _
DirectCast(obj, TextBox) Is txtCD Then
'Do Something
End If
最初に書いたように名前でやるとキャストはいらないが,いまいち.....
If SplitContainer1.ActiveControl IsNot Nothing AndAlso _
SplitContainer1.ActiveControl.Name = txtCD.Name Then
'Do Something
End If
面倒なので邪道だけど
Try
If SplitContainer1.ActiveControl Is txtCD Then
'Do Something
End If
Catch ex As Exception
End Try
> 面倒なので邪道だけど
その最後のパターンである
「If SplitContainer1.ActiveControl Is txtCD Then」
が、Catch 句に入る場合というのは、具体的には
どのような状況において、何の Exception を想定しているのでしょうか?
>何の Exception を想定しているのでしょうか?
その辺を考えるのが面倒と言うことで、どんな例外が
出るか考えないで書くのを邪道と.....
Nothingの時はどうかと漠然と考えたのですが、その時は
例外は発生しないか。
| ツイート |  |