# 如何选取文字方块

Posted by wyw on May 16, 1997 at 21:35:00:

觉得要达到一般软体的文字方块文字选取的目的:
1.当使用 Tab, Shift-Tab, 或捷径键切换 focus 到该文字方块时，自动选取文字方块的内容。
2.当使用滑鼠切换 focus 到文字方块时，不选取文字方块的内容。

因为要达到项目 2 使用滑鼠时, 文字方块会引发以下事件
MouseDown -> GotFocus -> MouseUp

而在项目 1 使用 TAB 时, 则只有 GotFocus 事件

所以可以在 (declare) 部份
Dim MotionMouse As Integer

Private Sub Text1_GotFocus ()
If Not MotionMouse then
Text1.SelStart = 0
Text1.SelLength = Len(Text1)
MotionMouse = False
End If
End Sub

Private Sub Text1_MouseDown ()
MotionMouse = True
End Sub

这样就可以了

Follow Ups:

- Re: 如何选取文字方块 小吴 18:23:38 5/18/97 (0)

WWWBoard 2.0a ©1997 DBasics Software Company, P.O. Box 18085, Beverly Hills, CA. 90209