[ابراهيم مراد]

السلام عليكم اريد كود يعد من 1 لحد 300
ع سبيل المثال
1
2
3
4
5
6
7
8
وهكذا
والنتيجه يكون فى التكست بوكس انا اريد بضغط زر يقوم بالعد من 1 الى 300
اتمنى المساعده منك

[سعود]

تفضل مثال سريع



وهذا الكلاس:

كود :

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

[ابراهيم مراد]

تفضل مثال سريع



وهذا الكلاس:

كود :

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

الف شكرا يا طيب القلب الله يوفقك ويسعدك يا مبدع