龙盟编程博客 | 无障碍搜索 | 云盘搜索神器
快速搜索
主页 > 软件开发 > VB开发 >

在GotFocus时快速选择文本

时间:2009-12-30 15:42来源:未知 作者:admin 点击:
分享到:
PublicSubFocusMe(ctlNameAsControl)
  WithctlName
  .SelStart=0
  .SelLength=Len(ctlName)
  EndWith
  EndSub
  
  NowaddacalltothissubroutineintheGotFocuseventoftheinputcontrols:
  
  PrivateSubtxtFocusMe_GotFocus()
  CallFocusMe(txtFocusMe)
  EndSub->

精彩图集

赞助商链接