Skip to main content

AccessTr.neT


Etiketler
Yazar: accessman - Cevaplar: 2 - İzleme: 2693
form captionda kayan yazı
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.
Task