- Код: Выделить всё
List1.ListIndex = 32768
Бейсик выводит ошибку 6(переполнение). Помогите решить пробелему.
Проблема со списком (6 - переполнение)
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Сообщений: 10
• Страница 1 из 1
- neic
- Жираф
- Сообщения: 492
- Зарегистрирован: 13.02.2005 (Вс) 23:44
- Откуда: Сланцы
Проблема со списком (6 - переполнение)
neic » 21.01.2006 (Сб) 14:13
Народ у меня проблема со списком когда срабатывает такая строчка:
Бейсик выводит ошибку 6(переполнение). Помогите решить пробелему.
Бейсик выводит ошибку 6(переполнение). Помогите решить пробелему.
- GSerg
- Шаман
- Сообщения: 14286
- Зарегистрирован: 14.12.2002 (Сб) 5:25
- Откуда: Магадан
GSerg » 21.01.2006 (Сб) 14:15
on error goto errh
List1.ListIndex = 32768
on error goto 0
exit sub
errh:
msgbox "Ээээ.... ну... в общем, ничё не было..."
end sub
List1.ListIndex = 32768
on error goto 0
exit sub
errh:
msgbox "Ээээ.... ну... в общем, ничё не было..."
end sub
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас
- GSerg
- Шаман
- Сообщения: 14286
- Зарегистрирован: 14.12.2002 (Сб) 5:25
- Откуда: Магадан
GSerg » 21.01.2006 (Сб) 18:42
А чё ещё? Изменить для тебя границу signed short? 
Ты мне скажи сначала, кому может реально потребоваться изучить 32768 записей в листбоксе и как звучит его полный диагноз...
Ты мне скажи сначала, кому может реально потребоваться изучить 32768 записей в листбоксе и как звучит его полный диагноз...
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас
- keks-n
- Доктор VB наук
-
- Сообщения: 2509
- Зарегистрирован: 19.09.2005 (Пн) 17:17
- Откуда: г. Москва
keks-n » 21.01.2006 (Сб) 18:56
neic
Постранично выводи.
GSerg
Там может быть в листбокс названия разделов Хэлпа, или он указатель по словам делает (а листбокс затем, чтобы чел в текстбоксе вводил слово, а ему на выбор всё, что с этого сочетания букв и цифр начинается выводилось), мало ли.
Постранично выводи.
GSerg
Там может быть в листбокс названия разделов Хэлпа, или он указатель по словам делает (а листбокс затем, чтобы чел в текстбоксе вводил слово, а ему на выбор всё, что с этого сочетания букв и цифр начинается выводилось), мало ли.
- neic
- Жираф
- Сообщения: 492
- Зарегистрирован: 13.02.2005 (Вс) 23:44
- Откуда: Сланцы
neic » 21.01.2006 (Сб) 20:02
Корче никак, в моём случае.
Ладно зайдём с другой стороны. Как сделать:
Мы щёлкаем на текстовом поле на определённую строчку и при щелчке выбераеться вся строчка (например как в бейсике если щёлкнуть левее начала строчки).
Ладно зайдём с другой стороны. Как сделать:
Мы щёлкаем на текстовом поле на определённую строчку и при щелчке выбераеться вся строчка (например как в бейсике если щёлкнуть левее начала строчки).
- BV
- Thinker
-
- Сообщения: 3987
- Зарегистрирован: 12.09.2004 (Вс) 0:55
- Откуда: Молдавия, г. Кишинёв
BV » 21.01.2006 (Сб) 22:27
а) перейти на RichTextBox
б) ...лучше а.
б) ...лучше а.
const char *out = "|*0>78-,+<|"; size_t cc = char_traits<char>::length(out);
for (size_t i=0;i<cc;i++){cout<<static_cast<char>((out[i]^89));}cout<<endl;
for (size_t i=0;i<cc;i++){cout<<static_cast<char>((out[i]^89));}cout<<endl;
- Хакер
- Телепат
-
- Сообщения: 16478
- Зарегистрирован: 13.11.2005 (Вс) 2:43
- Откуда: Казахстан, Петропавловск
Хакер » 21.01.2006 (Сб) 23:16
Можно так если вырублено "Перенос по словам" для 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
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.
—That's right! We decapitate them.
Сообщений: 10
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: AhrefsBot и гости: 190