ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / как в цикле перебрать несколько ComboBox
18 сообщений из 18, страница 1 из 1
как в цикле перебрать несколько ComboBox
    #32999605
SergeyS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SergeyS
Участник
Подскажите как можно в цикле перебрать несколько ComboBox с именами ComboBox1, ComboBox2, ComboBox3...
for i=1 to 10
ComboBox+i.additem "qqqqqq"
ComboBox+i.additem "wwww"
ComboBox+i.additem "eeeee"
next i
...
Рейтинг: 0 / 0
06.04.2005, 10:25:40
| Ответить | Цитировать | Написать  
как в цикле перебрать несколько ComboBox
    #33000000
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
если они на форме ,то обход коллекции userform.controls
...
Рейтинг: 0 / 0
06.04.2005, 12:02:01
| Ответить | Цитировать | Написать  
как в цикле перебрать несколько ComboBox
    #33001096
SergeyS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SergeyS
Участник
а можно примерчик посмотреть?
...
Рейтинг: 0 / 0
06.04.2005, 17:03:39
| Ответить | Цитировать | Написать  
как в цикле перебрать несколько ComboBox
    #33001375
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
For Each iControl In frmShemas.Controls
Debug.Print TypeName(iControl)
Debug.Print iControl.Name
Next iControl
...
Рейтинг: 0 / 0
06.04.2005, 18:48:13
| Ответить | Цитировать | Написать  
как в цикле перебрать несколько ComboBox
    #33012286
_Nikolay
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Nikolay
Участник
SergeySПодскажите как можно в цикле перебрать несколько ComboBox с именами ComboBox1, ComboBox2, ComboBox3...
for i=1 to 10
ComboBox+i.additem "qqqqqq"
ComboBox+i.additem "wwww"
ComboBox+i.additem "eeeee"
next i

Var comb:TComboBox;
i:integer;
begin
for i:=1 to 4 do
begin
comb:=Form1.Findcomponent('ComboBox'+IntToStr(i)) as TComboBox;
comb.AddItem('sdfdf',comb);
end;
...
Рейтинг: 0 / 0
13.04.2005, 08:39:39
| Ответить | Цитировать | Написать  
как в цикле перебрать несколько ComboBox
    #33012722
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
4_Nikolay а причем здесь дельфи/паскаль ?
...
Рейтинг: 0 / 0
13.04.2005, 11:22:17
| Ответить | Цитировать | Написать  
как в цикле перебрать несколько ComboBox
    #33014251
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
А если комбобоксы на листе, и речь идет про Эксель, то все тоже самое что писал big-duke, только коллекция называется Shapes.
...
Рейтинг: 0 / 0
13.04.2005, 17:54:51
| Ответить | Цитировать | Написать  
как в цикле перебрать несколько ComboBox
    #33081192
SergeyS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SergeyS
Участник
Привет всем!!!! Хелппппп....
ничего не получается у меня с этим перебором..
мне нужно перебрать UserForm1.TextBox10, UserForm1.TextBox12, ... UserForm1.TextBox26. Как это сделать... В excel я не силён....
...
Рейтинг: 0 / 0
24.05.2005, 08:35:02
| Ответить | Цитировать | Написать  
как в цикле перебрать несколько ComboBox
    #33081205
Пользователь2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пользователь2
Гость
Вроде уже все расписали.

Код: plaintext
1.
2.
3.
4.
    Dim ctl As Control
    
    For Each ctl In UserForm1.Controls
        MsgBox ctl.Name
    Next ctl

Что конкретно не получается?
...
Рейтинг: 0 / 0
24.05.2005, 08:46:23
| Ответить | Цитировать | Написать  
как в цикле перебрать несколько ComboBox
    #33081212
SergeyS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SergeyS
Участник
так как мне перебирать TextBoxы?
...
Рейтинг: 0 / 0
24.05.2005, 08:52:41
| Ответить | Цитировать | Написать  
как в цикле перебрать несколько ComboBox
    #33081217
SergeyS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SergeyS
Участник
мне что, нужно писать:

Dim ctl As Control

For Each ctl In UserForm1.Controls
if ctl.Name="TextBox10" then MsgBox(ля, ля, тополя.....)
if ctl.Name="TextBox12" then MsgBox(просто тополя.....)
и т.д.
Next ctl
...
Рейтинг: 0 / 0
24.05.2005, 08:55:21
| Ответить | Цитировать | Написать  
как в цикле перебрать несколько ComboBox
    #33081304
Фотография funddd
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
funddd
Участник
попробуй и сообщи о результате.


Posted via ActualForum NNTP Server 1.2
...
Рейтинг: 0 / 0
24.05.2005, 09:49:08
| Ответить | Цитировать | Написать  
как в цикле перебрать несколько ComboBox
    #33081324
SergeyS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SergeyS
Участник
Что попробывать?
не удобно же описывать действие для нужного тебе (каждого) TextBox, т.к. их может быть много.
if ctl.Name="TextBox10" then MsgBox(ля, ля, тополя.....)
if ctl.Name="TextBox12" then MsgBox(просто тополя.....)

Вопросы еще:
1) можно сделать что бы опрашивались только TextBoxы, а не все элементы?
2) почему
dim s as integer
s=22
msgbox("TextBox"+str(s))
выводит сообщение TextBox 22 (с пробелом), а не TextBox22 (без пробела)?
...
Рейтинг: 0 / 0
24.05.2005, 09:57:52
| Ответить | Цитировать | Написать  
как в цикле перебрать несколько ComboBox
    #33081605
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
Dim ctl As Control

For Each ctl In UserForm1.Controls
if typename(ctl)="TextBox" then
select case ctl.Name
case ...
end select
end if
next
тока так
...
Рейтинг: 0 / 0
24.05.2005, 11:28:38
| Ответить | Цитировать | Написать  
как в цикле перебрать несколько ComboBox
    #33081607
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
Dim s As Integer
s = 22
MsgBox ("TextBox" + CStr(s))
...
Рейтинг: 0 / 0
24.05.2005, 11:29:21
| Ответить | Цитировать | Написать  
как в цикле перебрать несколько ComboBox
    #33081611
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
это про пробел
When numbers are converted to strings, a leading space is always reserved for the sign of number. If number is positive, the returned string contains a leading space and the plus sign is implied

...
Рейтинг: 0 / 0
24.05.2005, 11:31:22
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
как в цикле перебрать несколько ComboBox
    #35167594
Sergey.franchuk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergey.franchuk
Гость
Я дико извиняюсь за свое невежество ,но все таки как в msWord возможно перебрать несколько объектов . Код

For Each ctl In Project.ThisDocument.Shapes
If TypeName(ctl) = "TextBox" Then
MsgBox ctl.Name
End If
Next
End Sub

неработает. Помогите что-то исправить чтобы заработало.
...
Рейтинг: 0 / 0
03.03.2008, 16:40:52
| Ответить | Цитировать | Написать  
как в цикле перебрать несколько ComboBox
    #35167783
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
Код: plaintext
1.
2.
3.
For Each ctl In Project.ThisDocument.Shapes
MsgBox TypeName(ctl)
Next
...
Рейтинг: 0 / 0
03.03.2008, 17:28:04
| Ответить | Цитировать | Написать  
18 сообщений из 18, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / как в цикле перебрать несколько ComboBox
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&fpage=242&tid=2181326]:
 0ms
get settings:
 8ms
get forum list:
 11ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 63ms
get topic data:
 12ms
get forum data:
 2ms
get page messages:
 53ms
get tp. blocked users:
 1ms
others: 239ms
total:  395ms
созд. / загр.: 395ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]