Jak propojit dvě formy v jazyce Visual Basic

Použití metody ShowDialog

Krok 1

Otevřete program Visual Basic a vytvořte nový projekt Windows Forms. Klikněte na "Soubor" a potom na "Nový projekt". Když se objeví dialogové okno Nový projekt, v stromovém zobrazení vyberte "Windows", vyberte "Aplikace Windows Forms" typů projektů, pojmenujte projekt "FormSamples" a klepněte na tlačítko OK. Objeví se nový formulář.

Krok 2

Přetáhněte štítek a tři tlačítka na nový formulář. Klikněte na štítek a zvolte možnost "Vlastnosti". Název štítku "lblTitle" a typ "Vítejte" ve vlastnost Text. Klepnutím na tlačítko "ESCAPE" se vrátíte k návrháři formulářů. Pro každý z tlačítek zopakujte postup, zadáním "Přihlašovací", "Zobrazit" a "Zavřít" pro každou vlastnost Text každého tlačítka.

Krok 3

Vytvořte druhý formulář Klikněte na "Projekt" a potom na "Vytvořit nový formulář Windows". Název formuláře "LoginForm". Přetáhněte štítek, textové pole a dvě tlačítka na formuláři. Změňte vlastnost Text štítku na "Jméno:", název textového pole "txtName" a štítek tlačítka "Přihlášení" a "Zrušit".

Poklepáním na tlačítko Přihlášení otevřete okno kódu a přidejte následující kód:

DialogResult = DialogResult.OK

Klepněte na Zobrazit a potom na Návrh se vrátíte do návrhového zobrazení formuláře. Poklepejte na tlačítko Zrušit a přidejte následující kód:

DialogResult = DialogResult.Cancel

Krok 4

Vraťte se do prvního formuláře a klikněte na okno "Form1" aplikace Solution Explorer. Poklepejte na tlačítko Přihlásit a přidejte následující kód:

Dim frm jako nový přihlašovací formulář Pokud frm.ShowDialog = DialogResult.OK Pak lblTitle.Text = "Vítejte" & frm.txtName.Text End Pokud frm.Close ()

Tento kód vytvoří novou instanci přihlašovacího formuláře a potom pomocí metody ShowDialog otevřete formulář. Pokud klepnete na tlačítko pro přihlášení, ShowDialog vrací DialogResult.OK a kód zkopíruje název textového pole v uvítací zprávě. Pokud kliknete na tlačítko "Zrušit", tento kód bude ignorován. Metoda Zavřít zavře dialogový formulář.

Použití metody Zobrazit

Krok 1

Vytvořte jiný formulář s názvem "ViewForm". Přetáhněte štítek a tlačítko z panelu nástrojů do formuláře. Změňte vlastnost název značky "lblContent" a změňte vlastnost Text tlačítka "Zavřít".

Krok 2

Dvakrát klikněte na tlačítko "Zavřít" a přidejte následující kód:

Zavřít ()

Krok 3

Vraťte se zpět na návrháře formuláře Form1, poté poklepejte na tlačítko "Zobrazit". Přidejte následující kód:

Dim frm Jako nový formulář ViewForm frm.lblContent.Text = lblTitle.Text & ". frm.Show ()

Tento kód vytvoří novou instanci ViewForm. Dále nastavíte vlastnost textu značky a zavoláte metodu Zobrazit formuláře. Všimněte si, že neexistuje žádná metoda Zavřít a metoda Zobrazit nevrátí hodnotu.