• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

akan (yürüyen) yazı

Katılım
16 Temmuz 2005
Mesajlar
151
Excel Vers. ve Dili
2000 türkçe
Değerli ustalarım:

ACİL BİR DURUMDA 155 POLİS İMDATI ARAYINIZ


yazısını form 1 de akan (yürüyen) yazı şekline nasıl getirebilirim?
 
Access ile ilgili maalesef fazla bilgim yok. Forumdaki diğer arkadaşlar belki bu konuda size yardımcı olabilirler.
 
scroll

Günaydın :hey:

Forma bir etiket ekleyin (Label1) ve Formun olaylarında on timer a aşağıdaki kodu yazın, yine olaylarda timer intervalı:150 yapın. Bu Sayıyı değiştirerek kayan yazının hızlanıp yavaşladığını görebilirsiniz.

[vb:1:3db96129b2]Option Compare Database

Private Sub Form_Timer()
Static strMsg As String, intLet As Integer, intLen As Integer
Dim strTmp As String
Const TXTLEN = 40
If Len(strMsg) = 0 Then
strMsg = Space(TXTLEN) & " ACİL BİR DURUMDA 155 POLİS İMDATI ARAYINIZ " & Space(TXTLEN)
intLen = Len(strMsg)
End If
intLet = intLet + 1
If intLet > intLen Then intLet = 1
strTmp = Mid(strMsg, intLet, TXTLEN)
Label1.Caption = strTmp

End Sub[/vb:1:3db96129b2]

Deneyin yapamazsanız örnek dosyayı foruma eklerim
 
elken'e en yakın benim nikim olduğu için üzerime alınıyorum.

Diğer denetimler -> Microsoft web tarayıcısı
 
Sayın Alpen:

:oops: Ã?zür dilerim :oops:

yoğun iş temposundan ve access sorunlarından zaman zaman gözler bakıyor ama göremiyor.

ayrıca açıklamanız için teşekkür ederim......
 
Geri
Üst