请问，VB6中哪一个函数能够实现如下功能：当鼠标指向一个文本串时，这个文本串能够自动读入内存，且能够赋给一个字符串变量

[yanghao1]

如题

[脆皮大雪糕]

窗体上放两个text控件，一个按钮 然后拷贝下面的代码
Option Explicit
Dim StrTest As String

Private Sub Command1_Click()
Debug.Print StrTest
End Sub

Private Sub Form_Load()
Text1.Text = "test string 1"
Text2.Text = "test string 2"
End Sub

Private Sub Text2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
StrTest = Text2.Text
End Sub
Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
StrTest = Text1.Text
End Sub

[hanhuole]

什么样的文本串？

[RyuOut]

有个API叫COPYMEMORY 的好像可以

[northwolves]

楼主想实现屏幕取词吧，网上搜搜，源代码应该很多的。

[yanghao1]

To: chewinggum(口香糖·向星星前进)

我说的是如何实现在屏幕上通过鼠标自动拾取文本串，我想集中利用这些文本串，处理这些文本串。

[aizemishen]

首先用capturecursor API函数捕获鼠标
然后取得窗口句柄和鼠标的客户端坐标 用哪一个不记得了
最后用Getwindowtext API函数读取句柄标题即可
等等，让我回去翻翻书！