form captionda kayan yazı - Baskı Önizleme +- 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 https://accesstr.net/hareketli-form-resimi-yazisi-t-1954.html Cvp: form captionda kayan yazı - accessman - 03/04/2009 hürmetler admin kardeşim |