1. Buat project baru.
2. Desain tampilan form seperti pada gambar dibawah ini :
3. Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel berikut:
4. Klik ganda pada Form1, kemudian ketikkan kode program berikut ini :
5. Klik ganda pada BtnExit, kemudian ketikkan kode program berikut ini :
6. Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui ikon Start Debugging di
toolbar, atau melalui menu Debug > Start Debuging.
7. Simpan aplikasi anda
hasilnya dapat dilihat pada gambar di bawah 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 Form1, kemudian ketikkan kode program berikut ini :
Public Class
Form2
Dim tutup As
String
5. 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
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
6. Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui ikon Start Debugging di
toolbar, atau melalui menu Debug > Start Debuging.
7. Simpan aplikasi anda
hasilnya dapat dilihat pada gambar di bawah ini :
untuk mendownload projectnya klik disini
No comments:
Post a Comment