label kayan yazı

[yildirimm]

Merhaba arkadaşlar ben burdan bi kayan yazı örneği aldım ve kendime uyguladım fakat benim istediğim yazı sürekli kayacak ve makroya zarar vermeyecek işlemleri devam edecek ve isim kırmızı yazı rengi ile gececek nasıl ayarlarım bunu şimdiden tşk ler iyi çalışmalar.Kod Aşağıdadır.


Private Sub UserForm_Activate()
Label17.Caption = " Aykut yildirim. "
Dim karakter, kalan As String
Dim s, c, i As Integer
s = Len(Label17)
For i = 1 To s
karakter = Mid(Label17, 1, 1)
kalan = Right(Label17, s - 1)
For c = 1 To 20000
Label17 = kalan & karakter
Next c
DoEvents
Next i
Label17 = ""

 

[Levent Menteşoğlu]

Kayan bir yazı için sürekli çalışan bir kodlama kullanmak gerekirki bunun diğer kodların çalışmasını engellememesi düşünülemez. Yazdığınız kod zaten bir döngü mantığı ile çalıştığı için işlemini bitirene kadar başka işlem yapmanıza izin vermeyecektir. Bu durumda bir timer kullanmaz gerekir ki buda diğer işlemleri yapmanıza izin versede yine sağlıklı olmaz, işlemcinizi çok zorlar, bu sebeple ben böyle bir uygulama kullanmamanızı öneririm. Eğer ısrar ederseniz arama motoruna "kayan yazı" yazarak arama yaparak çok sayıda örneğe ulaşabilirsiniz.

 

[yildirimm]

sayın levent bey cok tsk ederim ilginize peki yazi gidip gidp gelior sonra kayboluyor kaymasdı bititkten sonra yazı gene labelde gözükecek sekilde nasıl ayarlarız

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Private Sub UserForm_Activate()
Label17.Caption = " Aykut yildirim. "
Dim karakter, kalan As String
Dim s, c, i As Integer
s = Len(Label17)
For i = 1 To s
karakter = Mid(Label17, 1, 1)
kalan = Right(Label17, s - 1)
For c = 1 To 50000
Label17 = kalan & karakter
Next c
DoEvents
Next i
End Sub

 

[yildirimm]

çok tşkler oldu