[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Форум » Наш сайт » Visual basic » Как уместить в TextBox больше 64 kb текста? (Как уместить в TextBox больше 64 kb текста?)
Как уместить в TextBox больше 64 kb текста?
ilimДата: Среда, 09.11.2011, 22:24 | Сообщение # 1
Генералиссимус
Группа: Администраторы
Сообщений: 680
Награды: 17
Репутация: 4
Статус: Offline
Нужно поместить на форму 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


www.ilim.kz
 
Форум » Наш сайт » Visual basic » Как уместить в TextBox больше 64 kb текста? (Как уместить в TextBox больше 64 kb текста?)
Страница 1 из 11
Поиск: