Программно добавить на форму компоненту.

[Randy.Mandy]

Доброго времени суток!
Подскажите, пожалуйста, как программно добавить компоненту на форму UserForm1 при выборе определенного значения из ComboBox1 ?
то есть, например:

Private Sub ComboBox1_Change()
If ComboBox1.Text = "Дата" Then
TextBox1.Text = "01.01.2012"
End If
End Sub

Вопрос в том, как добавить TextBox1 до того, как в него будут внесены данные? Я имею в виду ситуацию.когда при выборе значения "Дата" в Комбобоксе , программно на форму добавляется компонента TextBox1 и в неё, предположим, тут же заносится значение "01.01.2012".

Спасибо!

[doober]

Private Sub Create_TextBox()
    Set ITextBox = Me.Controls.Add( _
    "Forms.TextBox.1", "TextBox1", True)
    With ITextBox
         .MaxLength = 5
         .BackColor = vbYellow
         .ForeColor = vbRed
         .Width = 200
         .Height = 30
         .Text = "Вера не позволяет в поиск по форуму забить слово Controls.Add  ?"
         .WordWrap = True
         .TextAlign = fmTextAlignCenter
         .MultiLine = True
         .Left = 40
         .Top = 40
         .Font.Bold = True
    End With
End Sub

[Randy.Mandy]

doober, Спасибо =D
.Text = "Вера не позволяет в поиск по форуму забить слово Controls.Add ?"
Простите, а если эту компоненту необходимо расположить на MultiPage1, на Page1, то как указать,что это должно быть на Мультипэйдже?

Так пробовал,-не получилось.

Set ITextBox = Me.Controls.Add("MultiPage1.Page1.TextBox.1", "TextBox1", True)

[IgorGO]

а так:
me.multipage1.pages(0).Controls.Add (....

[Randy.Mandy]

Так точно !!))
Работает!
Спасибо, прошу прощения за то,что сразу не написал,что надо было на мультипейдж кинуть компоненту!)

[doober]

Вера не позволяет в поиск по форуму забить слово Controls.Add

видимо не позволяет
Вот и ответ на ваш вопрос

[Randy.Mandy]

ой, извините,по ходу работы над программой, у меня еще один вопрос возник
Как проверить наличие компоненты, например, с именем TextBox4 на форме?
*и для индикации, если есть эта компонента, спрятать ее:

Set_windows.TextBox4.Visible = False

[doober]

Не сторонник я динамических контролов.
Зачем его создавать,а потом прятать.не проще его кинуть на форму,потом играться с видимостью

Можно в лоб без перебора

 On error resume next
Set_windows.TextBox4.Visible = False

[Randy.Mandy]

согласен с Вами,но дело в том,что тут роль играет ЧекБокс.
Если пользватель выбирает одно значение в чекбоксе,то добавляется одна компонента, если другое-то две компоненты: одна на место той,которая былап добавлена до этого в то же место, другая-, несколько ниже. И если пользователь несколько раз переключает чек бокс, то нужно затереть ту компоненту ,что была ниже. Вот в чем дело. Ибо если она не была добавлена, дебаг сообщит о том,что такая компонента попросту не существует ))

[doober]

Попробуйте понажимать на Чекс