تقييم الموضوع :
  • 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] استفسار :- مشكله اعاني منها كثير is not valid for 'rowIndex dubai.eig 0 23 أمس, 01:36 PM
آخر رد: dubai.eig
  [VB.NET] سؤال حول listbox farfour 3 86 24-11-18, 06:21 PM
آخر رد: Rabeea Qbaha
  مشكله عند الطباعة في crystal Report " - تم حل المشكلة Rabeea Qbaha 2 61 22-11-18, 10:13 PM
آخر رد: Rabeea Qbaha
Sad تواجهني مشكله في الحفظ memo_sweet 4 120 09-11-18, 01:54 AM
آخر رد: memo_sweet
  تحديث قائمة checked listbox alfauori 0 51 06-11-18, 07:40 AM
آخر رد: alfauori
  مشكله في الداتا سيت makky 2 84 05-11-18, 05:23 PM
آخر رد: makky
  عندي مشكله شبكه DOX.1 1 67 03-11-18, 11:18 PM
آخر رد: elgokr
  مشكله فى الداتا جريد فيو خالد كامل1 2 106 18-10-18, 02:56 AM
آخر رد: خالد كامل1
  مشكله فى حفظ قاعده بيانات اكسس فى مشروع فيجوال بيزك مع تلك القاعده خالد كامل1 2 124 16-10-18, 08:34 AM
آخر رد: خالد كامل1
  مشكله في كود الحفظ فراس محي 1 132 15-10-18, 04:19 PM
آخر رد: rnmr

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


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