Dear Mas Harry,
Ma'af saya gak ada sample programnya, tapi saya dapat dari teman, ini snapshotnya :
Ini codenya :
Private Sub ZoomIn_Click()
'Make it Bigger
Dim Hght As Integer
Dim Wdth As Integer
'Hght = Forms!frmPicExample!picsubform![imgPicture].Height
'Wdth = Forms!frmPicExample!picsubform![imgPicture].Width
Hght = Forms!CustComplaintPicture![ImageFrame].Height
Wdth = Forms!CustComplaintPicture![ImageFrame].Width
Hght = Hght * 1.05
Wdth = Wdth * 1.05
Forms!CustComplaintPicture![ImageFrame].Height = Hght
Forms!CustComplaintPicture![ImageFrame].Width = Wdth
DoEvents
End Sub
Private Sub ZoomOut_Click()
Dim Hght As Integer
Dim Wdth As Integer
Hght = Forms!CustComplaintPicture![ImageFrame].Height
Wdth = Forms!CustComplaintPicture![ImageFrame].Width
Hght = Hght / 1.05
Wdth = Wdth / 1.05
Forms!CustComplaintPicture![ImageFrame].Height = Hght
Forms!CustComplaintPicture![ImageFrame].Width = Wdth
Forms!CustComplaintPicture.Form.Detail.Height = Me![ImageFrame].Height
Forms!CustComplaintPicture.Form.Width = Me![ImageFrame].Height
DoEvents
End Sub
Nama form ini tolong disesuaikan dengan nama form mas Harry. Saya yakin dengan kode ini sudah bisa menjawab.
regards,
Tio
| harry siswanto <hsiswanto@yahoo.com> Sent by: belajar-access@yahoogroups.com 11/23/2011 03:59 PM | To: Belajar Access <belajar-access@yahoogroups.com> cc: Subject: [belajar-access] Sample Program ada yang Punya |
Dear all,
mau tanya, barang kali ada yang punya Sample Program MSAccess tentang View Image (Jpg) di Form,
yang mana ada Scrollbar dan Zoom nya, jadi gambar bisa digeser2 dan di Zoom (perbesar-perkecil) pada waktu ditampilkan di form...
Sekiranya ada yang punya, dan Rela berbagi...
terima kasih atas perhatiannya
Regards
Harry Siswanto
No comments:
Post a Comment