Hareketli Form Resimi Yazısı. - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html) +--- Forum: Access Örnekleri ve Uygulamaları (https://accesstr.net/forum-access-ornekleri-ve-uygulamalari.html) +--- Konu Başlığı: Hareketli Form Resimi Yazısı. (/konu-hareketli-form-resimi-yazisi.html) |
Cvp: Hareketli Form Resimi Yazısı. - accessman - 01/12/2009 çok teşekkürler süre ölçer aralığını kod yazarak değiştirebilirmiyiz Cvp: Hareketli Form Resimi Yazısı. - Taruz - 01/12/2009 (01/12/2009, 14:40)accessman yazdı: çok teşekkürler Merhaba.. Değiştirebiliriz.. Bunun için TimerInterval özelliğine değer atamanız yeterlidir.. Me.TimerInterval = 500 gibi.. Vereceğiniz değer Access tarafından milisaniye olarak değerlendirilir.. 1 saniye 1.000 milisaniyeye eşittir.. Cvp: Hareketli Form Resimi Yazısı. - accessman - 01/12/2009 iyi günler aşağıdaki kodda nasıl bir değişiklik yapmalıyız ki yazının uzunluğundan bağımsız bir şekilde yazı form başlığının sağ ucundan girip sol ucundan çıksın sol tarafta son harf kaybolurken sağ taraftan tekrar çıksın ------------------------------------------ i = i + 1 a = "www.accesstr.net" b = Space(100) & a If i <= Len(b) - Len(a) Then Me.Caption = Mid$(b, i, Len(b)) ElseIf i > Len(b) - Len(a) Then Me.Caption = Space(1) & Me.Caption If Len(Me.Caption) = Len(b) Then i = 0 End If Cvp: Hareketli Form Resimi Yazısı. - Taruz - 01/12/2009 (01/12/2009, 16:21)accessman yazdı: iyi günler Tüm kodları bununla değiştirirseniz yazı sağdan sola doğru mütemadiyen akar... Kod:
Static Msj As String, Kayma As Integer, Uznk As Integer Cvp: Hareketli Form Resimi Yazısı. - nihatkr - 01/12/2009 Bende Bir Örnek ekleyim. Bir Uçtan girip diğerinden çıkıyor ve süreklilik arzediyor. |