ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Динамический ComboBox
8 сообщений из 8, страница 1 из 1
Динамический ComboBox
    #35916268
alexandr_vo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alexandr_vo
Гость
Здравствуйте!
Помогите решить следующую проблему:
Есть динамически созданная форма, на ней так же созданный ComboBox.
После заполнения данными ComboBox-а в его списке ничего не отображается, хотя программно достучаться до значений можно.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
    Dim TempForm As Object    'VBComponent
    Dim NewCombo As Msforms.ComboBox

    Set TempForm = ThisWorkbook.VBProject. _
                   VBComponents.Add( 3 )    'vbext_ct_MSForm

    Set NewCombo = TempForm.Designer.Controls _
                        .Add("forms.ComboBox.1")

    vaList = PrinterFind
    
    ' заполнение
    For i =  0  To UBound(vaList)
        NewCombo.AddItem vaList(i)
    Next
    
    ' Проверка наличия списка
    For i =  0  To NewCombo.ListCount -  1 
       MsgBox NewCombo.List(i)
    Next

В результате MsgBox отображает элементы (названия принтеров), а визуально ComboBox пустой.
Спасибо.
...
Рейтинг: 0 / 0
07.04.2009, 10:47
| Ответить | Цитировать | Написать  
Динамический ComboBox
    #35916752
Фотография HandKot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
HandKot
Участник
так надо добавлять на форму, а не на дизайн формы

замените
Код: plaintext
Set NewCombo = TempForm.Designer.Controls.Add("forms.ComboBox.1")
на
Код: plaintext
Set NewCombo = TempForm.Controls.Add("forms.ComboBox.1", Combobox1)

I Have Nine Lives You Have One Only
THINK!
...
Рейтинг: 0 / 0
07.04.2009, 12:50
| Ответить | Цитировать | Написать  
Динамический ComboBox
    #35916887
alexandr_vo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alexandr_vo
Гость
HandKotтак надо добавлять на форму, а не на дизайн формы

Так как форма создана следующим образом:
Код: plaintext
1.
2.
3.
    
Set TempForm = ThisWorkbook.VBProject. _
                   VBComponents.Add( 3 )    'vbext_ct_MSForm
то добаление идет именно на дизайн. TempForm не поддерживает напрямую метод control

Как я уже писал, форма и сам элемент создаются, ComboBox заполняется данными, что видно, если выполнить код
Код: plaintext
1.
2.
3.
4.
    ' Проверка наличия списка
    For i =  0  To NewCombo.ListCount -  1 
       MsgBox NewCombo.List(i)
    Next
Но на экране комбо пустой, нет ни одного элемента в списке.
...
Рейтинг: 0 / 0
07.04.2009, 13:22
| Ответить | Цитировать | Написать  
Динамический ComboBox
    #35917111
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkodor
Участник
alexandr_vo,
Данные в combo, либо загружаются при вызове формы (Private Sub UserForm_Initialize())
либо в RowSource указывается источник


Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
    Dim TempForm As Object 'VBComponent
    Dim NewCombo As Msforms.ComboBox
    Dim PrinterFind( 3 )
    
    Set TempForm = ThisWorkbook.VBProject. _
                   VBComponents.Add( 3 )    'vbext_ct_MSForm

    Set NewCombo = TempForm.Designer.Controls _
                        .Add("forms.ComboBox.1")

    PrinterFind( 0 ) = "szdgf"
    PrinterFind( 1 ) = "asfd"
    PrinterFind( 2 ) = "agt"
    vaList = PrinterFind
    For i =  0  To UBound(vaList)
        ThisWorkbook.Worksheets( 1 ).Columns( 1 ).Cells(i +  1 ) = vaList(i)
    Next
    With ThisWorkbook.Worksheets( 1 )
'        Debug.Print .Name & "!" & .Range(.Cells(1), .Columns(1).Cells(i)).Address(False, False)
        NewCombo.RowSource = .Name & "!" & .Range(.Cells( 1 ), .Columns( 1 ).Cells(i)).Address(False, False)
    End With
...
Рейтинг: 0 / 0
07.04.2009, 14:18
| Ответить | Цитировать | Написать  
Динамический ComboBox
    #35918244
alexandr_vo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alexandr_vo
Гость
vkodor,

Спасибо, как-то уж сильно наворочено, но раоботает с некоторыми поправками.
Может кто еще что-то подскажет? Как обойтись без книги?
...
Рейтинг: 0 / 0
07.04.2009, 19:09
| Ответить | Цитировать | Написать  
Динамический ComboBox
    #35918444
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
alexandr_vo,

А зачем вы создаете форму и комбобокс динамически? Чем не устраивает создание их в режиме дизайна?
...
Рейтинг: 0 / 0
07.04.2009, 21:26
| Ответить | Цитировать | Написать  
Динамический ComboBox
    #35918504
alexandr_vo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alexandr_vo
Гость
VladConn,

Есть задача: Печать

В XML файле есть описание, что чего и сколько печатать, как печатать и т.п.
Согласно описания создаю форму и элементы управления

А так же вычисляю установленные на клиенте принтеры и предлагаю на форме выбор.

Вот такая задача.

Решил вышепредложенным способом. Сделал, чтобы все происходило незаметно для клиента.
Работает, но жаль, что не вышло проще.
...
Рейтинг: 0 / 0
07.04.2009, 22:10
| Ответить | Цитировать | Написать  
Динамический ComboBox
    #35921631
Фотография HandKot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
HandKot
Участник
так создайте пустую форму
и на неё бросайте элементы управления по необходимости
если же вид формы постоянен с небольшими изменнеиями, то можно создать форму со всеми элементами и просто скрывать или отображать их


I Have Nine Lives You Have One Only
THINK!
...
Рейтинг: 0 / 0
09.04.2009, 08:54
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Динамический ComboBox
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=35916752&tid=2161161]:
 0ms
get settings:
 6ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 52ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 34ms
get tp. blocked users:
 1ms
others: 195ms
total:  312ms
созд. / загр.: 312ms
x
x
Закрыть


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