'Нужно поместить на форму TextBox, назвать его txtMain, 'установить его свойство Multiline как True, 'а свойство ScroolBars, как 1-Horizontal. 'А также рядом с TextBox'ом нарисовать вертикальный ScroolBar с именем vsbText.
Private Text() Private Const LineNum = 15
Private Sub Form_Load() Dim i
Open "C:\Alexey\МОИ ПРОГРАММЫ\Winapi\win32api.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 vsbText .Min = 1 .Max = i .SmallChange = 1 .LargeChange = i \ 10 End With
End Sub
Private Sub vsbText_Change() Dim i As Integer Dim Temp
For i = vsbText.Value To vsbText.Value + LineNum Temp = Temp + Text(i) + vbCrLf Next i
Если Вас заинтересовала или понравилась информация программирование на Visual Basic - "Как уместить в TextBox больше 64 kb текста?", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!