statusbar da kayan yazı

[muratfix]

merhaba arkadaşlar
forumda kayan yazı ile ilgili bir örnek aradım ama bir türlü istediğim gibi bir sonuç alamadım. aslında bir tane var ama gerçekten çok hızlı çalışıyor. neyse benim yardımınızı istediğim konu şu: örneğin herhangi bir sayfayı seçtiğimde otamatik olarak başlayan ve statusbardan geçen bir yazı. yanlız şunu belirteyim ki kaymasını istediğim yazı forumdaki örneklerde olduğu gibi herhangi birsayfanın üzerinde yazılı olan bir yazı olmamalı kod içerisinde belirtilmelidir.
yardımlarınız için şididen teşekkürler.

 

[muratfix]

arkadaşlar cevaplanması zor bir soru mu oldu acaba?

 

[Levent Menteşoğlu]

Aşağıdaki linki inceleyin.

Timer Uygulaması (API & Class)

Ayrıca aşağıdaki başlıkta başka örneklerde bulabilirsiniz.

Animasyon ve Oyun Uygulamaları

 

[muratfix]

sayın leventm verdiğiniz linkler için teşekkürler ama ben orada aradığım örnekleri bulamadım.

 

[muratfix]

arkadaşlar bu konu hakkında yardımlarınızı bekliyorum işin içinden çıkamadım. aşağıdaki örnek kodla saadece ilgili sayfanın ilk hücresindeki yazıyı kaydırmak mümkün oysa ben kaydırmak istediğim yazıyı böyle bir kod içerisine yazıp sadece statusbarda göstermek istiyorum.

Sub Yazi()
Dim i As Single
Dim ilk, son, veri As String
Do While (True)
DoEvents
ilk = Left(Cells(1, 1), 1)
son = Mid(Cells(1, 1).Value, 2, Len(Cells(1, 1).Value) - 1)
Cells(1, 1).Value = son + ilk
For i = 1 To 12000000
Next i
veri = Cells(1, 1).Value
Application.StatusBar = veri
Application.Caption = veri
Loop
End Sub

 

[Levent Menteşoğlu]

Aşağıdaki linki inceleyin.

statusbarda kayan yazı

 

[excelapachi]

Verdiğimiz bu animasyon örnekleri butonlara tutturulmuş, peki program açılınca bu modüller çalıştırılabilirmi?