# 关于自动选取文字方块...

Posted by Chris Lee on August 29, 1997 at 02:20:47:

我有另一个不同于小吴先生的做法, 如下:

(1) 在 Form 中新增一个 property: ll_GotFocus

(2) 该 Text 的 GotFocus Event Code:

ll_GotFocus = True
Text1.SelStart = 0
Text1.SelLength = Len(Text1)

(3) 该 Text 的 Click Event Code:

If ll_GotFocus Then
Text1.SelLength = 0
Text1.SelStart = Len(Text1)
ll_GotFocus = False
End If

注:

(1) 当然, 本方法不影响正常的 Text 选取动作, 亦即: 在 GotFocus 之后, user 可以用 Mouse 选取 Text. 这也是 ll_GotFocus
property 的作用.

(2) 本方法的一个缺点是在用 Mouse 去 GotFocus Text 时, 会呈现出 "全选, and then 才全不选" 的状况.

Chris Lee, 97/08/29, 16:20 P.M.

Follow Ups:

- Re: 关于自动选取文字方块... 小吴 19:52:06 9/01/97 (0)