Latihan Modul

Latihan 1

Object	Properties	Nilai
Form1	Name Text	Form1 AplikasiBukaGambar
OpenFileDialog1	Name	ofdBuka
PictureBox1	Name	PcbGambar
Button1	Name Text	BtnBuka Buka
Button2	Name Text	BtnExit Exit

1.       KlikgandapadaTombolBuka, kemudianketikkode programberikutini :

If OfdBuka.ShowDialog() = Windows.Forms.DialogResult.OK Then

Try

     PcbGambar.Image = Image.FromFile(OfdBuka.FileName)

Me.Text = "Membuka File " + OfdBuka.FileName

Catch ex As Exception

     MessageBox.Show("File Gagal dibuka", "Error", MessageBoxButtons.OK,
     MessageBoxIcon.Error)

EndTry

EndIf

2.       Klik ganda pada tombol BtnExit, Kemudian ketikkan kode program berikut ini :

Dim Tutup AsString

Tutup = MessageBox.Show("Yakin tutup form ini ?", "Konfirmasi",
        MessageBoxButtons.YesNo,MessageBoxIcon.Question)

If Tutup = MsgBoxResult.Yes Then

End

Else

ExitSub

EndIf

3.       Jalankan aplikasi dengan menekan tombolF5 (di keyboard), atau melalui icon Start Debugging di toolbar, atau melalui menu Debug > Start Debuging.

4.       Simpan aplikasi Anda.