Şimdi Ara

vb 6 textbox yazısını başa döndürmek!!

Bu Konudaki Kullanıcılar:
2 Misafir - 2 Masaüstü
5 sn
6
Cevap
0
Favori
153
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
0 oy
Öne Çıkar
Sayfa: 1
Giriş
Mesaj
  • Merhaba arkadaşlar ufak çaplı bir program yazıyorum şimdi ben timer'a bir kod yazdım ve bu kod textbox'un içindeki yazıyı otomatik olarak belirlediğim yere kadar gidiyor vve orada kalıyor ben başa dönmesini istiyorum.
    kod bu:
    Private Sub Timer2_Timer() 
    Static a As Integer
    a = a + 1

    If a = 1 Then
    Text1.Text = "merhaba"
    End If
    If a = 2 Then
    Text1.Text = "nasılsın"
    End If
    If a = 3 Then
    Text1.Text = "evdemisin"
    End If
    If a = 4 Then
    Text1.Text = "başa dön"
    End If
    If a = 5 Then
    Text1.Text = "lütfen"
    End If
    End Sub


    buradan sonra başa dönmesini istiyorum "lütfen" yazdıktan "merhaba" yazısına geri dönmesini istiyorum.



  • fable kullanıcısına yanıt
    VB ile pek alakam yok ama a=5 olduktan sonra "Text1.Text = "lütfen""'den sonra if'i bitirmeden a=0 yapabilirsin. Bu sayede timer çalıştığında a değeri yine 1 olur ve "merhaba"dan başlayarak tekrar eder.
  • GorunmezBKZ kullanıcısına yanıt
    Yapamadım hocam yani sonradan
    If a = 5 Then 
    Text1.Text = "lütfen"
    End If


    ben şu şekilde yaptım
    If a = 0 Then
    Text1.Text = "merhaba"
    End If
    bunu ekstra olarak ekledim. Olmadı acemisiyim biraz.
  • fable kullanıcısına yanıt
    Hocam siz "lütfen" yazısından sonra "merhaba"ya dönüp durmasını mı istiyorsunuz? Yoksa sürekli olarak "merhaba" "nasılsın" ... "lütfen" "merhaba" "nasılsın" gibi devam etmesini mi?

    Eğer sürekli olarak tekrar etmesini istiyorsanız:

     
    If a = 5 Then
    Text1.Text = "lütfen"
    a = 0
    End If


    "lütfen"den sonra "merhaba" yazısında kalmasını istiyorsanız:

    If a = 6 Then 
    Text1.Text = "merhaba"
    End If


    yapabilirsiniz. "merhaba" yazısında kalmasını başka yollarla da sağlayabilirsiniz belki ama aklıma bu geldi.
  • saol hocam ilk verdiğiniz kod oldu teşekkğr ederim.
  • 
Sayfa: 1
- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.