ActiveControl

[Robert J]

Hi,

Is there something similar to Me.ActiveControl in the CF

Cheers

Robert

 

[Daniel Moth]

No, you need to keep track of the focused control or iterate all controls
until you find the one that is focused:
http://groups-beta.google.com/group...iveControl&qt_g=1&searchnow=Search+this+group

Cheers
Daniel

 

[Robert J]

Thanks Daniel

Here is the VB.Net flavour of the code for anyone that is interested.

Public Overridable Property ActiveControl() As Control
Get
Return GetFocusedControl(Me)
End Get
Set(ByVal Value As Control)
If (Not (Value.Focused)) Then
Value.Focus()
End If
End Set
End Property


Private Function GetFocusedControl(ByRef parent As Control) As Control
If (parent.Focused) Then
Return parent
End If
For Each ctrl As Control In parent.Controls
Dim temp As Control = GetFocusedControl(ctrl)
If (Not (temp Is Nothing)) Then
Return temp
End If
Next
Return Nothing
End Function