在GotFocus时快速选择文本
 PublicSubFocusMe(ctlNameAsControl)
WithctlName
.SelStart=0
.SelLength=Len(ctlName)
EndWith
EndSub
  
NowaddacalltothissubroutineintheGotFocuseventoftheinputcontrols:
  
PrivateSubtxtFocusMe_GotFocus()
CallFocusMe(txtFocusMe)
EndSub->
WithctlName
.SelStart=0
.SelLength=Len(ctlName)
EndWith
EndSub
NowaddacalltothissubroutineintheGotFocuseventoftheinputcontrols:
PrivateSubtxtFocusMe_GotFocus()
CallFocusMe(txtFocusMe)
EndSub->
- 上一篇:统计VB程序的运行
 - 下一篇:用EXCEL组件简化VB编程的一种方法
 
精彩图集
    
    精彩文章
    



