:18::18::18: مگه چی گفتم. من منتظر کمک هستم دیدم کسی کمک نکرد خواستم بگم یا دا وری بشهنقل قول:
Printable View
:18::18::18: مگه چی گفتم. من منتظر کمک هستم دیدم کسی کمک نکرد خواستم بگم یا دا وری بشهنقل قول:
در اصل شما يه چنين چيزي ميخواين؟!
کد:http://www.4shared.com/file/_wWo_biC/ImageSpliter.html
آفرین ولی با این تفاوت که قسمت بندی رو خودم تنظیم کنم مثلا بگم 18 *20 باشه و....
که بقیه رو خودم سورس رو تغیر میدم :دی
اين كه كاري نداره، اول يه كنترل PictureClip رو از components به Toolbox اضافه كن.نقل قول:
بايد يه عكس رو درون PictureClip قرار بدين.
و بعد خاصيت هاي Row و Col از PictureClip رو برابر با تعداد سطر و ستون هاي آرايتون قرار بدين.
يعني بايد خودتون كد نويسي كنيد.
بعد هم يه كنترل PictureBox.
و بعد يه command button اضافه كن.
و يه command button ديگه اضافه كن و style اون رو برابر با graphical قرار بده.
و سپس دستورات زير:
Function Split()
Command2.DownPicture = PictureClip1.Picture
For i = 0 To 15
Picture1(i).ScaleMode = 3
PictureClip1.StretchX = Picture1(i).ScaleWidth
PictureClip1.StretchY = Picture1(i).ScaleHeight
Picture1(i).Picture = PictureClip1.GraphicCell(i)
Picture1(i).ScaleMode = SaveMode
Picture1(i).Visible = True
Next i
End Function
Private Sub Command1_Click()
Call Split
End Sub
دوست عزیز این قسمت دوم که خودتون نوشتید کد رو مربوط به قسمت بندی کردن است درسته ؟
خوب برای قسمت آرایه یکم بیشتر توضیح بدید من در دوران دبیرستان هم با آرایه مشکل داشتم
نقل قول:
راستي شما بايد 16 عدد كنترل PictureBox رو به صورت انديس دار روي فرم قرار بدين.
يعني كپي كنيد.
شما بايد يه آرايه n در n تعريف كنيد و مقدار اين n ها رو برابر با تعداد تقسيمات عكس قرار بدين.
بعد هم تعداد Row و Col از كنترل PictureClip رو برابر با تعداد سطر هاي آرايتون قرار بدين.
و بهد هم توليد كنترل PictureBox به تعداد ورودي برنامه.(تعداد تقسيمات يا سطر و ستون)
با تشكر