Как да свържете две форми във Visual Basic

Използване на метода ShowDialog

Стъпка 1

Отворете Visual Basic и създайте нов проект на Windows Forms. Кликнете върху "Файл", след това върху "Нов проект". Когато се появи диалоговият прозорец Нов проект, изберете "Windows" от дървовидния изглед, изберете "Windows Forms Application" на типовете проекти, наименувайте проекта "FormSamples", след което кликнете върху OK. Ще се появи нов формуляр.

Стъпка 2

Преместете етикет и три бутона на новия формуляр. Кликнете върху етикета и изберете опцията "Свойства". Посочете етикета "lblTitle" и въведете "Добре дошли" в собствеността "Текст". Кликнете върху "ESCAPE", за да се върнете към дизайнера на формуляри. Повторете процеса за всеки от бутоните, въведете "Login", "View" и "Close" за всяка Text собственост на всеки бутон.

Стъпка 3

Създайте втори формуляр Кликнете върху "Проект" и след това върху "Създаване на нов формат на Windows". Напишете формуляра "LoginForm". Преместете етикет, текстово поле и два бутона във формуляра. Променете текстовата характеристика на етикета на "Name:", името на текстовото поле "txtName" и етикета на бутона "Login" и "Cancel".

Щракнете двукратно върху бутона Login, за да отворите прозореца с кода и да добавите следния код:

DialogResult = DialogResult.OK

Кликнете върху Преглед, след което върху Дизайн, за да се върнете в изгледа за дизайн на формуляра. Кликнете два пъти върху бутона Отказ и добавете следния код:

DialogResult = DialogResult.Cancel

Стъпка 4

Върнете се в първия формуляр и кликнете върху прозореца "Form1" на софтуера Solution Explorer. Щракнете двукратно върху бутона Login и добавете следния код:

Dim frm като нов LoginForm Ако frm.ShowDialog = DialogResult.OK Тогава lblTitle.Text = "Добре дошъл & frm.txtName.Text End Ако frm.Close ()

Този код създава ново копие на формуляра за вход, след което използвайте метода ShowDialog, за да отворите формуляра. Ако бутонът за влизане е натиснат, ShowDialog връща DialogResult.OK и кодът копира името на текстовото поле в съобщението за посрещане. Ако кликнете върху "Отказ", този код се игнорира. Методът "Затваряне" затваря диалоговия формуляр.

Използване на метода на показване

Стъпка 1

Създайте друг формуляр, наречен "ViewForm". Преместете етикет и бутон от кутията с инструменти във формуляра. Променете свойството Name на маркера "lblContent" и променете свойството Text на бутона "Close".

Стъпка 2

Кликнете два пъти върху бутона "Затвори" и добавете следния код:

Затваряне ()

Стъпка 3

Върнете се към дизайнера на формуляр Form1, след което кликнете два пъти върху бутона "Преглед". Добавете следния код:

Размерът на файла е като нов формат на файла frm.lblContent.Text = lblTitle.Text & ". frm.Show ()

Този код създава ново копие на ViewForm. След това зададете текстовата собственост на маркера и извикате метода на показване на формуляра. Обърнете внимание, че няма метод за затваряне и методът за показване не връща стойност.