با سلام خدمت دوستان تصمیم گرفتم یه کاری توی عید بکنم
به این صورت که کاربر یک عکس انتخاب میکند وبعد از این که برنامه لود کرد عکس رواز کاربر دو عدد بخواهدعرض و طولاین دو عدد برای قسمت بندی کردن است
مثلا 50 در 80
عرض را 50 قسمت و طول رو 80 قسمت میکند
خوب من از شما دوستان سورس نمیخواهم
من می خواهم کمک کنید این کار رو بکنم
میخواهم با هم فکری و راهنمایی هم این کار رو بکنیم
در حقیقت برای PAINT که دارم می سازم میخواهم[HTML]Private Sub Command1_Click()[/HTML][HTML]
برای شروع کار
cd1.ShowOpen
Image1.Picture = LoadPicture(cd1.FileName)
End Sub
Private Sub Command2_Click()
Image1.Picture = LoadPicture("")
End Sub[/HTML]
عکس رو کاربر انتخاب میکند 2 سیستم لود میکند 3 با یک دگمه عکس رو پاک میکند
[HTML]
a = InputBox(" arz vared konid ") __________________________________________________ _____
در این قسمت کاربر اعداد برای قسمت بندی رو وارد میکند ( برای رفع ارور باید روش کار شود البته اون کاری ندارد )
b = InputBox(" tool vared konid ")
[/HTML][HTML]
این دو خط هم این کار رو میکند طول و عرض عکس رو بر اعداد تقسیم میکند تا تعداد قسمت ها معلوم شود ( به نظر شما این کار درست است )
Label1.Caption = Image1.Height / b
Label2.Caption = Image1.Width / a
End Sub
[/HTML]
---------- Post added at 07:43 PM ---------- Previous post was at 07:39 PM ----------
---------- Post added at 07:45 PM ---------- Previous post was at 07:43 PM ----------
خوب برای رسم خط روی عکس باید این امکان هم باشه کاربر رنگ خط هم انتخاب کند زیرا اگر انتخاب نکند و پس زمینه مشکی باشد ( در حالت پیش فرض ) قسمت بندی ها معلوم نمی شود (ابته این کار راحت است ) <<<<<<<< COMMON DIALOG
خوب الان ما باید بگیم چه طوری مختصات بدیم که با یگ دگمه خودش با توجه به قسمت های قبل تیکه بندی کنه
