Добрый вечер ребята! Дорабатываю свою прогу... застрял на прокрутке текста в RichTextBox-е....дело в том что все мигает и тресется...просто ужасно....а нужно чтобы текст прокручивался плавно с определенной скоростью, которую мона было бы регулировать...прошу помочь кто сталкивался с этой задачей....Вобщем программа такая....Обычный RichTextBox который лежит на Form1....она должна плавно прокрутить текст, котрый загружается при запуске проги.....сначала я сделал кнопку принажатии на которую начиналась прокрутка.....когда прокрутка текста удалась (но все мигает и нет плавной прокрутки) тогда попытался сделать чтобы текст прокручивался атоматом сразу же после загрузки формы....не получилось.....происходит вот что....прога зависает на несколько секунд но когда появляется на экране там уже все прокручено.....вот застрял на этом ....ничего немогу придумать....помогите пожалуста!!!!привожу пример кода:
| Код |
Private Text()
Private Const LineNum = 31
Private Sub Command1_Click()
Dim i As Integer
Dim Temp
For m = 1 To VScroll1.Max
VScroll1.Value = m
For u = 0 To 5000000
Next u
Text1.Refresh
Next m
End Sub
Private Sub Form_Load()
Dim i
Open "D:\file.txt" For Input As #1 Len = 1024
Do Until EOF(1)
i = i + 1
ReDim Preserve Text(i + LineNum)
Line Input #1, Text(i)
Loop
Close #1
With VScroll1
.Min = 1
.Max = i
.SmallChange = 1
.LargeChange = i \ 10
End With
Command1_Click
End Sub
Private Sub VScroll1_Change()
Dim i As Integer
Dim Temp
For i = VScroll1.Value To VScroll1.Value + LineNum
Temp = Temp + Text(i) + vbCrLf
Next i
Text1.Text = Temp
End Sub
|
|