VB.NET Textbox Harf Üretme Alt Satıra Geçme (1 kişi)

Çirkin KraL

Admin
Destek Ekibi
Kurumsal Üye
Site Kurucu
Repo Ekibi
Apple Expert
Katılım
9 Eki 2019
Mesajlar
769
Tepkime puanı
1,612
Puanları
353
Yaş
32
Konum
samsun
Web sitesi
www.trappledestek.com
1 adet button
1 adet textbox ekliyoruz

Kod:
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Randomize()
        Dim harfler(16) As String
        harfler(7) = Chr(Math.Round(Rnd() * (122 - 97) + 97))
        harfler(8) = Chr(Math.Round(Rnd() * (122 - 97) + 97))
        harfler(9) = Chr(Math.Round(Rnd() * (122 - 97) + 97))
        harfler(10) = Chr(Math.Round(Rnd() * (122 - 97) + 97))
        harfler(11) = Chr(Math.Round(Rnd() * (122 - 97) + 97))
        harfler(12) = Chr(Math.Round(Rnd() * (122 - 97) + 97))
        harfler(13) = Chr(Math.Round(Rnd() * (122 - 97) + 97))
        harfler(14) = Chr(Math.Round(Rnd() * (122 - 97) + 97))
        harfler(15) = Chr(Math.Round(Rnd() * (122 - 97) + 97))
        harfler(16) = Chr(Math.Round(Rnd() * (122 - 97) + 97))
        TextBox1.SelectionStart = Len(TextBox1.Text)
        TextBox1.SelectedText = harfler(7) & harfler(8) & harfler(9) & harfler(10) & harfler(11) & harfler(12) & harfler(13) & harfler(14) & harfler(15) & harfler(16) & vbCrLf
    End Sub

End Class

7308


7309


7310
 

Bu konuyu okuyanlar konu

Üst