همکاری برای انجام یه کار

[سونامی]

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

به نظر می رسه الان شما خودت داری اسپم می دی
با اون طرز حرف زدن هم انتظار کمک کردن داری؟

[AQOUA]

در اصل شما يه چنين چيزي ميخواين؟!

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[سونامی]

آفرین ولی با این تفاوت که قسمت بندی رو خودم تنظیم کنم مثلا بگم 18 *20 باشه و....
که بقیه رو خودم سورس رو تغیر میدم

[AQOUA]

آفرین ولی با این تفاوت که قسمت بندی رو خودم تنظیم کنم مثلا بگم 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

[سونامی]

دوست عزیز این قسمت دوم که خودتون نوشتید کد رو مربوط به قسمت بندی کردن است درسته ؟

خوب برای قسمت آرایه یکم بیشتر توضیح بدید من در دوران دبیرستان هم با آرایه مشکل داشتم

[AQOUA]

دوست عزیز این قسمت دوم که خودتون نوشتید کد رو مربوط به قسمت بندی کردن است درسته ؟

خوب برای قسمت آرایه یکم بیشتر توضیح بدید من در دوران دبیرستان هم با آرایه مشکل داشتم

راستي شما بايد 16 عدد كنترل PictureBox رو به صورت انديس دار روي فرم قرار بدين.
يعني كپي كنيد.

شما بايد يه آرايه n در n تعريف كنيد و مقدار اين n ها رو برابر با تعداد تقسيمات عكس قرار بدين.
بعد هم تعداد Row و Col از كنترل PictureClip رو برابر با تعداد سطر هاي آرايتون قرار بدين.
و بهد هم توليد كنترل PictureBox به تعداد ورودي برنامه.(تعداد تقسيمات يا سطر و ستون)

با تشكر