منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[كود] طلب كود زيادة رقم - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [كود] طلب كود زيادة رقم (/showthread.php?tid=2514)



طلب كود زيادة رقم - ابراهيم مراد - 09-04-14

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



RE: طلب كود زيادة رقم - سعود - 09-04-14

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



وهذا الكلاس:
كود :
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



RE: طلب كود زيادة رقم - ابراهيم مراد - 09-04-14

(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

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