1. Buat satu project baru.
2. Desain tampilan form seperti pada gambar dibawah ini :
2. Desain tampilan form seperti pada gambar dibawah ini :
3. Tambahkan
kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel
berikut:
Object
|
Properties
|
Nilai
|
Form2
|
Name
Text
|
Form2
Variabel
Global
|
Button1
|
Name
Text
|
BtnExit
E&xit
|
4. Klik
ganda pada BtnExit, kemudian
ketikkan kode program berikut ini :
Private Sub
BtnExit_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
BtnExit.Click
dim Tutup As String
dim Tutup As String
tutup
= MessageBox.Show("Anda yakin tutup form ini
?", "Global Variabel",
MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If
tutup = MsgBoxResult.Yes Then
End
Else
End If
End Sub
5. Jalankan
aplikasi dengan menekan tombol F5
(di keyboard), atau melalui ikon Start Debugging di
toolbar, atau melalui menu Debug > Start Debuging.
6. Simpan
aplikasi Anda.
Hasilnya dapat dilihat pada gambar di bawah ini :
Untuk mendownload projectnya klik disini
No comments:
Post a Comment