userformda yanar söner rakam

[musculus]

userformda 5-6 kere yanıp sönecek sonra program devam edecek bir kod lazım
ekte basitce yaptığım kodda msgboxları devre dışı bırakınca yanıp sönme olayı gerçekleşmiyor

nerde hata yaptım ?

 

[musculus]

aşagıdaki kodlarda
For a = 1 To 10000000
Next
döngüsü ile bir bekleme yapmak istedim ama olmadı.
88 rakamı 5-6 kare mavi-siyah yanıp sönecek ama kod lar çalışmadı


Private Sub CommandButton1_Click()
UserForm1.Label1.ForeColor = &H80000012

For i = 1 To 10
If UserForm1.Label1.ForeColor = &H80000012 Then
UserForm1.Label1.ForeColor = &H8000000D

Else
UserForm1.Label1.ForeColor = &H80000012

End If
For a = 1 To 10000000
Next
Next


End Sub

 

[Zeki Gürsoy]

Merhaba,

Module1 kodu:

Public dur As Boolean

Public Sub p1()
    If dur = True Then
        UserForm1.Label1.ForeColor = vbBlack: Exit Sub
    End If
    Application.OnTime Now + TimeSerial(0, 0, 1), "module1.p2"
End Sub

Public Sub p2()
    UserForm1.Label1.ForeColor = IIf(UserForm1.Label1.ForeColor = vbBlack, vbBlue, vbBlack)
    Call p1
End Sub

userform1 kodu :

Private Sub CommandButton1_Click()
    dur = False
    Call p1
End Sub

Private Sub CommandButton2_Click()
    dur = True
End Sub

 

[musculus]

harika olmuş elinize,bilginize saglık.
yalnız ben iki adet userform kullanıyorum
userform2 deki commandbutton1'e basınca
userform1 deki label1 yanıp sönüyor güzel olmuş ama sürekli yanıp sönüyor
5-6 kere yanıp sönmeden sonra durabilir mi

 

[Zeki Gürsoy]

İkinci butonun görevi durdurmak idi. Kodu inceleseydiniz görebilecektiniz.

5 kez çalıştıktıktan sonra durması için aşağıdaki gibi değiştirin...

form modulu:

Private Sub CommandButton1_Click()
    Call p1
End Sub

module1:

Public Sub p1()
    Static s As Byte
    
    s = s + 1
    
    If s > 5 Then
        UserForm1.Label1.ForeColor = vbBlack
        s = 0
        Exit Sub
    End If
    
    Application.OnTime Now + TimeSerial(0, 0, 1), "module1.p2"
End Sub

Public Sub p2()
    UserForm1.Label1.ForeColor = IIf(UserForm1.Label1.ForeColor = vbBlack, vbBlue, vbBlack)
    Call p1
End Sub

 

[musculus]

Mükemmel ötesi olmuş elinize saglık

 

[ZorBey_]

Merhaba İyi Çalışmalar
Elinize Sağlık
Renkleri Sayı Olarak
Yazmak İstiyorum

UserForm1.Label1.ForeColor = vbBlack
UserForm1.Label1.ForeColor = IIf(UserForm1.Label1.ForeColor = vbBlack, vbBlue, vbBlack)

Burada vbBlack Yerine ( 1 )
Burada vbBlue Yerine ( 5 )

Renkleri Sayı Olarak Yazmak için Kodlarda
Nasıl Bir Değişiklik Yapmak Gerekir Acaba
Teşekkür Ederim
İyi Çalışmalar.

 

[ZorBey_]

Merhaba İyi Çalışmalar.
Renkleri Sayı Olarak
1 Den 56 Ya Kadar Olan
Renkleri Kullanabilmek İçin
Module1 İçindeki
Aşağıdaki Örnekteki Renkleri

UserForm1.Label1.ForeColor = vbGreen
UserForm1.Label1.BackColor = vbBlack

UserForm1.Label1.ForeColor = IIf(UserForm1.Label1.ForeColor = vbYellow, vbRed, vbYellow)
UserForm1.Label1.BackColor = IIf(UserForm1.Label1.BackColor = vbRed, vbYellow, vbRed)

vbBlack Yerine 1
vbRed Yerine 3
vbGreen Yerine 4
vbYellow Yerine 6
Şeklinde Yazabilmem İçin
İçin Kodlarda Nasıl Bir Değişiklik
Yapılması Gerekiyor
Bu Konuda Yardımınızı Rica Ediyorum
Teşekkür Ederim İyi Çalışmalar.

 

[Zeki Gürsoy]

Editörün renk sabitleri sınırlıdır. Aşağıdaki resimlerde görebilirsiniz. Toplamda 16,5 milyon renk vardır. Yani RGB(0,0,0) dan RGB(255,255,255) e kadar.

Color, 16.5 milyon renk alabilir. ColorIndex 56 renk alabilir. Bu renkleri boş bir dosyada aşağıdaki kodu çalıştırarak görebilirsiniz...

Sub test()
    Dim byt As Byte
    
    For byt = 0 To 56
        Cells(byt + 1, "a") = byt
        Cells(byt + 1, "b").Interior.ColorIndex = byt
    Next
End Sub