منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

(09-04-14, 09:22 AM)سعود كتب : [ -> ]تفضل مثال سريع



وهذا الكلاس:

كود :

Public Class Form1

  
    Private Sub fill(ByVal t As String)
        If TextBox1.InvokeRequired Then
            TextBox1.Invoke(New Action(Of String)(AddressOf fill), t)
        Else
            TextBox1.AppendText(t & vbNewLine)
        End If
    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        If bb.IsBusy = False Then
            p.Value = 0
            p.Minimum = 0
            p.Maximum = 300
            bb.RunWorkerAsync()
        End If
    End Sub

    Private Sub bb_DoWork(sender As System.Object, e As System.ComponentModel.DoWorkEventArgs) Handles bb.DoWork
        For a = 1 To 300
            fill(a)
            bb.ReportProgress(a)
        Next
    End Sub

    Private Sub bb_ProgressChanged(sender As Object, e As System.ComponentModel.ProgressChangedEventArgs) Handles bb.ProgressChanged
        p.Value = e.ProgressPercentage
    End Sub
End Class