yanıp sönen label ve for next döngüsü

[hakanbent]

Sayın Forum Hocalarım ve Arkadaşlarım;


Bir adet user formum var ve program açılırken kullanıcıya bilgi veriyor. Bu Userformda bir progresbar var. Bu progressbar yüklenirken, progressbar'ın üzerinde bulunan uyarı label'ı yanıp sönsün istiyorum. yazdığım kodlar aşağıdaki gibidir. Ancak bu kodları yazdığım zaman ya label yanıp sönüyor, progressbar ilerlemiyor, yada progressbar ilerliyor, label yanıp sönmüyor. Yardım edecek hocalarıma ve arkadaşlarıma şimdiden teşekkür ederim.

Private Sub UserForm_Activate()
Dim i, x As Long
ProgressBar1.Min = 0
ProgressBar1.Max = 20000
For i = 0 To 20000
DoEvents
ProgressBar1 = i
Label4.ForeColor = vbRed
For x = 0 To 20000: DoEvents: Next x
Label4.ForeColor = vbWhite
For x = 0 To 20000: DoEvents: Next x
Next
UserForm2.Show
End Sub

 

[hakanbent]

Özür

Sayın Forum admini;

Bölümü yanlış seçmişim makro bölümüne yazmam gerekiyordu. Özür dilerim.

En derin saygılarımla.

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin. Sorunun sebebini sanıyorum kodda yaptığım değişikliği görünce anlayacaksınız.

Private Sub UserForm_Activate()
Dim i, x As Long
ProgressBar1.Min = 0
ProgressBar1.Max = 20000
For i = 0 To 20
DoEvents
ProgressBar1 = i * 1000
Label4.ForeColor = vbRed
For x = 0 To 20000: DoEvents: Next x
Label4.ForeColor = vbWhite
For x = 0 To 20000: DoEvents: Next x
Next
UserForm2.Show
End Sub

 

[hakanbent]

Teşekkür

Sayın LeventM Hocam;

Kodlar süper çalışıyor. Elinize emeğinize sağlık. Çok teşekkür ederim.

En derin saygılarımla.

 

[nkumas]

sayın leventm bu kodu durdurmak mumkun deil mi? amacım bir butonla işlemi durdurup baska userforma gecmek..

unload me
userform2.show

la diger userforma geciyor ama kendisini kapatmıyor
userform activate e yazdıgımız icin sanırım progressbar bittikten sonraki komutlar iptal olmuyor

belki de problem userform2show (0) yazmadıgım icin olabilir ama o zaman da "cant show non-modal form when modal form is displayed" diyor halbuki userform2 shownmodal kısmı true.
Bi turlu olmadı

 

[celoy]

Syn.hakanbent
yaptığınız işlemden forma eklesenizde bizde faydalansak

 

[ofbalki]

Arkadaşlar ProgressBar Nasıl ekleniyor?
Ben bu işte amatörüm, lütfen yardımcı olun.

 

[mesuttasar]

Arkadaşlar ProgressBar Nasıl ekleniyor?
Ben bu işte amatörüm, lütfen yardımcı olun.

Sayın ofbalki öncelikle VBA editöründe toolbox üzerinde sağ tuşa basıp Additional Controls 'a tıklayın (Şekil 1)



Daha sonra açılan pencereden Microsoft Progressbar Control Kutucuğunu aktif hale getirince Toolbox üzerine Progressbar aracını eklemiş olursunuz (Şekil 2)

 

[NBATMAN]

yanıp sönen label

Merhaba Levent Bey,

Aşağıdaki kodlarınız ile ProgressBarın olmadığı bir durumda sadece labeldeki yazıyı 3 defa yakıp söndürecek ( 3defa kırmızı,3 defa beyaz yakıp sonra subdan çıkılana kadar kırmızı kalmasını nasıl sağlayabiliriz acaba?) değişikliği nasıl yapmalıyız)

Aşağıdaki gibi deneyin. Sorunun sebebini sanıyorum kodda yaptığım değişikliği görünce anlayacaksınız.

Private Sub UserForm_Activate()
Dim i, x As Long
ProgressBar1.Min = 0
ProgressBar1.Max = 20000
For i = 0 To 20
DoEvents
ProgressBar1 = i * 1000
Label4.ForeColor = vbRed
For x = 0 To 20000: DoEvents: Next x
Label4.ForeColor = vbWhite
For x = 0 To 20000: DoEvents: Next x
Next
UserForm2.Show
End Sub

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Private Sub UserForm_Activate()
For i = 0 To 3
DoEvents
Label1.ForeColor = vbRed
For x = 0 To 20000: DoEvents: Next x
Label1.ForeColor = vbWhite
For x = 0 To 20000: DoEvents: Next x
Next
Label1.ForeColor = vbRed
End Sub

 

[NBATMAN]

Levent Bey,

Öncelikle ilginiz için çok teşekkürederim siz ünvanınızı ( Administrator ) fazlasıyla hak ediyorsunuz.
Verdiğiniz kodları uyguladım çalıştı. Fakat ufak tefek birşeyler eklemem gerekti hata mesajları aldığım için kodların en üstüne Dim i,Dim x satırlarını ayrı ayrı ekledimde Ancak öyle geçebildim hata mesajlarını. Ben bunu sürekli yaşıyorum yani formdan veya sizlerden aldığım kodları kendi dosyama uyguladığımda hata mesajları alıyor ve bu yöntem ile geçiyorum hata mesajlarını, acaba bunun nedeni ne olabilir sizce?

 

[Levent Menteşoğlu]

Levent Bey,

Öncelikle ilginiz için çok teşekkürederim siz ünvanınızı ( Administrator ) fazlasıyla hak ediyorsunuz.
Verdiğiniz kodları uyguladım çalıştı. Fakat ufak tefek birşeyler eklemem gerekti hata mesajları aldığım için kodların en üstüne Dim i,Dim x satırlarını ayrı ayrı ekledimde Ancak öyle geçebildim hata mesajlarını. Ben bunu sürekli yaşıyorum yani formdan veya sizlerden aldığım kodları kendi dosyama uyguladığımda hata mesajları alıyor ve bu yöntem ile geçiyorum hata mesajlarını, acaba bunun nedeni ne olabilir sizce?

İltifatınız için teşekkür ederim. Sorununuza gelince bunun sebebi modüllerinizde değişkeni tanımlama zorunluluğu olan ayar mevcut olabilir. Eğer modüllerinizin en üstünde "Option Explicit" tanımlaması mevcutsa bu hatayı alırsınız. Bu ayarı kaldırmak için, VB editöründe "tools-options-editor" sekmesindeki "require variable declaration" daki işareti kaldırın.

 

[daysee]

Merhaba Levent hocam

Label ın yanıp sönme olayını bir hücredeki değere göre yapabilirmiyiz.
Örneğin hücredeki değer "+" ise Label true olsun ve yanıp sönsün, "-" ise false olsun gibi.