PublicSubFocusMe(ctlNameAsControl)
WithctlName
.SelStart=0
.SelLength=Len(ctlName)
EndWith
EndSub
NowaddacalltothissubroutineintheGotFocuseventoftheinputcontrols:
PrivateSubtxtFocusMe_GotFocus()
CallFocusMe(txtFocusMe)
EndSub->
PublicSubFocusMe(ctlNameAsControl)
WithctlName
.SelStart=0
.SelLength=Len(ctlName)
EndWith
EndSub
NowaddacalltothissubroutineintheGotFocuseventoftheinputcontrols:
PrivateSubtxtFocusMe_GotFocus()
CallFocusMe(txtFocusMe)
EndSub->