akan (yürüyen) yazı

Katılım
16 Temmuz 2005
Mesajlar
151
Excel Vers. ve Dili
2000 türkçe
Altın Üyelik Bitiş Tarihi
3.6.2022
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?
 
Katılım
22 Haziran 2005
Mesajlar
120
Access ile ilgili maalesef fazla bilgim yok. Forumdaki diğer arkadaşlar belki bu konuda size yardımcı olabilirler.
 
Katılım
5 Eylül 2004
Mesajlar
571
Excel Vers. ve Dili
Excel 2003 SP1 Ingilizce
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
 
Katılım
16 Temmuz 2005
Mesajlar
151
Excel Vers. ve Dili
2000 türkçe
Altın Üyelik Bitiş Tarihi
3.6.2022
:mutlu: SÜPER OLDU...... :mutlu:


:D teşekkür ederim.... :D
 
Katılım
7 Temmuz 2004
Mesajlar
1,141
elken'e en yakın benim nikim olduğu için üzerime alınıyorum.

Diğer denetimler -> Microsoft web tarayıcısı
 
Katılım
16 Temmuz 2005
Mesajlar
151
Excel Vers. ve Dili
2000 türkçe
Altın Üyelik Bitiş Tarihi
3.6.2022
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......
 
Üst