Własny ProgressBar w VB ?

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ł?

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

Automatyczna wiadomość


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

Tay94 zamiast 

MyProgressBar1.Increment(1) 

 Daj 

MyProgressBar1.Value += 10

Np.

 MyProgressBar1.Value += 10        If MyProgressBar1.Value = MyProgressBar1.Maximum Then            Timer1.Stop()End If