VPF::Добавить CheckBox на форму динамически

runaway

Дата 18.1.2005, 17:05 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 30.12.2004

Репутация: нет
Всего: нет

Задача следующая:
Запрос " select nm from user where cd = 1 " возвращает
"
User1
User2
User3
........
"
, из него берем
"Count = EmpDynaset.RecordCount" - получаем количество записей
По этому количеству на форме создать CheckBox
и им присвоить имена из запроса
CheckBox1.text = User1
CheckBox2.text = User2
CheckBox3.text = User3
......

PS "После решения этой проблемы будет еще!!!" smile

Akina

Дата 18.1.2005, 18:29 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 26
Всего: 454

Добавь в БД кнопочную форму (мастером) и посмотри ее код.

А вообще (draft code)

Код


Dim XXX() as CheckBox
...
xCount=EmpDynaset.RecordCount-1
ReDim XXX(0 to xCount)
For i=0 to xCount
   Set XXX(i) = New CheckBox
   XXX(i).Top = i*100+20
   XXX(i).Visible=True
   XXX(i).Value=False
   ...
Next i
...
For i=0 to xCount
   Set XXX(i) = Nothing
Next i
...

При этом на форме должен быть по крайней мере один CheckBox - пусть даже невидимый и неиспользуемый.

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

Staruha

Дата 20.1.2005, 22:40 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: 13
Всего: 27

Цитата

PS "После решения этой проблемы будет еще!!!"

- раз нет ,значит проблема не решена?
Я пытавлась лонять,но тщетно.Если это Access ? тогда переедем туда.Там помогут. smile

--------------------

Возмездие настигнет

runaway

Дата 21.1.2005, 08:45 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 30.12.2004

Репутация: нет
Всего: нет

Спасибо, Добавить получилось!

Код следующий (может еще кому поможет smile

Код



Sub AddCheck(ByVal TopCh As Integer, ByVal Name As String, ByVal Text As String)
    Dim myCon As Control
    Set myCon = UserForm.Controls.Add("Forms.CheckBox.1", Name, True)
    With myCon
        .Left = 6
        .Top = TopCh
        .Width = 108
        .Height = 18
        .Caption = Text
    End With
End Sub

Не, все это в Excele... а БД Oracle.

Ща будет новая проблема...

Вынесу ее в новую тему...
Добавлено @ 08:52
И еще вопросик по этой же теме:
Все класно, все работает, но как убрать с формы динамически добавленные Control'ы.

Это сообщение отредактировал(а) runaway - 21.1.2005, 08:55

~FoX~

Дата 26.1.2005, 11:52 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 1
Всего: 68

А почитать?

Цитата(Akina @ 18.1.2005, 18:29)

For i=0 to xCount
Set XXX(i) = Nothing
Next i

--------------------

…множественность никогда не следует полагать без необходимости…

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »