مگه چی گفتم. من منتظر کمک هستم دیدم کسی کمک نکرد خواستم بگم یا دا وری بشه
مگه چی گفتم. من منتظر کمک هستم دیدم کسی کمک نکرد خواستم بگم یا دا وری بشه
در اصل شما يه چنين چيزي ميخواين؟!
کد:برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
Last edited by AQOUA; 13-04-2010 at 20:20.
آفرین ولی با این تفاوت که قسمت بندی رو خودم تنظیم کنم مثلا بگم 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 به تعداد ورودي برنامه.(تعداد تقسيمات يا سطر و ستون)
با تشكر
هم اکنون 1 کاربر در حال مشاهده این تاپیک میباشد. (0 کاربر عضو شده و 1 مهمان)