تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] طلب كود زيادة رقم
#1
Bug 
السلام عليكم اريد كود يعد من 1 لحد 300
ع سبيل المثال
1
2
3
4
5
6
7
8
وهكذا
والنتيجه يكون فى التكست بوكس انا اريد بضغط زر يقوم بالعد من 1 الى 300
اتمنى المساعده منك
الرد }}}}
تم الشكر بواسطة:
#2
تفضل مثال سريع



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


الملفات المرفقة
.zip   For_Ibraheem_Murad.zip (الحجم : 28.05 ك ب / التحميلات : 46)
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة: kslawy , مالكـ
#3
Exclamation 
(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

الف شكرا يا طيب القلب الله يوفقك ويسعدك يا مبدع
الرد }}}}
تم الشكر بواسطة: سعود , kslawy


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طلب زيادة قيمة في الداتا جريد فيو Codack 3 179 19-07-16, 08:32 PM
آخر رد: Codack
Rainbow [سؤال] زيادة حجم جدول فى قاعدة البيانات manduh 2 647 07-05-14, 11:33 PM
آخر رد: manduh
  [سؤال] زيادة ارتفاع الفورم أبو ضحى 2 475 18-03-14, 09:58 PM
آخر رد: silverlight
  ارجوا الافادة كيفية زيادة عدد المنتج من امر الشراء كلاً في داتا ست منفصل abokhadra 1 358 09-05-13, 01:43 PM
آخر رد: abokhadra

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم