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

2024-11-26 05:19:57

推荐回答（3个）

回答1：

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

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

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

回答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控件

回答3：

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