Ardhy
Admin
Jumlah posting : 248
Koin : 9
Join date : 14.02.12
Lokasi : Surakarta
 | Subyek: (VISUAL BASIC) Memberi Pesan Eror  Tue Mar 20, 2012 9:40 pm | |
| Memberi Pesan Eror - Quote :
- Private Sub Image2_Click()
On Error GoTo buruk 'jika object error maka kita melakukan pindah ke buruk
Image1.Visible = True 'operasi
Pict.Visible = True 'operasi
Image1.Picture = LoadPicture(Dirnya.Path & "\" & Filenya.FileName) 'operasi
Exit Sub 'jika tidak diberi,maka program langsung menuju ke buruk
buruk:
MsgBox "Hoiy asal klik aja, chouk", vbCritical, "Information"
End Sub | |
|
