Random alphbats in a textbox

Visual Basic:
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim strLetters() As String = "a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,".Split(",")
        Dim x As Integer = Int((26) * Rnd() + 1)
        TextBox1.AppendText(strLetters(x))
    End Sub
hope thats what your after :)
 
Visual Basic:
        Dim b As Byte = Convert.ToByte(New Random().Next(0, 25))
        TextBox1.AppendText(Convert.ToChar(b + 97))
 
Back
Top