جستجو

تبلیغات


    تبلیغات شما در اینجا

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

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

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

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




    Private Sub Timer1_Timer()

    WindowState = 2
    DrawWidth = 5
    FillColor = QBColor(Rnd * 15)
    FillStyle = Int(Rnd * 8)
    Circle (Form1.Width * Rnd(), Form1.Height * Rnd()), 450

    End Sub



    این مطلب تا کنون 21 بار بازدید شده است.
    ارسال شده در تاریخ شنبه 26 اسفند 1391
    منبع
    برچسب ها : ایجاد ,
    ایجاد دایره اتوماتیک

تبلیغات


    Ads

پربازدیدترین مطالب

آمار امروز یکشنبه 3 ارديبهشت 1396

تبلیغات

محل نمایش تبلیغات شما

تبلیغات

محل نمایش تبلیغات شما

آخرین کلمات جستجو شده

تگ های برتر