Skocz do zawartości
Tay94

Własny ProgressBar w VB ?

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!

 

 

Witam 

Zastanawiam się jak by zrobić aby własny progressbar współgrał  z timerem czyli aby tego kodu nie traktowało jako błąd MyProgressBar1.Increment(1) macie może jakiś pomysł?

Tu masz przykladowy kod do keygena, oczywiscie z progress barem:

Public Class Form1    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load    End Sub    Private Function Generate() As String        Dim IntRnd(1) As Object        Dim intStep(1) As Object        Dim strName(1) As Object        Dim intNameLength(1) As Object        Dim intLength(1) As Object        Dim strInputstring(1) As Object        strInputstring(1) = "1234567890123456789012345674ABCDEFGHIJKLMNOPRSTUVWXYZ"        intLength(1) = Len(strinputstring(1))        intNameLength(1) = 5        Randomize()        strName(1) = ""        For intStep(1) = 1 To intNameLength(1)            intRnd(1) = Int((intLength(1) * Rnd()) + 1)            strname(1) = strName(1) & Mid(strInputstring(1), intRnd(1), 1)        Next        Generate = strName(1)    End Function    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click        End    End Sub    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged    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            Timer1.Stop()            TextBox1.Text = Generate() & "-" & Generate() & "-" & Generate() & "-" & Generate() & "-" & Generate()        End If    End Sub    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        Timer1.Start()    End SubEnd Class
Edytowane przez comanche
Odnośnik do komentarza

Automatyczna wiadomość


Ten temat został przeniesiony z "Dyskusje o Uploadingu" do "Visual Basic". Staraj się umieszczać tematy w odpowiednich działach :)

SeoTools - najlepsze narzędzia SEO, SEM, CPA

Chcesz zacząć zarabiać w internecie, ale nie wiesz jak? Szukasz inspiracji i nowych metod? Sprawdź:
>>> 13 sposobów jak zarabiać przez internet! - Zarabianie w Internecie <<<

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 .