MS ACCESS MAILING LIST: Re: [belajar-access] Sample Program ada yang Punya

Friday, November 25, 2011

Re: [belajar-access] Sample Program ada yang Punya

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
Please respond to belajar-access

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