سوال: بدست اوردن اندازه طول و عرض یک عکس [بایگانی]

MOR_MS

پنج شنبه 25 فروردین 1390, 11:38 صبح

با سلام و خسته نباشدی
دوستان اگر ممکنه راهنمایی کننده چطوری می توان طول و عرض یک عکس را بدست اورد
مثلاً عکس های که طول و عرض انها از یک عکس 3*4 بزرگتر است را قبول نکه برای بدست اوردن سایز ار لحاظ بایتی مشکلی ندارم
با تشکر

MOR_MS

جمعه 26 فروردین 1390, 22:07 عصر

باسلام
خواهش می کنم یک نفر راهنمایی کنه

payman_xxp

جمعه 26 فروردین 1390, 23:15 عصر

سلام
Const ScaleChange As Double = (635 / 24)
Dim Pic As IPictureDisp
Set Pic = LoadPicture("D:\pix.gif")

Imgwidth = Round(Pic.Width / ScaleChange)
ImgHeight = Round(Pic.Height / ScaleChange)

MsgBox "Picture demensions: " & Imgwidth & " x " & ImgHeight
موفق باشید.

RESMAILY

شنبه 27 فروردین 1390, 07:59 صبح

به نام خدا
با سلام. ضمن تشكر اpayman_xxp با استفاده از موضوع، خواهشمند است به اين سوال هم پاسخ فرماييد. چگونه مي شود مانند تصوير ضميمه، يك فرمي را داخل آكسس در جاي دلخواه مثلا در گوشه سمت چپ بازنمود. منظور بدست آوردن مختصات در رزوليشن هاي مختلف مونيتور است و...

payman_xxp

شنبه 27 فروردین 1390, 19:12 عصر

به نام خدا
با سلام. ضمن تشكر اpayman_xxp با استفاده از موضوع، خواهشمند است به اين سوال هم پاسخ فرماييد. چگونه مي شود مانند تصوير ضميمه، يك فرمي را داخل آكسس در جاي دلخواه مثلا در گوشه سمت چپ بازنمود. منظور بدست آوردن مختصات در رزوليشن هاي مختلف مونيتور است و...
سلام دوست عزیز
با توجه به سوال تاپیک ، فکر میکنم اگه تاپیک جدیدی ایجاد میکردید ،سوال و جواب بیشتری رد و بدل میشد...نه؟:متفکر:
بهر حال، شما دوست عزیز میتونید از تابع moveSize بصورت زیر استفاده کنید:
DoCmd.MoveSize(Right, Down, Width, Height)
موفق باشید.