تغییر رنگ پیش زمینه و پس زمینه

[s12345]

من تو ویژوال بیسیک 6 یه لیبل گذاشتم و تو یه چیز نوشتم.رنگ forecolor و backcolor فرق میکنه.
چیکار کنم تا با هر بار کلیک روی لیبل، رنگ forecolor و backcolor عوض بشه؟

[abdullah20]

خب داخل رویداد کلیک بنویسید:

Private Sub Label1_Click()
Label1.BackColor = vbRed
Label1.ForeColor = vbBlue
End Sub

[abdullah20]

نکنه منظورتون با هر بار کلیک یک رنگ رندوم ست بشه؟

[abdullah20]

اگر منظورتون رنگ رندوم با هر بار کلیک است از کد زیر استفاده کنید:

Private Sub Label1_Click()
Label1.BackColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Label1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
End Sub

[s12345]

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

[abdullah20]

2 تا متغیر تعریف کنید و با 2 تا شرط بررسی کنید
خیلی سادس

[s12345]

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

[samiasoft]

در این حالت نیاز به متغییر نمی باشد :

Private Sub Form_Load()
Label1.ForeColor = vbBlue
Label1.BackColor = vbGreen
End Sub


Private Sub Label1_Click()
If Label1.BackColor = vbBlue Then
Label1.ForeColor = vbBlue
Label1.BackColor = vbGreen
Else
Label1.ForeColor = vbGreen
Label1.BackColor = vbBlue
End If
End Sub