For Next Döngüsü İle Userform Renklendirme

[mumunal]

Merhaba, aşağıdaki makro ile Userform u renklendirmek istiyorum ama epey uğraşmama rağmen çalıştıramadım.

Private Sub Buton_Click()

Userform1.Show

For x = 1 To 255
For y = 1 To 255
For z = 1 To 255

UserForm1.BackColor = RGB(x, y, z)

Next z
Next y
Next x

End Sub

Teşekkür ederim

 

[Orion1]

Buyurun.

Me.BackColor = RGB(84, 150, 104)

 

[mumunal]

Buyurun.

Me.BackColor = RGB(84, 150, 104)

İlginiz için teşekkür ederim üstadım, fakat userform un tek olarak renklendirilmesi konusunda
sorun yok. For next döngüsünü içerisinde renk kodlarına x,y,z vb. değişkenleri atayarak makronun çalıştırılması mümkün olabilir mi? Teşekkür ederim.

 

[Orion1]

İlginiz için teşekkür ederim üstadım, fakat userform un tek olarak renklendirilmesi konusunda
sorun yok. For next döngüsünü içerisinde renk kodlarına x,y,z vb. değişkenleri atayarak makronun çalıştırılması mümkün olabilir mi? Teşekkür ederim.

döngü hızlıca döner ve xyz değeri 250,250,250 olur bu ne renkse o renk görülür daima.Onun için başka bir şey düşünün.

 

[Haluk]

@mumunal:

Böyle bir kod, bilgisayarınızı aşırı yorar ...... yine de denemek isterseniz, kodlarınızda;

For Z = 1 To 255

satırından sonra aşağıdakini ilave edin;

UserForm1.Repaint

ama bu haliyle bile UserForm'u istediğiniz zaman kapatamazsınız.....:biggrin:

.

 

[Zeki Gürsoy]

Biraz uzun sürebilir, deneyin.

Private Sub Buton_Click()

    UserForm1.Show
    
    For x = 1 To 255
        For y = 1 To 255
            For Z = 1 To 255
            
            UserForm1.BackColor = RGB(x, y, Z)
            UserForm1.Repaint
            
            Next Z
        Next y
    Next x

End Sub

 

[mumunal]

Teşekkür ederim. Simdi çalışıyor.

 

[Haluk]

Kolay gelsin ...

.