Как прокрутить Scroll в TextBox-е если текст не влезает в окно?

@OMEGUS · Регистрация: 30.03.2011

Студворк — интернет-сервис помощи студентам

Помогите пожалуйста....!!!

Добавляю в TextBox имена листов из Excel файла по очереди на каждую строчку вот так примерно...

Visual Basic
1
2
3
4
5
6
7
8
For с = 1 to 32
 
Set ExcSheet = ExcExcel.Worksheets(listname(c))
Text4 = Text4 + '  - ' & listname(c)
Text4 = Text4 + Chr(13) + Chr(10)
Text4.Refresh
 
Next с

Размер TextBox позволяет вместить только 11 строк...
Когда первые 11 заболнят Box то остальные просмотреть будет не возможно пока не закончится весь цикл...

Как сделать что бы при добавлении новой записи в TextBox ScrollBar сдвигался вниз на последнюю добавленную запись?

Спасибо.........

30.03.2011, 16:56

У ТекстБокса есть Свойство - Скрол или чтото похожее
Поставь его в вертикальный или горизонтальный или Оба, как надо. тока при МультиЛайн=True
Появяться полосы прокрутки. Прокручивай и смотри.
Да.. тут я код набросал побыстренькому, на твой пример,
показывает листы во всех отткрытых книгах. TXT - имя ТекстБокса.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub AAA()
On Error GoTo bay
    Dim WB As Workbook
    Dim WS As Worksheet
    For Each WB In Application.Workbooks
        For Each WS In WB.Sheets
            txt = txt & WB.Name & '![' & WS.Name & ']' & vbCrLf
        Next WS
    Next WB
    Set WB = Nothing
    Set WS = Nothing
Exit Sub
bay:
MsgBox 'Хех... ошибочка вышла'
Set WB = Nothing
Set WS = Nothing
End Sub

@Alexey Spirin · 30.03.2011, 16:58

гы) особенно меня поразила эта строка:
Text4 = Text4 + ' - ' & listname(c) )))))
Вы уж определитесь, что удобней для конкатенаци использовать - плюс или амперсанд ))
Далее... Chr(13) + Chr(10) = vbCrLf - константа такая
Text4.Refresh - необязательно

так вот если у тебя фокус стоит на Text4, то посылай ему клавишу PageDown, вот так (перед Next c): SendKeys '{PGDN}'

@OMEGUS · 30.03.2011, 17:17 **[ТС]**

Вы меня все таки не поняли....

Спасибо за советы учту..... :-) С амперсантом определюсь

Когда текст бокс наполнился записями (я к примеру привел что это могут быть листы из Экселя) то записи которые есть ниже 11-ой строки невидно пока цикл не закончится....я просто не могу прокрутить бегунок на Scroll ... а доступен он становится когда цикл закончится...

Я видел в разных программах как в таких текст боксах при их пополнение весь текст сдвигается вверх показывая сразу же каждую добавленную..... Мне необходимо так сделать...
Есть ли команды переставляющие бегунок вниз ???

Спасибо еще раз ! :-)

30.03.2011, 17:23

Visual Basic
1
2
3
Text1.SelStart = Len(Text1.Text)
Text1.SelText = 'new line of text' & vbNewLine
Text1.SelStart = Len(Text1.Text)

@OMEGUS · 30.03.2011, 17:36 **[ТС]**

to Comanche

Спасибо большое все работает!!!!

УРА ЗАРАБОТАЛО !!!!!!!

@Alexey Spirin · 30.03.2011, 17:44

Согласен, вариант, предложенный Команчем изащней, но.... почему с SendKeys не прошло?

30.03.2011, 17:48

To Alexey Spirin
Потому что :-)))
SelStart=Len(txt) самый обычный метод :-)

@OMEGUS · 30.03.2011, 17:50 **[ТС]**

Незнаю он не воспринимал SendKey нверное по той-же причине что и не давал двигать бегунок....хотя врят ли я далеко не эксперт....

В любом случае всем спасибо за помощь ! :-)

@Alexey Spirin · 31.03.2011, 00:36

2Сумрак: не спорю, сам им постоянно пользуюсь) Но иногда клинит) что поделаешь, бывает)))

2OMEGUS: а ты фокус сначала на текстбокс установил?
Text1.setfocus ?

31.03.2011, 12:57

