اگه کسی بلده به ما یا بده چجوری میشه توی vb یه تیکه از تصویر رو برش زد ممنون
اگه کسی بلده به ما یا بده چجوری میشه توی vb یه تیکه از تصویر رو برش زد ممنون
سلام
اول از همه دوتا Picture box یک Shape و دو دکمه و یک CommonDialog (نامش را به cd1 تغییر بده) بر روی فرم خود قرار بده
وبعد این کد ها رو کپی کن
وبعد برنامه رو اجرا کن ونتیجه را ببینDim x1, y1 As Double
Private Sub Command1_Click()
cd1.ShowOpen
Picture1.Picture = LoadPicture(cd1.FileName)
End Sub
Private Sub Command2_Click()
If Picture2.Image <> Empty Then
cd1.ShowSave
SavePicture Picture2.Image, cd1.FileName
End If
End Sub
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
x1 = X
y1 = Y
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If x1 <> 0 And y1 <> 0 Then
Shape1.Visible = True
min1 = x1
min2 = y1
If min1 > X Then min1 = X
If min2 > Y Then min2 = Y
Shape1.Top = min2
Shape1.Left = min1
Shape1.Width = Abs(x1 - X)
Shape1.Height = Abs(y1 - Y)
Picture2.Refresh
End If
End Sub
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Shape1.Visible = False
If x1 <> 0 And y1 <> 0 Then
Picture2.Width = Abs(X - x1)
Picture2.Height = Abs(Y - y1)
min1 = x1
min2 = y1
If min1 > X Then min1 = X
If min2 > Y Then min1 = Y
'Picture2.Visible = True
Picture2.Refresh
Picture2.PaintPicture Picture1.Image, 0, 0, Picture2.Width - 1, Picture2.Height - 1, min1, min2, Picture2.Width - 1, Picture2.Height - 1
End If
x1 = 0
y1 = 0
End Sub
تشکر یادت نره
آقای Karbon2010 من یه پروژه از اینترنت دانلود کردم که عینا همین کدهایی که شما نوشتی رو نوشته !!!!
به نظر من بهتر بود خود پروژه رو بزاری تا دوست عزیزمون ازش استفاده کنه.
این کد برای Crop کردن یه تصویر است، اگه اشتباه نکنم منظور دوستمون Cut کردن یه قسمتی از تصویر هست.
سلام
مجید آقا ما که نگفتیم که کد ها از خودمون است که شما به این وضوح می خواهی من را به اصطلاح خودت تحقیر کنیآقای Karbon2010 من یه پروژه از اینترنت دانلود کردم که عینا همین کدهایی که شما نوشتی رو نوشته !!!!
ما اینجا جمع شده ایم تا بتوانیم مشکلاتمان را مطرح و حل کنیم و در کنار آن چیزهایی را که یاد داریم به بقیه هم انتقال بدهیم
از شما با این همه سابقه بعید است که چنین اظهار نظری بکنید و ....
من فکر نکنم نیاز باشه که همیشه لقمه جویده را در اختیار .... قرار دادبه نظر من بهتر بود خود پروژه رو بزاری تا دوست عزیزمون ازش استفاده کنه.
نخیر اشتباه نکردید منظور دوستمون Cut کردن یه قسمتی از تصویر هست این همون کاری را را انجام می دهد که دوستون لازم دارهاین کد برای Crop کردن یه تصویر است، اگه اشتباه نکنم منظور دوستمون Cut کردن یه قسمتی از تصویر هست.
کد ها احتیاجی به توضیح نداره چون خیلی واضح استلطفا کدها را توضیح بدید
Last edited by karbon2010; 12-02-2009 at 00:44.
قصد من اصلا تحقير كردن شما نبود، اين چه حرفيه كه ميزني. يعني واقعا به خاطر اين حرف من شخصيت شما كوچيك و تحقير شد ؟! من كه چنين فكر نميكنم.مجید آقا ما که نگفتیم که کد ها از خودمون است که شما به این وضوح می خواهی من را به اصطلاح خودت تحقیر کنی
ما اینجا جمع شده ایم تا بتوانیم مشکلاتمان را مطرح و حل کنیم و در کنار آن چیزهایی را که یاد داریم به بقیه هم انتقال بدهیم
از شما با این همه سابقه بعید است که چنین اظهار نظری بکنید و ....
اين كه نميشه لقمه ي جويده، دوستتون از شما يه سوال ميكنه و شما ميتوني با ساختن يه پروژه و آپلود كردنش آسون تر بهش ياد بدي. وقتي من برم با پروژه ي شما كار كنم صد در صد كدها رو بهتر ميفهمم.من فکر نکنم نیاز باشه که همیشه لقمه جویده را در اختیار .... قرار داد
منظور دوستمون اينه كه شما يك قسمت از تصوير رو انتخاب ميكنيد و بعد ميتونيد اون رو حركت بديد، دقيقا بريدن يك تصوير در نرم افزارهايي مثل Photoshop يا Paint.نخیر اشتباه نکردید منظور دوستمون Cut کردن یه قسمتی از تصویر هست این همون کاری را را انجام می دهد که دوستون لازم داره
خوب، اگه اين دوستمون به توضيح كدها نيازي نداشت كه نميگفت، حالا چه واضح باشه و چه نباشه.کد ها احتیاجی به توضیح نداره چون خیلی واضح است
بگذريم ... هميشه نبايد زود قضاوت كرد. خلاصه اين كه قصد من تحقير كردن شما نبود، حالا هر جور ميخواي فكر كن![]()
آقا مجید قصد بدی نداشته من مطمئنم شما بخخشیدش بخشش از بزرگان است مطمئن باش که پسر خوبیه ممنون میشم اگه تو یه تاپیک بزنی و معذرت خواهی مجید رو قبول کنی![]()
سلام
مشکلی نیست ولی مسئله این است که مجید آقا باید در گذاشتن مطالب خود دقت نمایند
در وب جون این کد ها روکپی کن و اجرا که کردی جوابش رو بنویس تا ببینم همون چیزی که می خواستی شد
سلام.
درست آپلود کل پروژه کار رو راحت تر میکنه ولی در مورد مثال های ساده و جزیی نیازی به این کار نیست و قرار دادن کد برنامه کفایت میکنه.
آقا karbon2010 شما هم خوش بین تر باش. مجید از کاربران خوب انجمن هست و منظوری نداشت.
آقا پیمان مجید بعضی موقع ها اخلاقش بد میشه رفیق فاب منه مثلا ولی وثتی میخواد جوابمو بده تو یه تاپیک اول مسخره میکنه بعد جوابمو میده خب این کار خوبی نیست شما یه تذکر به ایشون بدید که انقدر بد صحبت نکنه ممنون
هم اکنون 1 کاربر در حال مشاهده این تاپیک میباشد. (0 کاربر عضو شده و 1 مهمان)