+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Örnekleri ve Uygulamaları (https://accesstr.net/forum-access-ornekleri-ve-uygulamalari.html)
+--- Konu Başlığı: metin kutusundaki harflerin timer ile tek tek yazdırılması (/konu-metin-kutusundaki-harflerin-timer-ile-tek-tek-yazdirilmasi.html)
metin kutusundaki harflerin timer ile tek tek yazdırılması - accessman - 10/04/2012
iyi günler
timer ile metin harfleri tek tek yazdırma örneği.
Kod:
Option Compare Database
Dim metin3 As String
Dim tara As Integer
Private Sub Form_Open(Cancel As Integer)
metin3 = ""
tara = 0
End Sub
Private Sub Form_Timer()
Dim metin1 As String
Dim metin2 As String
metin1 = "bugun okula geldim."
tara = tara + 1
metin2 = Mid(metin1, tara, 1)
metin3 = metin3 & metin2
son = metin3
timeinterval = 0
End Subdaktilo efektiyle harf harf metin yazdırın
form2 de bence güzel oldu
bu ses dosyası daha kısa
timerinterval=115
ile daha güzel oluyor
Cvp: metin kutusundaki harflerin timer ile tek tek yazdırılması - ozanakkaya - 10/04/2012
Paylaşım için teşekkürler, konu örnekler bölümüne taşınmıştır.
Cvp: metin kutusundaki harflerin timer ile tek tek yazdırılması - benremix - 10/04/2012
Emek ve paylaşım için teşekkürler..
Saygılar...
Cvp: metin kutusundaki harflerin timer ile tek tek yazdırılması - perisanoglu - 22/04/2012
ellerinize sağlık..paylaştığınız için teşekkürler