Skocz do zawartości

Przeźroczysty checkbox


markos

Rekomendowane odpowiedzi

Dołącz do nas za darmo i naucz się zarabiać!

  • Dostęp do darmowych poradników pokazujących krok po kroku jak zarabiać w Internecie
  • Sposoby zarabiania niepublikowane nigdzie indziej
  • Aktywna społeczność, która pomoże Ci rozwiązać problemy i doradzi
  • Profesjonalne treści na temat SEO, social media, afiliacji, kryptowalut i wiele więcej!

 

 

Mam jeszcze jeden problem.

Progress bar nie "idzie" i od razu wyświetla się klucz.

Public Class Form1    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GButton2.Click        End    End Sub            Private Sub GButton1_Click(sender As System.Object, e As System.EventArgs) Handles GButton1.Click        If RadioButton1.Checked = False AndRadioButton2.Checked = False Then            MessageBox.Show("Choose platform!", "Error")        Else            Timer1.Start()            ProgressBar1.Value = ProgressBar1.Minimum            If RadioButton1.Checked Then                RadioButton2.Enabled = False            End If            If RadioButton2.Checked Then                RadioButton1.Enabled = False            End If        End If    End Sub    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick        ProgressBar1.Increment(1)        If ProgressBar1.Value = ProgressBar1.Maximum Then        End If        Timer1.Stop()        MessageBox.Show("Key generated!", "Success!")        If RadioButton1.Checked Thenlosowanie_klucza:            Dim AA As Double = Int(Rnd() * 9999)            Dim BB As Double = Int(Rnd() * 9999)            Dim CC As Double = Int(Rnd() * 9999)            Dim DD As Double = Int(Rnd() * 9999)            Dim EE As Double = Int(Rnd() * 9999)            If AA > 1 And BB > 1 And CC > 1 And DD > 1 And EE > 1 Then                If AA + BB + CC + DD + EE = 35560 Then                    Dim klucz As String = AA & "-" & BB & "-" & CC & "-" & DD & "-" & EE                    klucz = klucz.Replace("2", "G")                    klucz = klucz.Replace("4", "Z")                    klucz = klucz.Replace("6", "S")                    klucz = klucz.Replace("8", "N")                    TextBox1.Text = klucz                    Exit Sub                Else                    GoTo losowanie_klucza                End If            Else                GoTo losowanie_klucza            End If        Else        End If        ProgressBar1.Increment(1)        If ProgressBar1.Value = ProgressBar1.Maximum Then        End If        Timer1.Stop()        If RadioButton2.Checked Thenlosowanie_klucza2:            Dim AA As Double = Int(Rnd() * 9999)            Dim BB As Double = Int(Rnd() * 9999)            Dim CC As Double = Int(Rnd() * 9999)            Dim DD As Double = Int(Rnd() * 9999)            Dim EE As Double = Int(Rnd() * 9999)            If AA > 1 And BB > 1 And CC > 1 And DD > 1 And EE > 1 Then                If AA + BB + CC + DD + EE = 38560 Then                    Dim klucz2 As String = AA & "-" & BB & "-" & CC & "-" & DD & "-" & EE                    klucz2 = klucz2.Replace("3", "F")                    klucz2 = klucz2.Replace("4", "Z")                    klucz2 = klucz2.Replace("5", "T")                    klucz2 = klucz2.Replace("8", "N")                    TextBox1.Text = klucz2                    Exit Sub                Else                    GoTo losowanie_klucza2                End If            Else                GoTo losowanie_klucza2            End If        End If        End    End SubEnd Class
Edytowane przez markos
Odnośnik do komentarza

Jeśli chcesz dodać odpowiedź, zaloguj się lub zarejestruj nowe konto

Jedynie zarejestrowani użytkownicy mogą komentować zawartość tej strony.

Zarejestruj nowe konto

Załóż nowe konto. To bardzo proste!

Zarejestruj się

Zaloguj się

Posiadasz już konto? Zaloguj się poniżej.

Zaloguj się
×
×
  • Dodaj nową pozycję...

Powiadomienie o plikach cookie

Ta strona korzysta z ciasteczek aby świadczyć usługi na najwyższym poziomie. Dalsze korzystanie z witryny oznacza zgodę na ich wykorzystanie. Polityka prywatności .