تقييم الموضوع :
  • 1 أصوات - بمعدل 5
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] مشكله فى listbox
#1
Bug 
السلام عليكم اخوانى الكرام
كيف يمكننى اجعل listbox ينتظر
تنفيذ الاكواد فى التايمر
وينتقل للسطر الثانى
ولكن المشكله ان بعمل
Timer1.Enabled = True
Timer1.Interval = 10000

Next
ومجرد ميخلص الوقت ينتقل للسطر اللى تحت بدون ما ينتظر تنفيذ الاكواد اللى فى التايمر
الرد
تم الشكر بواسطة:
#2
.....

ما علاقة ListBox بـ Timer، لو وضعت الأكواد قد تتضح الصورة مع الشرح

.....
الرد
تم الشكر بواسطة:
#3
(27-06-14, 11:22 PM)vbnet كتب : .....

ما علاقة ListBox بـ Timer، لو وضعت الأكواد قد تتضح الصورة مع الشرح

.....

Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
For r = 0 To ListBox1.Items.Count - 1
ListBox1.SetSelected(r, True)
Label1.Text = "join"
Timer1.Enabled = True
Timer1.Interval = 5000


Next
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Timer1.Enabled = False
If Label1.Text.Contains("join") Then
ListBox2.Items.Add(ListBox1.SelectedItem & Label1.Text)
End If
End Sub


End Class



حط فى لست بوكس 1
1
2
3
4
5
6
7
8
9
10
وجرب
الرد
تم الشكر بواسطة:
#4
.....

كود :
Public Class Form1

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        For r = 0 To ListBox1.Items.Count - 1
            ListBox1.SetSelected(r, True)
            Label1.Text = "join"
            fun()

            ' هذين السطرين فقط لترى العملية بشكل بطئ
            Application.DoEvents()
            Threading.Thread.Sleep(500)

        Next
    End Sub

    Private Sub fun()
        If Label1.Text.Contains("join") Then
            ListBox2.Items.Add(ListBox1.SelectedItem & Label1.Text)
        End If
    End Sub

End Class

لم أفهم سبب استخدام التايمر Timer

.....
الرد
تم الشكر بواسطة: ابراهيم مراد


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] كيف اجعل listbox تستوعب اكبر عدد ممكن من الكلمات او الارقام e-coder 1 61 16-04-18, 04:55 PM
آخر رد: e-coder
  [VB.NET] مشكله في كود " الفترة التجريبة " e-coder 11 253 31-03-18, 03:18 AM
آخر رد: سعود
  [سؤال] عندى مشكله بكود التعديل فى قاعده البيانات waleedsss 3 156 28-03-18, 12:31 AM
آخر رد: عبدالله الدوسري
  طلب بخصوص حساب عدد الصفوف في listbox ahmedfa71 2 99 08-03-18, 05:11 PM
آخر رد: ahmedfa71
  [VB.NET] كيف انقل محتويات listbox ...... e-coder 1 40 27-02-18, 09:20 AM
آخر رد: e-coder
  [VB.NET] كيفية تحويل هذا الكود من textbox الي listbox e-coder 1 67 26-02-18, 07:42 PM
آخر رد: silverlight
  مشكله فى الريبورت فييور نبيل فتحى 2 80 26-01-18, 02:25 PM
آخر رد: نبيل فتحى
  مشكله ضبط النص في كرستال ريبورت طـلال 3 88 24-01-18, 02:23 AM
آخر رد: طـلال
  [سؤال] تفعيل خاصية TextChanged للبحث عن عناصر listbox & وتفعيل زر Enter waelalmsry75 2 126 12-01-18, 07:58 PM
آخر رد: waelalmsry75
  للخبـراء مشكله تحويل صيغه طـلال 1 79 11-01-18, 04:29 PM
آخر رد: عبدالله الدوسري

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


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