Доброго времени суток всем
И так преступим…
Создаем проект … по умолчанию там одна форма добавляем вторую (в меню проекта счелкаем правой кнопкой -> Add -> Form выбираем во вкладке “New” Form).
И так у нас теперь 2 формы
Вариант 1-ый поиграемся со свойствами форм, все свойства объектов можно менять тут
Что бы не париться в дальнейшем свойства объектов я буду писать так:
Объект = свойства
И так продолжим… для Form2 свойства бут такими
Код:
Visible = False
На Form1 рисуем 2 кнопки «Показать форму», «Спрятать форму»
Для 1-ой кнопкм
Caption = Показать форму
А для 2-ой соответственно
Caption = Спрятать форму
Теперь пишем код для VB6:
Для кнопки1 (Command1)
Код:
Private Sub Command1_Click()
Form2.Visible = True
End Sub
Для кнопки2 (Command2)
Private Sub Command2_Click()
Form2.Visible = False
End Sub
Т.е. по нажатию кнопок для Form2 задаются свойства формы – видима/невидима.
Запускаем на исполнение… вот всё работает
Теперь пишем код для VB2008 – но тут как ни странно все так же как и для VB6.
Вариант ТУ (2) Будем использовать команды для открытия/закрытия формы это команды SHOW/UNLOAD
Структура команд для VB6: ИмяФормы.Show – что бы открыть форму и Unload ИмяФормы – чтобы ее закрыть.
Структура команд для VB2008: ИмяФормы.Show – что бы открыть форму и ИмяФормы.Close – чтобы ее закрыть.
Коды для кнопок для VB6:
Для кнопки1 (Command1)
Код:
Private Sub Command1_Click()
Form2.Show
End Sub
Для кнопки2 (Command2)
Код:
Private Sub Command2_Click()
Unload Form2
End Sub
Коды для кнопок для VB2008:
Для кнопки1
Код:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Form2.Show()
End Sub
Для кнопки2
Код:
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Form2.Close()
End Sub
Все запускаем на исполнение… и вуаля все работает ))) если конечно ты все сделал правильно.
Вход
FAQ
Поиск
