Трусов M. А. Visual Basic .NЕТ Практическое руководство для начинающего программиста стр.43
Трусов M. А. Visual Basic .NЕТ Практическое руководство для начинающего программиста стр.43 Трусов M. А. Visual Basic .NЕТ Практическое руководство для начинающего программиста

Создание кода в модуле

В приведенном ниже примере составляется код для открытия формы. Предположим, мы работаем над проектом, в котором имеется несколько форм. Первая форма создается автоматически, когда открывается новый проект, следующие -использованием команды Project > Add Windows Form. Все эти формы отражаются в окне редактора. Но когда проект будет запущен, на экране появится только одна: Forml. Как же увидеть остальные? Для этого составим небольшую программу. Разместите на форме Forml кнопку Button, дважды щелкните ее и в созданной редактором пустой процедуре обработки событий Button_Click запишите следующий код:

Dim a As Form а = New Form2 а.Show

Запустите программу и щелкните по кнопке Button. Откроется форма с именем Form2 (если вы не переименовали ее). Теперь представьте, что в проекте много форм, скажем, десять. Чтобы увидеть из каждой формы девять остальных, придется поместить на нее девять кнопок и девять раз написать приведенный выше код. Есть более простое решение. Посмотрим, как это будет выглядеть в файле модуля. Сначала объявите глобальную переменную (впрочем, глобальную не обязательно): Public f г As Form и запишите ее в начале кодов формы. Затем откройте модуль, выполнив команду Project > Add Module, и между строками Module ModulelnEnd Module поместите коды общей процедуры:

Public sub form () Dim Fr As Form Fr = New Form2 Fr.Show End Sub

После этого в файле формы создайте вызывающий код для процедуры Button_Click: form () или Call form ().

Здесь form - имя процедуры, Fr - имя переменной, оператор New Form2 указывает на необходимость создания нового объекта, Fr. Show показывает данный объект. Этот код также неудобен. Дело в том, что придется создавать отдельный код для каждой из форм - Form2, Form3 и т. д. Поэтому поступим

Трусов M. А. Visual Basic .NЕТ Практическое руководство для начинающего программиста

ГЛАВА 9 Т Общие процедуры. Аргументы. Функции

иначе. Следующий код, также созданный в модуле, намного проще:

Public Sub form (ByVal Fr As Form) Fr.Show End Sub

В вызывающем коде необходимо указать значение переменной в качестве аргумента:


⇐ Предыдущая Следующая ⇒
 
 
 
Powered by Exponenta