خوش آمدید

جستجو

تبلیغات





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

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

    ابتدا یک تایمیر ایجاد کرده و سرعت ان را بر روی 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



    این مطلب تا کنون 10 بار بازدید شده است.
    منبع
    برچسب ها : ,
    ایجاد دایره اتوماتیک

تبلیغات


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

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

آمار

تبلیغات

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

تبلیغات

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

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