تبلیغات :
ماهان سرور
آکوستیک ، فوم شانه تخم مرغی ، پنل صداگیر ، یونولیت
دستگاه جوجه کشی حرفه ای
فروش آنلاین لباس کودک
خرید فالوور ایرانی
خرید فالوور اینستاگرام
خرید ممبر تلگرام

[ + افزودن آگهی متنی جدید ]




صفحه 3 از 3 اولاول 123
نمايش نتايج 21 به 26 از 26

نام تاپيک: همکاری برای انجام یه کار

  1. #21
    آخر فروم باز سونامی's Avatar
    تاريخ عضويت
    May 2008
    محل سكونت
    یه جای خوب
    پست ها
    1,842

    پيش فرض

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

  2. #22
    داره خودمونی میشه AQOUA's Avatar
    تاريخ عضويت
    Mar 2010
    محل سكونت
    Tehran
    پست ها
    91

    پيش فرض

    در اصل شما يه چنين چيزي ميخواين؟!
    کد:
    برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
    Last edited by AQOUA; 13-04-2010 at 20:20.

  3. #23
    آخر فروم باز سونامی's Avatar
    تاريخ عضويت
    May 2008
    محل سكونت
    یه جای خوب
    پست ها
    1,842

    پيش فرض

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

  4. #24
    داره خودمونی میشه AQOUA's Avatar
    تاريخ عضويت
    Mar 2010
    محل سكونت
    Tehran
    پست ها
    91

    پيش فرض

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





  5. #25
    آخر فروم باز سونامی's Avatar
    تاريخ عضويت
    May 2008
    محل سكونت
    یه جای خوب
    پست ها
    1,842

    پيش فرض

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

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

  6. #26
    داره خودمونی میشه AQOUA's Avatar
    تاريخ عضويت
    Mar 2010
    محل سكونت
    Tehran
    پست ها
    91

    پيش فرض

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

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

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

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

    با تشكر

  7. این کاربر از AQOUA بخاطر این مطلب مفید تشکر کرده است


صفحه 3 از 3 اولاول 123

Thread Information

Users Browsing this Thread

هم اکنون 1 کاربر در حال مشاهده این تاپیک میباشد. (0 کاربر عضو شده و 1 مهمان)

User Tag List

قوانين ايجاد تاپيک در انجمن

  • شما نمی توانید تاپیک ایحاد کنید
  • شما نمی توانید پاسخی ارسال کنید
  • شما نمی توانید فایل پیوست کنید
  • شما نمی توانید پاسخ خود را ویرایش کنید
  •