To Alexey Spirin
Ты подскажи. я никак ни могу придумать как, на VBA сделать - набор элементов как в VB. Чтоб события от них через индекс перехватывать. Может встречал где нить и что нить?

@Alexey Spirin · 31.03.2011, 14:32

http://www.relib.com/forums/topic.asp?id=771944

31.03.2011, 21:31

Класс! Так просто! А я и не знал! Даже годик назад кому-то 'авторитетно' посоветовал в каком-то форуме, что в VBA сие вообще невозможно

)

Посыпьте мне голову пеплом...

Новые блоги и статьи Все статьи Все блоги /
Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	Контроль уникальности заводского номера - вариант №2 Maks 24.03.2026 В отличие от предыдущего варианта добавлено прерывание циклов, также добавлены новые переменные для сохранения контекста ошибки перед прерыванием цикла: Процедура ПередЗаписью(Отказ, РежимЗаписи,. . .	SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .
Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера - вариант №1 Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью в КА2. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа в КА2. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию. . .

@Alexey Spirin 2 / 2 / 1 Регистрация: 18.10.2007 Сообщений: 1,748
	30.03.2011, 16:58
	гы) особенно меня поразила эта строка: Text4 = Text4 + ' - ' & listname(c) ))))) Вы уж определитесь, что удобней для конкатенаци использовать - плюс или амперсанд )) Далее... Chr(13) + Chr(10) = vbCrLf - константа такая Text4.Refresh - необязательно так вот если у тебя фокус стоит на Text4, то посылай ему клавишу PageDown, вот так (перед Next c): SendKeys '{PGDN}' 0

@OMEGUS 1 / 1 / 0 Регистрация: 30.03.2011 Сообщений: 29
	30.03.2011, 17:17 [ТС]
	Вы меня все таки не поняли.... Спасибо за советы учту..... :-) С амперсантом определюсь Когда текст бокс наполнился записями (я к примеру привел что это могут быть листы из Экселя) то записи которые есть ниже 11-ой строки невидно пока цикл не закончится....я просто не могу прокрутить бегунок на Scroll ... а доступен он становится когда цикл закончится... Я видел в разных программах как в таких текст боксах при их пополнение весь текст сдвигается вверх показывая сразу же каждую добавленную..... Мне необходимо так сделать... Есть ли команды переставляющие бегунок вниз ??? Спасибо еще раз ! :-) 0

@OMEGUS 1 / 1 / 0 Регистрация: 30.03.2011 Сообщений: 29
	30.03.2011, 17:36 [ТС]
	to Comanche Спасибо большое все работает!!!! УРА ЗАРАБОТАЛО !!!!!!! 1

@Alexey Spirin 2 / 2 / 1 Регистрация: 18.10.2007 Сообщений: 1,748
	30.03.2011, 17:44
	Согласен, вариант, предложенный Команчем изащней, но.... почему с SendKeys не прошло? 0

Сумрак
	30.03.2011, 17:48
	To Alexey Spirin Потому что :-))) SelStart=Len(txt) самый обычный метод :-)

@OMEGUS 1 / 1 / 0 Регистрация: 30.03.2011 Сообщений: 29
	30.03.2011, 17:50 [ТС]
	Незнаю он не воспринимал SendKey нверное по той-же причине что и не давал двигать бегунок....хотя врят ли я далеко не эксперт.... В любом случае всем спасибо за помощь ! :-) 0

@Alexey Spirin 2 / 2 / 1 Регистрация: 18.10.2007 Сообщений: 1,748
	31.03.2011, 00:36
	2Сумрак: не спорю, сам им постоянно пользуюсь) Но иногда клинит) что поделаешь, бывает))) 2OMEGUS: а ты фокус сначала на текстбокс установил? Text1.setfocus ? 0

Сумрак
	31.03.2011, 12:57
	To Alexey Spirin Ты подскажи. я никак ни могу придумать как, на VBA сделать - набор элементов как в VB. Чтоб события от них через индекс перехватывать. Может встречал где нить и что нить?

@Alexey Spirin 2 / 2 / 1 Регистрация: 18.10.2007 Сообщений: 1,748
	31.03.2011, 14:32
	http://www.relib.com/forums/topic.asp?id=771944 0

Comanche
	31.03.2011, 21:31
	Класс! Так просто! А я и не знал! Даже годик назад кому-то 'авторитетно' посоветовал в каком-то форуме, что в VBA сие вообще невозможно ) Посыпьте мне голову пеплом...