精华区文章阅读

发信人: windoe (为中国电信做贡献), 信区: program
标  题: VB:很多软件都有鼠标一按下文字框TextBox，就选中所�
发信站: 听涛站 (Fri Mar 10 19:08:59 2000), 转信

字的功能，是怎么实现的？
Sub TextFocus(ctl As Control) ’定义过程
ctl.SelStart = 0
ctl.SelLength = Len(ctl.Text)
End Sub
Private Sub Text1_GotFocus()
TextFocus Text1 ’过程调用
End Sub

--By Kammi's SuperPost General Version
--

夜中不能寐，起坐弹鸣琴。
    薄帷鉴明月，清风吹我襟。
孤鸿号外野，翔鸟鸣北林。
    徘徊将何见，忧思独伤心。

computer 版 (精华区)