نویسنده : davoodx

سلام
من می خوام یک برنامه بنویسم که بهش یک عکس را بدی و طول عرض هم برای اندازه بهش بدی و یک طول و عرض دیگه برای فاصله از بالا و چپ عکس بدی تا از اون عکس اصلی قسمتی با طول و عرضی که بهش دادیم را از قسمت مورد نظر نشون بده ! میشه راهنماییم کنید ؟

برای درک بهتر منظورم یک مثال می زنم :
فرض کنید :
عکس ما Test.Png باشه با طول 400 و عرض 600
من می خوام قسمتی از Test.Png به طول 100 و عرض 50 که از بالای عکس اصلی به فاصله ی 10 پیکسل و از چپ به اندازه ی 20 پیکسل فاصله دارد را نشان بدم .

می خوام خود کاربر از آن عکس چند قسمت جدا کنه و روی فرم حرکتش بده تا بشکل دلخواهش در بیاره !
می تونید در زمینه ی کات کردن عکس و تکان دادن آن روی فرم راهنماییم کنید ؟
می خوام قابلیتش را داشته باشه تا عکس را روی عکس دیگه هم بشه جابجا کرد !

ممنون می شم کمکم کنید

تشكرها از اين پست :

نویسنده : admin

نقل قول از davoodx : سلام من می خوام یک برنامه بنویسم که بهش یک عکس را بدی و طول عرض هم برای اندازه بهش بدی و یک طول و عرض دیگه برای فاصله از بالا و چپ عکس بدی تا از اون عکس اصلی قسمتی با طول و عرضی که بهش دادیم را از قسمت مورد نظر نشون بده ! میشه راهنماییم کنید ؟ برای درک بهتر منظورم یک مثال می زنم : فرض کنید : عکس ما Test.Png باشه با طول 400 و عرض 600 من می خوام قسمتی از Test.Png به طول 100 و عرض 50 که از بالای عکس اصلی به فاصله ی 10 پیکسل و از چپ به اندازه ی 20 پیکسل فاصله دارد را نشان بدم . می خوام خود کاربر از آن عکس چند قسمت جدا کنه و روی فرم حرکتش بده تا بشکل دلخواهش در بیاره ! می تونید در زمینه ی کات کردن عکس و تکان دادن آن روی فرم راهنماییم کنید ؟ می خوام قابلیتش را داشته باشه تا عکس را روی عکس دیگه هم بشه جابجا کرد ! ممنون می شم کمکم کنید

1 – برای حرکت عکسها روی فرم ( Drag & Drop ) :

ابتدا 2 متغیر سراسری تعریف می کنیم :

Dim intx, inty As Integer

در خاصیت mousedown مربوط به Image ها کد زیر را می نویسیم :

Private Sub image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Image1.Drag intx = X inty = Y End Sub

در خاصیت dragdrop مربوط به فرم کد زیر را می نویسیم :

Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single) Source.Left = X - intx Source.Top = Y - inty End Sub

2 – برای اینکه عکس را بشه روی عکسهای دیگه هم جابه جا کرد میشه از zorder استفاده کرد :
روی خاصیت mousedown هر کدام از image ها کد زیر را اضافه کنید .

Image1.zorder (0)

و ... برای همه ی Image ها

3 – کات کردن عکس ها :

نمیدونم منظورتون از کات کردن عکسها چیه ولی من اینجوری فهمیدم :

می تونید از visible استفاده کنید . مثلا قبل از اینکه Visible را True کنید می توانید موقعیت جدید عکس را تعین کنید بعد Visible را برابر True قرار دهید . فرض کنید کاربر با یک دکمه عکس را کات می کند ( در واقع Visible = False می شود ) ، بعد با یک دکمه دیگر عکس در موقعیت جدید ایجاد می شود ( Visible = True ) . البته قبل از True شدن موقعیت جدید تعین میشه ( با Top و Left ) .

امیدوارم که منظورتون رو درست فهمیده باشم .

تشكرها از اين پست :

نویسنده : davoodx

بابت پاسختون بی نهایت ممنونم .
ببنید من می خوام از یک عکس با سایز بزرگ فقط یک تیکه از آن نمایش داده بشه . نمی دونم منظورم را متوجه می شید یا نه ؟
فکز کنید که عکسی داریم که سایز آن 800 در 600 هست من می خواهم فقط تیکه ای از این عکس که ار بالا 20 پیکسل و از چپ 30 پیکسل فاصله دارد را با سایز مثلا 500 در 600 روی فرم نشون بده !
چطوری می تونم همچین کاری انجام بدم ؟

از لطف و توجه شما بینهایت صپاسگزارم

تشكرها از اين پست :

نویسنده : admin

نقل قول از davoodx : بابت پاسختون بی نهایت ممنونم . ببنید من می خوام از یک عکس با سایز بزرگ فقط یک تیکه از آن نمایش داده بشه . نمی دونم منظورم را متوجه می شید یا نه ؟ فکز کنید که عکسی داریم که سایز آن 800 در 600 هست من می خواهم فقط تیکه ای از این عکس که ار بالا 20 پیکسل و از چپ 30 پیکسل فاصله دارد را با سایز مثلا 500 در 600 روی فرم نشون بده ! چطوری می تونم همچین کاری انجام بدم ؟ از لطف و توجه شما بینهایت صپاسگزارم

سلام . اگر منظورتون اینه که به سلیقه کاربر یه تیکه از قسمت دلخواه عکس برداشته بشه این کار با picture box فکر نکنم شدنی باشه چون اگر اندازه picture box را کوچک کنیم عکس ثابته و وفقط از سمث راست و پایین کوچک میشه . مثلا اندازه واقعی عکس زیر 200 * 300 است . حالا اگر اندازه picture box را به 100 * 150 تبدیل کنیم این عکس از سمت راست و پایین کوچک می شود نه از سمت چپ وبالا . در picture box نمیشه کاری کرد که عکس از هر چهار طرف کوچک بشه ( یعنی از وسط باقی بمونه ) . شما می تونید دو تکست باکس بر روی فرم قرار بدید و یه دکمه که با زدن اون دکمه عدد موجود در تکست باکس اولی به عنوان height و عدد تکست باکس دومی به عنوان width در نظر گرفته بشه :

Private Sub Command1_Click()
Picture2.Width = Val(Text2.Text)
Picture2.Height = Val(Text1.Text)
End Sub

البته اگر از Image استفاده کنید با توجه به اینکه خاصیت Stretch داره می تونید کاری کنید که کل عکس کوچک بشه ( نه تیکه تیکه ) .

اگه باز هم منظورتون رو نفهمیدم می تونید برنامه تون رو آپلود کنید تا ببینم یا یه عکس ازش بگیرید .

تشكرها از اين پست :

نویسنده : davoodx

سلام
این تیکه کردن عکس را یکی گفت میشه به یک ای پی آی به نام Bitblt انجام داد . شما اطلاعاتی در موردش دارید ؟

تشكرها از اين پست :

نویسنده : admin

نقل قول از davoodx : سلام این تیکه کردن عکس را یکی گفت میشه به یک ای پی آی به نام Bitblt انجام داد . شما اطلاعاتی در موردش دارید ؟

در مورد توابع API متاسفانه اطلاعات زيادي ندارم و تابع BitBlt هم به صورت زير است كه همه ي پارامترهاي آن از نوع Long است :

Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long

موفق باشيد .

تشكرها از اين پست :