text2怎么不被清空？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？

Question

text1和text2都有不同的内容在的，现在的问题是，把鼠标移到text1的时候，text2的内容被清空了。
我的想要的效果是这样的，不管光标在text2那的位置，复制text1内容的时候，被复制的那个字符就在text2的那个位置上。
以下是代码：
Private Sub Text1_DblClick()
Text2.Text = Text1.SelText
End SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Text2.Text = Text1.SelText
End SubPrivate Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text2.Text = Text1.SelText
Me.Refresh
End Sub

Answer 1

试过在MOUSEMOVE之前定义一个字符变量么？

Answer 2

这不是很明显的事情么,鼠标移动到TEXT1上触发Text1_MouseMove事件的时候Text1.SelText啥也没有选.

Answer 3

你们看懂lz问什么了，反正我没看懂。写程序的本质就是让机器懂你要它做什么，人都看不懂，VB能懂？

Answer 4

同学，你给出来的代码里面哪里都没有让text2清空的，text2当然不清空了

Answer 5

又看了一遍，你到底是要清空还是不要清空？你的代码这里
Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 
Text2.Text = Text1.SelText 
Me.Refresh 
End Sub
text1里面mousemove，text1里面并没有选中的text阿，这样的话text2自然就是清空状态。你可以加一个判断Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 
if text1.seltext<>"" then Text2.Text = Text1.SelText 
text2.Refresh 
end if
End Sub
试试看