Question

VB如何实现两个文本框的滚动条同时滚动？

两个文本框的内容行数相同，需要在滚动文本框1的滚动条时，文本框2的滚动条也随之滚动。

Answer 1

有难度，如果你把分数提高到200分甚至更高的话，我可以把代码给你写出来。

但你才给30分，我就告诉你思路吧，有一个API是SendMessage，这个函数可以控制一切窗口或控件的消息，在你点TEXT1的同时，把这个消息也发给TEXE2就是了，那样就可以同步滚动了。

说来简单，要写代码还是有难度的，复杂难懂。喊价200，不高吧！

Answer 2

'用SelStart
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim i As Integer

For i = 1 To Len(Text2)
Sleep 100
Text2.SelStart = i
Next i

'建议放弃Text控件,使用List控件

Answer 3

private text2_change()
text2.text=text1.text
end sub