تمامی مطالب مطابق قوانین جمهوری اسلامی ایران میباشد.درصورت مغایرت از گزارش پست استفاده کنید.

جستجو

کانال خرید و فروش پرنده

ایجاد دایره اتوماتیک

    Height * Rnd()), 450

    End Sub


    .

    ساخت دایره ها باحالت های مختلف در ویژوال بیسیک

    ابتدا یک تایمیر ایجاد کرده و سرعت ان را بر روی 250 قرار دهید

    سپس کد زیر را در آن ایجاد کنید




    Private Sub Timer1_Timer()

    WindowState = 2
    DrawWidth = 5
    FillColor = QBColor(Rnd * 15)
    FillStyle = Int(Rnd * 8)
    Circle (Form1.Width * Rnd(), Form1
    این مطلب تا کنون بار بازدید شده است.
    ارسال شده در تاریخ شنبه 26 اسفند 1391 [ گزارش پست ]

    منبع
    برچسب ها :

    ,

آمار امروز پنجشنبه 28 دي 1396

  • تعداد وبلاگ :55617
  • تعداد مطالب :211209
  • بازدید امروز :27472
  • بازدید داخلی :1885
  • کاربران حاضر :31
  • رباتهای جستجوگر:128
  • همه حاضرین :159

تگ های برتر امروز

تگ های برتر