Jaki kod pod textbox1 i button?

pytanie zadane 17 listopada 2018 w Visual Basic przez graj23x Obywatel (1,590 p.)

Jaki kod pod button gdzie po każdym kliknięciu w textboxie1 będą inne cyfry .Kod

komentarz 17 listopada 2018 przez quarry038 Użytkownik (520 p.)

Skopiuj i podaj kod w tzn. Bloczku kodu

To takie fajne coś

komentarz 17 listopada 2018 przez quarry038 Użytkownik (520 p.)

@graj23x,
I jeszcze polecam się zapoznać z regulaminem a dokładnie z punktem II.2.F oraz II.2.G

komentarz 18 listopada 2018 przez graj23x Obywatel (1,590 p.)

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ProgressBar1.Minimum = 0
        ProgressBar1.Maximum = 100
        Randomize()
        Dim x As Integer
        For x = 1 To 100
            ProgressBar1.Value = x
            ProgressBar1.Value = x - 1
            ProgressBar1.Value = x
            System.Threading.Thread.Sleep(3)
        Next
        TextBox1.Text = Strings.Right("12345678923455" & Int(Rnd() * 0), 14)
        TextBox1.Text = Strings.Right("445567112354" & Int(Rnd() * 0), 14)





    End Sub
End Class

komentarz 18 listopada 2018 przez graj23x Obywatel (1,590 p.)

Żeby po każdym nacisnięciu w button inne za każdym razem cyfry w textboxie1 się pojawialy

1 odpowiedź

odpowiedź 18 listopada 2018 przez quarry038 Użytkownik (520 p.)

Musisz dać: textbox, przycisk, Timer, ProgressBar

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Timer1.Stop()
        If ProgressBar1.Value = 10 Then
            TextBox1.Text = "14525252155341234554345654868546458634"
        ElseIf ProgressBar1.Value = 20 Then
            TextBox1.Text = "7658345746494376465396477477456646458000"
        ElseIf ProgressBar1.Value = 30 Then
            TextBox1.Text = "5367574495950606069594837375868797000324"
        ElseIf ProgressBar1.Value = 40 Then
            TextBox1.Text = "7658345746494376465396477477456646458000"
        ElseIf ProgressBar1.Value = 50 Then
            TextBox1.Text = "6465758687797970000867546464657676879799980004475656"
        ElseIf ProgressBar1.Value = 60 Then
            TextBox1.Text = "656566475756463535576768787989"
        ElseIf ProgressBar1.Value = 70 Then
            TextBox1.Text = "55564839880007952742841274174"
        ElseIf ProgressBar1.Value = 80 Then
            TextBox1.Text = "6564748696966757884525898422"
        ElseIf ProgressBar1.Value = 90 Then
            TextBox1.Text = "745841258567897654345675558745666990014"
        Else

            TextBox1.Text = "00000000066000012345678900987654321234567890"
        End If
        Timer1.Start()
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ProgressBar1.Visible = False
        Timer1.Start()
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(10)
        If ProgressBar1.Value = 100 Then
            ProgressBar1.Value = 0
        End If
    End Sub

Pokaż 7 poprzednich komentarzy

komentarz 20 stycznia 2019 przez graj23x Obywatel (1,590 p.)
edycja 20 stycznia 2019 przez graj23x

Przepisałem twój kod i jakiś błąd ?Pod oknem formularza takie coś wyskoczyło.\

2 Errors

1.Constant expression not representable in type 'Integer'.

2.'TextBox2' is not declared.It may be inaccessible due to its protection level.

Proszę o pomoc