Bagaimana menghubungkan dua bentuk dalam Visual Basic

Menggunakan metode ShowDialog

Langkah 1

Buka Visual Basic dan buat proyek Windows Forms baru. Klik "File", lalu "Proyek Baru". Ketika kotak dialog Proyek Baru muncul, pilih "Windows" dari tampilan struktur pohon, pilih "Aplikasi Formulir Windows" dari jenis proyek, beri nama proyek "FormSamples", lalu klik OK. Formulir baru akan muncul.

Langkah 2

Seret label dan tiga tombol pada formulir baru. Klik pada label dan pilih opsi "Properties". Beri nama label "lblTitle" dan ketik "Selamat Datang" di properti Teks. Klik "ESCAPE" untuk kembali ke perancang formulir. Ulangi proses untuk masing-masing tombol, masukkan "Login", "Lihat" dan "Tutup" untuk setiap properti Teks dari setiap tombol.

Langkah 3

Buat formulir kedua Klik pada "Proyek" dan kemudian "Buat Formulir Windows baru". Namai formulir "LoginForm". Seret label, bidang teks, dan dua tombol pada formulir. Ubah properti Text dari label menjadi "Nama:", nama bidang teks "txtName" dan label tombol "Login" dan "Batal".

Klik dua kali pada tombol Login untuk membuka jendela kode dan tambahkan kode berikut:

DialogResult = DialogResult.OK

Klik pada Tampilan, lalu Rancang untuk kembali ke tampilan desain formulir. Klik dua kali pada tombol Batal dan tambahkan kode berikut:

DialogResult = DialogResult.Cancel

Langkah 4

Kembali ke formulir pertama, klik pada jendela "Form1" dari Solution Explorer. Klik dua kali pada tombol Login dan tambahkan kode berikut:

Dim frm As New LoginForm Jika frm.ShowDialog = DialogResult.OK Kemudian lblTitle.Text = "Selamat Datang" & frm.txtName.Text End If frm.Close ()

Kode ini membuat contoh baru dari formulir login, kemudian gunakan metode ShowDialog Anda untuk membuka formulir. Jika tombol login diklik, ShowDialog mengembalikan DialogResult.OK dan kode menyalin nama bidang teks di pesan selamat datang. Jika Anda mengklik "Batal", kode ini diabaikan. Metode Tutup menutup formulir dialog.

Penggunaan metode Tampilkan

Langkah 1

Buat formulir lain yang disebut "ViewForm". Seret label dan tombol dari kotak alat ke formulir. Ubah properti Name dari tag "lblContent" dan ubah properti Text dari tombol "Tutup".

Langkah 2

Klik dua kali pada tombol "Tutup" dan tambahkan kode berikut:

Tutup ()

Langkah 3

Kembali ke perancang formulir Form1, lalu klik dua kali pada tombol "Lihat". Tambahkan kode berikut:

Dim frm As New ViewForm frm.lblContent.Text = lblTitle.Text & ". Tempatkan konten di sini." frm.Show ()

Kode ini membuat instance baru dari ViewForm. Selanjutnya, Anda mengatur properti teks dari tag dan memanggil metode Tampilkan formulir. Perhatikan bahwa tidak ada metode Tutup, dan metode Perlihatkan tidak mengembalikan nilai.