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