Cum se conectează două forme în Visual Basic

Utilizând metoda ShowDialog

Pasul 1

Deschideți Visual Basic și creați un nou proiect Windows Forms. Faceți clic pe "Fișier", apoi pe "Proiect nou". Când apare caseta de dialog New Project, selectați "Windows" din vizualizarea arborescentă, selectați "Windows Forms Application" pentru tipurile de proiect, denumiți proiectul "FormSamples", apoi faceți clic pe OK. Va apărea un nou formular.

Pasul 2

Glisați o etichetă și trei butoane pe formularul nou. Faceți clic pe etichetă și alegeți opțiunea "Proprietăți". Denumiți eticheta "lblTitle" și tastați "Bun venit" în proprietatea Text. Faceți clic pe "ESCAPE" pentru a reveni la formularul de formular. Repetați procesul pentru fiecare dintre aceste butoane, introduceți "Login", "View" și "Close" pentru fiecare proprietate Text a fiecărui buton.

Pasul 3

Creați un al doilea formular Faceți clic pe "Proiect" și apoi pe "Creați un nou format Windows". Denumiți formularul "LoginForm". Glisați o etichetă, câmp de text și două butoane din formular. Modificați proprietatea Text a etichetei la "Name:", numele câmpului text "txtName" și eticheta butonului "Login" și "Cancel".

Faceți dublu clic pe butonul Conectare pentru a deschide fereastra de cod și a adăuga următorul cod:

DialogResult = DialogResult.OK

Dați clic pe Vizualizare, apoi pe Design pentru a reveni la vizualizarea de proiectare a formularului. Faceți dublu clic pe butonul Anulare și adăugați următorul cod:

DialogResult = DialogResult.Cancel

Pasul 4

Reveniți la primul formular, faceți clic pe fereastra "Form1" a soluției Explorer. Faceți dublu clic pe butonul Conectare și adăugați următorul cod:

Dim frm Ca New LoginForm Dacă frm.ShowDialog = DialogResult.OK Apoi lblTitle.Text = "Bun venit" & frm.txtName.Text Sfârșit Dacă frm.Close ()

Acest cod creează o nouă instanță a formularului de conectare, apoi utilizați metoda ShowDialog pentru a deschide formularul. Dacă faceți clic pe butonul de conectare, ShowDialog returnează DialogResult.OK și codul copiază numele câmpului text din mesajul de întâmpinare. Dacă faceți clic pe "Anulare", acest cod este ignorat. Metoda Close închide formularul de dialog.

Utilizați metoda de afișare

Pasul 1

Creați un alt formular denumit "ViewForm". Glisați o etichetă și un buton din caseta de instrumente în formular. Schimbați proprietatea Nume a etichetei "lblContent" și schimbați proprietatea text a butonului "Închidere".

Pasul 2

Faceți dublu clic pe butonul "Închidere" și adăugați următorul cod:

Închideți ()

Pasul 3

Întoarceți-vă la formularul formular al Form1, apoi faceți dublu clic pe butonul "Vizualizare". Adăugați următorul cod:

Dim frm Ca noua vizualizare frm.lblContent.Text = lblTitle.Text & ". Plasați conținutul aici." frm.Show ()

Acest cod creează o nouă instanță a ViewForm. Apoi, setați proprietatea text a etichetei și apelați metoda de afișare a formularului. Rețineți că nu există nici o metodă de închidere, iar metoda Show nu returnează o valoare.