Главная страницаОбратная связьКарта сайта

Как уместить в TextBox больше 64 kb текста?


'Нужно поместить на форму 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

txtMain.Text = Temp
End Sub

Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация программирование на Visual Basic - "Как уместить в TextBox больше 64 kb текста?", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2022 Дискета.info