Fragment programu, toretycznei dzialajacego w vb.net
Tutaj kod:
Public Class Form1
Public tbl_pl As String = "0123456789AĄBCĆDEĘFGHIJKLŁMNŃOÓPRSŚTUWYZŹŻaąbcćdeęfghijklłmnńoóprsśtuwyzźż"
Private Function LosujZnak(ByVal zestaw As String) As String
Dim lDl As Long
lDl = Len(zestaw)
If lDl = 0 Then LosujZnak = "" 'Exit Function
LosujZnak = Mid$(zestaw, CLng(Math.Round(Rnd() * lDl)), 1)
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = LosujZnak(tbl_pl) & LosujZnak(tbl_pl) & LosujZnak(tbl_pl) & LosujZnak(tbl_pl)
TextBox2.Text = LosujZnak(tbl_pl) & LosujZnak(tbl_pl) & LosujZnak(tbl_pl) & LosujZnak(tbl_pl)
TextBox3.Text = LosujZnak(tbl_pl) & LosujZnak(tbl_pl) & LosujZnak(tbl_pl) & LosujZnak(tbl_pl)
TextBox4.Text = LosujZnak(tbl_pl) & LosujZnak(tbl_pl) & LosujZnak(tbl_pl) & LosujZnak(tbl_pl)
End Sub
End Class
Blad jaki sie wyswietla jest w zalączniki,ale ogolnie chodzi o to ze. Po nacisnieciu guzika zakladam ze to przy wykonaniu pentli czy ifa wraz ze zerowaniem sie zmiennej wychodzi z programu czyt wywala blad ale nie wiem jak to poprawic, zeby bylo poprawnie. Jakas wskazowke bym prosil?
Dziekuje
dodanie kodu do treści posta - fp