Как прокрутить 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 сие вообще невозможно

)

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

Новые блоги и статьи Все статьи Все блоги /
Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .
Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .

@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 сие вообще невозможно ) Посыпьте мне голову пеплом...

Опции темы