zoom

[saeed razaee]

با سلام
دوستان عزیز می خواهم بدانم آیا در اکسس این امکان وجود دارد که برای بعضی از فرمها مثلاً فرمی که عکسها را بدون ذخیره در اکسس نمایش می داد حالت بزرگنمائی قرار دهیم که در صورت کوچک بودن عکس روی آن کلیک نمائیم و با هر بار کلیک نمودن عکس چند درجه بزرگتر شود. با تشکر

[mohammadgij]

بله من از این ActiveX استفاده کردم Kodak Image Edit Control
و بعد برای بزرگ نمایی یک دکمه داشتم که




Dim ZoomPercent As Double
ZoomPercent = KodakImage1.Zoom
If ZoomPercent >= 9 And ZoomPercent <= 990 Then
ZoomPercent = ZoomPercent + 10
KodakImage1.Zoom = ZoomPercent
KodakImage1.Refresh
End If



راستی اسم کنترل هم KodakImage1 بود

[saeed razaee]

سلام
دوست من امکان دارد یک نمونه برنامه ضمیمه نمائید. با تشکر

[mohammadgij]

به این فایل یک نگاهی بنداز. تنها اشکالش اینه که ActiveX بکار رفته Register نشدست و اینم یک اشکال اساسی هستش اما من اینو از نت گرفتم. خیلی جالبه. و اگه ActiveX رجیستر شده همرا با Licence رو گیر اوردین حتما بذارید که همه استفاده کنن