Duyuruyu Kapat
Facebook Gözat
Twitter Gözat

richtextboxta alt satıra geçme

Konu, 'Visual Basic .Net' kısmında cetgu2007 tarafından paylaşıldı.

  1. cetgu2007

    cetgu2007 Yeni Üye

    Kayıt:
    26 Kasım 2008
    Mesajlar:
    7
    Beğenilen Mesajlar:
    0
    Dim i As Integer
    For i = 0 To 20
    RichTextBox1.Text = "tuğçe"
    Next i

    alt alta bu yazıyı 20 defa yazdırmak için ne yapabilirim?bana yardımcı olur musunuz?:)
     
  2. Cihan Yakar

    Cihan Yakar Daimi Üye

    Kayıt:
    8 Temmuz 2003
    Mesajlar:
    5,886
    Beğenilen Mesajlar:
    1
    Şehir:
    Ankara
    hangi vb o ?
    6 ise
    Kod:
    Dim i As Long
    For i = 1 To 20
            RichTextBox1.SelStart = Len(RichTextBox1.Text)
            RichTextBox1.SelText = "tuğçe" & vbCrLf
    Next i
    
     
  3. cetgu2007

    cetgu2007 Yeni Üye

    Kayıt:
    26 Kasım 2008
    Mesajlar:
    7
    Beğenilen Mesajlar:
    0
    vb.net yani 2005 e gore olacak.vb 6 değil.
     
  4. Astral

    Astral Yeni Üye

    Kayıt:
    19 Ekim 2008
    Mesajlar:
    18
    Beğenilen Mesajlar:
    0
    Kod:
    Dim i As Integer
            For i = 1 To 20
                RichTextBox1.SelectionStart = Len(RichTextBox1.Text)
                RichTextBox1.SelectedText = "tuğçe" & vbCrLf
            Next i
    
    Bu işini görür sanırım.
     
  5. Cihan Yakar

    Cihan Yakar Daimi Üye

    Kayıt:
    8 Temmuz 2003
    Mesajlar:
    5,886
    Beğenilen Mesajlar:
    1
    Şehir:
    Ankara
    vb.net de daha sağlıklı yol olduğu için vb6 diye örnekledim
    Kod:
            Dim strBuild As New System.Text.StringBuilder
            For i As Integer = 1 To 20
                strBuild.AppendLine("Tuğçe")
            Next
            RichTextBox1.Text = strBuild.ToString