textbox da kayan yazı

[bravo64]

sevgili arkadaşlar,
user formumda bulunan texbox52 de kayan yazı oluşturuyorum..
Tabi sizlerin hazırladığı kodlar yardımıyla..visualbasic in kodunu şöyle uyguladım;
Dim int1 As Integer, bitir
For int1 = 1 To 200
bitir = Timer + 0.1
Do
TextBox52 = Space(int1) & s1.Cells(sat, 30).Value
DoEvents
Loop While Timer < bitir
Next int1
Gayet iyi çalışıyor ancak
1-yazıyı sağdan sola nasıl yazdırırım
2-bu kodla birkere yazıp bitiyor.Ben birkaç kez tekrarlamasını istiyorum..
mümkünmü acaba..?

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[vb:1:718ef7e94d]Dim int1 As Integer, bitir
10 For int1 = 200 To 1 Step -1
bitir = Timer + 0.1
Do
TextBox2 = Space(int1) & s1.Cells(sat, 30).Value
DoEvents
Loop While Timer < bitir
Next int1
GoTo 10[/vb:1:718ef7e94d]

 

[bravo64]

Aşağıdaki kodlarda normal olarak tüm veriler geliyor ancak,
1-kayan yazının ancak yarısı çıkıyor..Tamamı gelmeden başa dönüyor.
2-yazı geçerken userformu unload me yaparsam sistem kitleniyor..
Private Sub ComboBox1_Change()
Set s1 = Sheets("girişarşiv")
sat = s1.[d3:d65536].Find(ComboBox1.Value).Row
TextBox1.Value = s1.Cells(sat, 2).Value
TextBox2.Value = s1.Cells(sat, 3).Value
TextBox4.Value = s1.Cells(sat, 5).Value
TextBox5.Value = s1.Cells(sat, 6).Value
TextBox6.Value = s1.Cells(sat, 7).Value
TextBox7.Value = s1.Cells(sat, 8).Value
TextBox8.Value = s1.Cells(sat, 9).Value
TextBox9.Value = s1.Cells(sat, 10).Value
TextBox10.Value = s1.Cells(sat, 11).Value
TextBox11.Value = s1.Cells(sat, 12).Value
TextBox13.Value = s1.Cells(sat, 13).Value
TextBox14.Value = s1.Cells(sat, 14).Value
TextBox15.Value = s1.Cells(sat, 15).Value
TextBox16.Value = s1.Cells(sat, 16).Value
TextBox17.Value = s1.Cells(sat, 17).Value
TextBox18.Value = s1.Cells(sat, 18).Value
TextBox19.Value = s1.Cells(sat, 19).Value
TextBox20.Value = s1.Cells(sat, 20).Value
TextBox55.Value = s1.Cells(sat, 21).Value
TextBox22.Value = s1.Cells(sat, 22).Value
TextBox23.Value = s1.Cells(sat, 23).Value
TextBox24.Value = s1.Cells(sat, 24).Value
TextBox25.Value = s1.Cells(sat, 25).Value
TextBox26.Value = s1.Cells(sat, 26).Value
TextBox27.Value = s1.Cells(sat, 27).Value
TextBox28.Value = s1.Cells(sat, 28).Value
TextBox29.Value = s1.Cells(sat, 29).Value
If s1.Cells(sat, 30).Value > 0 Then
Dim int1 As Integer, bitir
10 For int1 = 120 To 1 Step -1
bitir = Timer + 0.1
Do
TextBox52 = Space(int1) & s1.Cells(sat, 30).Value
DoEvents
Loop While Timer < bitir
Next int1
GoTo 10
Else: TextBox52 = ""
End If
End sub

 

[bravo64]

Günaydın arkadaşlar,
hala aynı sorunla uğraşıyorum..Kayan yazının yarısı çıkmasının nedeni textbox ın boyutu ama yazı sağdan (ki yazı metindir) gelip soldançıkabilirmi?Forumda birçok örnek var ama bana uygun olanını (tabi seviyemde müsait değil)bulamadım..
İlgilenecek arkadaşlara teşekkür ederim..
En büyük sorunda kayan yazıyı durduramadığım için userformu kapattığımda sistem kilitleniyor..

 

[Levent Menteşoğlu]

Ekteki dosyayı inceleyin. Kayan yazıda sonsuz döngü ile oluşturulan bir timer kullanıldığı için, aşağıdaki gibi bir komutla bu timeri durdurmanız gerekir.

[vb:1:67932c28ec]Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
End
End Sub[/vb:1:67932c28ec]

 

[bravo64]

Sevgili leventm,çok teşekkür ederim..Birde şunu sormak istiyorum,userformum da
combobox1 deki isimleri tıkladığımda gelen isme göre textbox52 de yazı geçiyor.
ben yeni ismi tıkladığımda kayan yazının durması ve textbox52 nin sıfırlanması yada yeni isme göre yazması için ,verdiğiniz kodu nereye yada combobox1 e mi yazmalıyım?Umarım sıkmamışımdır.

 

[Levent Menteşoğlu]

Bunu dosyanızı görmeden söylemek çok zor, isterseniz örnek bir dosya ekleyin onun üzerinden gidelim.

 

[bravo64]

memnuniyetle ekte gönderiyorum..teşekkür ederim

 

[Levent Menteşoğlu]

Ekte hazırladığım örneği inceleyin.

 

[bravo64]

Sevgili Leventm,nesöyleyeceğimi bilemiyorum..Çok teşekkür ederim.
Son birşey,hızını azaltıp arttırmak için timer*7 değerini değiştiriyoruz sanırım değilmi?
birde uzun olan metinde ,başlangıç ile son arasındaki süre kısaltılabilirmi?
Kısa olan metinlerde ,yazı bitiminde hemen tekrar başlıyor ama uzun olduğunda arası epey açak..Aslında problem değil ama yinede sorayım dedim..
Ellerinize sağlık..

 

[Levent Menteşoğlu]

hızını azaltıp arttırmak için timer*7 değerini değiştiriyoruz sanırım değilmi?

Evet

birde uzun olan metinde ,başlangıç ile son arasındaki süre kısaltılabilirmi?

Bundan ne kasdettiğinizi anlayamadım.

Kısa olan metinlerde ,yazı bitiminde hemen tekrar başlıyor ama uzun olduğunda arası epey açak..

Evet bu şekilde kodu ilk geçiş bitince ikincisi başlayacak şekilde düşünmüştüm. Kesintisiz mi olsun istiyorsunuz?

 

[bravo64]

Evet lütfen kesintisiz yada kısa bir arada olabilir..
Ayrıca metin geçerken geçici olarak durdurabilirmiyim..(fazla lüx oldu ama)
teşekkürler

 

[Levent Menteşoğlu]

Ekteki örneği inceleyin.

Yazı fare ile üzerine geldiğinde duruyor, ayrıldığında tekrar çalışıyor,fakat kaldığı yerden değil tekrar baştan başlıyor, bu kısmını halledemedim. Ayrıca yazıda kesintisiz devam etmektedir.

 

[bravo64]

sevgili Leventm,çok teşekkür ederim süper oldu..
İyilikler diliyorum..

 

[Ecstasy]

güzel çalışma tebrikler Levent Hocam