Проблема со списком (6 - переполнение)

[neic]

Народ у меня проблема со списком когда срабатывает такая строчка:

Код: Выделить всё

List1.ListIndex = 32768

Бейсик выводит ошибку 6(переполнение). Помогите решить пробелему.

[GSerg]

on error goto errh
List1.ListIndex = 32768
on error goto 0
exit sub
errh:
msgbox "Ээээ.... ну... в общем, ничё не было..."
end sub

[neic]

Весело, но нето .

[GSerg]

А чё ещё? Изменить для тебя границу signed short?

Ты мне скажи сначала, кому может реально потребоваться изучить 32768 записей в листбоксе и как звучит его полный диагноз...

[keks-n]

neic
Постранично выводи.
GSerg
Там может быть в листбокс названия разделов Хэлпа, или он указатель по словам делает (а листбокс затем, чтобы чел в текстбоксе вводил слово, а ему на выбор всё, что с этого сочетания букв и цифр начинается выводилось), мало ли.

[GSerg]

А ты думаешь, это так делается?
http://bbs.vbstreets.ru/viewtopic.php?p=145642#145642

[neic]

Корче никак, в моём случае.
Ладно зайдём с другой стороны. Как сделать:
Мы щёлкаем на текстовом поле на определённую строчку и при щелчке выбераеться вся строчка (например как в бейсике если щёлкнуть левее начала строчки).

[BV]

а) перейти на RichTextBox
б) ...лучше а.

[Хакер]

Можно так если вырублено "Перенос по словам" для TextBox'a

Код: Выделить всё

Public Sub Text1_Click()
'Определянм номер строчки в которую мы попали.
On Error Resume Next
'Ищем номер символа = начало строчки.
For i = 1 To Text1.SelStart
If Mid$(Text1.Text, i, 1) = vbCr Then
LCounter = LCounter + 1
LineBeginPos = i + 1 'У нас ещё есть Chr(10)
End If
Next i
'Ищем номер символа = конец строчки
For i = Text1.SelStart To Len(Text1.Text)
If Mid$(Text1.Text, i, 1) = vbCr Then EndPos = i - 1: Exit For
Next
'Если усер выбрал последнюю строчку
If EndPos = 0 Then EndPos = Len(Text1.Text)
'И ставим выделение как-надо
Text1.SelStart = LineBeginPos
Text1.SelLength = EndPos - LineBeginPos
End Sub

[neic]

а) перейти на RichTextBox
б) ...лучше а.

Какой компонент?