+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: form captionda kayan yazı (/konu-form-captionda-kayan-yazi.html)
form captionda kayan yazı - accessman - 02/04/2009
iyi günler arkadaşlar
chooper07 arkadaşımızın yazmış olduğu bir mesajda form başlığında kayan yazı için şu kodlar verilmişti
----------------------
Sub KayanYazi(frm As Form)
Dim X As Integer
Dim current As Variant
Dim Y As String
Y = frm.Caption
frm.Caption = ""
frm.Show
For X = 0 To Len(Y)
If X = 0 Then
frm.Caption = ""
current = Timer
Do While Timer - current < 0.1
DoEvents
Loop
GoTo bitti
Else: End If
frm.Caption = Left(Y, X)
current = Timer
Do While Timer - current < 0.05
DoEvents
Loop
bitti:
Next X
End Sub
-------------------------------
bunu nasıl kullanılacağını nereye yazılacağını ben anlamadım
yardım edebilirmisiniz
teşelkkürler
Cvp: form captionda kayan yazı - ozanakkaya - 02/04/2009
Kod:
Option Compare Database
Dim a As String, b As String, i As Integer
Private Sub Form_Timer()
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
End Subhttps://accesstr.net/hareketli-form-resimi-yazisi-t-1954.html
Cvp: form captionda kayan yazı - accessman - 03/04/2009
hürmetler admin kardeşim