在GotFocus时快速选择文本

　2006-02-27 11:54:39　来源：WEB开发网　　　

核心提示：PublicSubFocusMe(ctlNameAsControl)WithctlName.SelStart=0.SelLength=Len(ctlName)EndWithEndSubNowaddacalltothissubroutineintheGotFocuseventoftheinputcontrols:PRiv

PublicSubFocusMe(ctlNameAsControl)
WithctlName
.SelStart=0
.SelLength=Len(ctlName)
EndWith
EndSub

NowaddacalltothissubroutineintheGotFocuseventoftheinputcontrols:

PRivateSubtxtFocusMe_GotFocus()
CallFocusMe(txtFocusMe)
EndSub->