Помогите пожалуйста решить проблему!

[Craf]

Всем доброго времени суток. У меня такой вопрос. Вот например дана форма, на ней 2 Textbox'a, 4 CommandButton'a (например) мне нужно чтобы при нажатии на кнопку эти 2 Текстбокса и 4 кнопки стирались, т.е при нажатии это исчезало и открылся как бы чистый лист (только не вторая форма, а всё таже в которые и были объекты) для того чтобы поместить туда другие элементы. подскажите пожалуйста как это сдлеать ?!

P.S - Заранее спасибо!!

[vvs_adm]

Control.Visible=false
Лучше на форму кинь два фрейма и делай Visible=true \ false своим фреймам. Если фрейм невиден - невидны и все контролы внутри него. Фрейму можешь сделать BorderStyle = 0 (None), что бы границы самого фрейма небыло видно. Ну а так взависимости от задачи, мож тебе проще поштучно с контролами работать, а можно в имени контролов первую (вторую, третью ... ) букву делать определенной, тогда, к примеру, пробегаясь по коллекции контролов на форме взависимости от первой буквы имени делать видим\невидим. Короче - тьма вариантов ...

[SHURUP]

Согласен насчет фреймов. Именно так делаются большинство Wizard-ов. А если без вреймов - то, как по мне, удобно юзать свойство "tag", которое есть у всех элементов.
Пример: при нажатии на кнопку Command1 видимыми остаются только те элементы, которые в tag содержат "grup1"

Код: Выделить всё

Private Sub Command1_Click()
Dim cntrl As Control
For Each cntrl In Me.Controls
    cntrl.Visible = (cntrl.Tag = "grup1")
   'cntrl.Visible = false ' елси использовать эту строку вместо предыдущей - все элементы становятся невидимыми.
Next
End Sub

[Craf]

С этим я разобрался, НО при вот таком коде:

Код: Выделить всё

fraSystem.Visible = False

Убирается только фрейм, а контролы всё отсаются... Как сделать чтобы и они убирались ?! И вот еще, мне нужно чтобы убрался фрейм (с элементами) и появился новый с другими уже элементами, как это сделать ?!

P.S - спасибо...

[hCORe]

Наверное, следует вырезать все контролы (Ctrl+X), а затем вставить их во фрейм (выделить фрейм и нажать Ctrl+V)...

[HotKitten]

[quote="Craf"]Всем доброго времени суток. У меня такой вопрос. Вот например дана форма, на ней 2 Textbox'a, 4 CommandButton'a (например) мне нужно чтобы при нажатии на кнопку эти 2 Текстбокса и 4 кнопки стирались, т.е при нажатии это исчезало и открылся как бы чистый лист [quote]

Код: Выделить всё


Private Sub Command1_Click()
text1.visible = false
text2.visible = false
Command2.visible = false
Command3.visible = false
Command3.visible = false
end sub


или я что-то не понял??

[Craf]

Правильно! НО Исчезать, они то исчезают, а как мне сделать чтобы сразу же появлялся другой фрейм ?! т.е нажимаю на кнопку - 1-ый фрейм стерается, открывается второй со своими контролами ?!

[vvs_adm]

Ну ты дал!!! Ну как исчезают, так и появляются...
Изначально создай второй фрейм с контролами и в свойствах фрейма еще при разработке укажи Visible=false . Ну а уже в проге опосля строки fraSystem.Visible = False пиши ВторойФрейм.Visible=true .

[Craf]

Большое всем спасибо, Разобрался...