چطوري رنگ فرم رو به صورت اتوماتيك عوض كنم ؟

يكي از مدل هاي خودتو يه كم كامل تر نوشتم ولي باز هم نه اين هم خوب نيست

Private Sub Timer1_Timer()
rnd1% = (Rnd * 255)
rnd2% = (Rnd * 255)
rnd3% = (Rnd * 255)
Form1.BackColor = RGB(rnd1, rnd2, rnd3)
End Sub

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

ببین من این دوتا را برات نوشتم اون کاری رو که میخای انجام میده منتها در مدت زمان بسیار سریع
برات برنامه هاشو اپلود کردم که راحت بشه خوند و تغییرش داد.

کد:

---

http://www.2shared.com/file/4431092/84e69ef2/Barname.html

---

امید وارم به دردت بخوره

سلام.
این کد رو ببین. خودت میتونی تغییر توش بدی تا اون جای که میخوای تغییر کنه.

کد:

---

Private Sub Timer1_Timer()
Static intRed As Integer, intGrn As Integer, intBlu As Integer
    Me.BackColor = RGB(intRed, intGrn, intBlu)
    intRed = intRed + 5
    If intRed > 255 Then
        intRed = 0
        intGrn = intGrn + 5
        If intGrn > 255 Then
            intGrn = 0
            intBlu = intBlu + 5
            If intBlu > 255 Then
                intBlu = 0
            End If
        End If
    End If
End Sub

---

یه توضیح هم در مورد rgb بدم. 3 تا پارامتر Red و Green و Blue میگیره. هر چند این پارامتر ها از نوع اینتیجر هستن. ولی در عمل از نوع بایت هستند. چون اعداد پارامتر فقط در صورتی که بین 0 تا 255 باشه رنگ رو تغییر میدن. در واقع

کد:

---

rgb(5,5,255)

---

با

کد:

---

rgb(5,5,500)

---

فرقی نمیکنه. چون اعداد بزرگتر از 255 هم 255 در نظر گرفته میشن.
با توجه به اعدادی که شما به پارامتر میدی یعنی شدت سه رنگ اصلی قرمز و سبز و آبی رو تعیین میکنی rgb در خروجی یه رنگ به شما میده. اگه 3 پارامتر 0 باشن رنگ مشکی و 3 پارامتر 255 باشن سفید میشه.
حالا شما میتونی با دادن اعداد مختلف رنگ های مختلف داشته باشی.