çok teşekkürler
süre ölçer aralığını kod yazarak değiştirebilirmiyiz
@benbendedeilem
Hareketli Form Resimi Yazısı.
(01/12/2009, 14:40)accessman yazdı: çok teşekkürler
süre ölçer aralığını kod yazarak değiştirebilirmiyiz
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..
Son Düzenleme: 01/12/2009, 15:30, Düzenleyen: Taruz.
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
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
@benbendedeilem
Son Düzenleme: 01/12/2009, 16:25, Düzenleyen: accessman.
(01/12/2009, 16:21)accessman yazdı: 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
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
Dim Trz As String
Const Bosluk = 80 'Form genişliğine göre bu değeri değiştirin..
If Len(Msj) = 0 Then
Msj = Space(Bosluk) & " Sloganınız " & Space(Bosluk)
Uznk = Len(Msj)
End If
Kayma = Kayma + 1
If Kayma > Uznk Then Kayma = 1
Trz = Mid(Msj, Kayma, Bosluk)
Me.Caption = Trz
Bende Bir Örnek ekleyim. 
Bir Uçtan girip diğerinden çıkıyor ve süreklilik arzediyor.
Bir Uçtan girip diğerinden çıkıyor ve süreklilik arzediyor.
Kayan Yazı.rar
(Dosya Boyutu: 8,88 KB | İndirme Sayısı: 22)
Konuyu Okuyanlar: 1 Ziyaretçi
