منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
بحث في اسطر listbox - نسخة قابلة للطباعة

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

الصفحات: 1 2

بحث في اسطر listbox - dasktop - 05-05-22

مرحبا


انا لدي مشروع ويحتوي على قائمة listbox وفي القائمة ارقام واريد ابحث قي الاسطر اذا فيها ارقام تختلف عن الارقام التالية 90 و 555 يضهر رسالة 

مثال 

قائمة listbox فيها ارقام هكذا 


555
90
444
يضهر رسالة لان الشرط ليس فيه 444 

استخدمت الكود التالي ولم ينجح ماهي المشكلة 



PHP كود :
  If ListBox2.Text =555 & 90  Then
               MsgBox("good")
           Else
               MsgBox("no")
           End If 


RE: بحث في اسطر listbox - ابو محمد محمد محمد - 05-05-22

انت لم تختبر كل القيم ولذلك يجب ان تستخدم الامر For

كود :
For int as integer=0 to listbox.Count-1

If ListBox2.Items(int)=555 & 90  Then
               MsgBox("good")
           Else
               MsgBox("no")
           End If 

next


RE: بحث في اسطر listbox - dasktop - 05-05-22

لم ينجح بسبب في عناصر مكرره بلقائمة listbox

مثال


555

90
90
444
444
444

فكيف نمنع تكرار العناصر في listbox

RE: بحث في اسطر listbox - سعود - 06-05-22

ماهي فكرة التعامل مع الليست بوكس ListBox

الكود التالي يمنع تكرار رقم معين يتم اضافته من TextBox الى  ListBox

PHP كود :
Dim index As Integer = ListBox1.Items.IndexOf(TextBox1.Text)
        If index = -1 Then
            ListBox1.Items.Add(TextBox1.Text)
            TextBox1.Clear()
            TextBox1.Focus()
            TextBox1.Select()
        Else
            TextBox1.Clear()
            TextBox1.Focus()
            TextBox1.Select()
            Beep()
        End If 


RE: بحث في اسطر listbox - dasktop - 06-05-22

(06-05-22, 02:00 AM)سعود كتب : ماهي فكرة التعامل مع الليست بوكس ListBox

الكود التالي يمنع تكرار رقم معين يتم اضافته من TextBox الى  ListBox

PHP كود :
Dim index As Integer = ListBox1.Items.IndexOf(TextBox1.Text)
        If index = -1 Then
            ListBox1.Items.Add(TextBox1.Text)
            TextBox1.Clear()
            TextBox1.Focus()
            TextBox1.Select()
        Else
            TextBox1.Clear()
            TextBox1.Focus()
            TextBox1.Select()
            Beep()
        End If 

مرحبا اخي سعود الارقام تنزل تلقائيا بال listbox

هاذا الكود لنزول الارقام 

PHP كود :
Dim ip As IPGlobalProperties = IPGlobalProperties.GetIPGlobalProperties
        Dim p As TcpConnectionInformation() = ip.GetActiveTcpConnections
        For Each t In p
            ListBox1.Items.Add(t.RemoteEndPoint.Port)
        Next 

ستشاهد الارقام متكرره نرغب بحذف التكرار لان مشروعي مكتمل بنسبة 95 بلمية وهو عبارة عن حماية لشبكة اول جدار ناري عربي كامل 
ساانزله هنا مع الاكواد مجانا

نرغب في كود يمنع تكرار اسطر الارقام في ال listbox فقط
نجح الكود كل الشكر لك اخي سعود

RE: بحث في اسطر listbox - سعود - 06-05-22

التعديل على كودك الاخير
PHP كود :
Dim ip As IPGlobalProperties = IPGlobalProperties.GetIPGlobalProperties
        Dim p As TcpConnectionInformation() = ip.GetActiveTcpConnections
        For Each t In p
            Dim index As Integer = ListBox1.Items.IndexOf(t.RemoteEndPoint.Port)
            If index = -1 Then
                ListBox1.Items.Add(t.RemoteEndPoint.Port)
            End If
        Next 


RE: بحث في اسطر listbox - dasktop - 06-05-22

المنع نجح ولم يتبقى سوى كود الشرط

اذا كان في ال listbox ارقام تختلف عن 443 و80 يضهر رسالة

استخدمت الكود التالي ولم ينجح ماهي المشكلة

For int As Integer = 0 To ListBox3.Items.Count - 1

If ListBox2.Items(int) = 443 & 80 Then
Else
Form3.Show()
End If

Next

RE: بحث في اسطر listbox - سعود - 06-05-22

(06-05-22, 04:17 AM)dasktop كتب : المنع نجح ولم يتبقى سوى كود الشرط

اذا كان في ال listbox  ارقام تختلف عن 443 و80 يضهر رسالة

استخدمت الكود التالي ولم ينجح ماهي المشكلة

For int As Integer = 0 To ListBox3.Items.Count - 1

           If ListBox2.Items(int) = 443 & 80 Then
           Else
               Form3.Show()
           End If

       Next

الكود التالي لا يضيف الا المنفذين 443 و 80
PHP كود :
Dim ip As IPGlobalProperties = IPGlobalProperties.GetIPGlobalProperties
        Dim p As TcpConnectionInformation() = ip.GetActiveTcpConnections
        For Each t In p
            Dim port As String = t.RemoteEndPoint.Port
            Dim index As Integer = ListBox1.Items.IndexOf(port)
            If index = -1 And (port = 443 Or port = 80) Then
                ListBox1.Items.Add(port)
            End If
        Next 


RE: بحث في اسطر listbox - dasktop - 06-05-22

(06-05-22, 04:25 AM)سعود كتب :
(06-05-22, 04:17 AM)dasktop كتب : المنع نجح ولم يتبقى سوى كود الشرط

اذا كان في ال listbox  ارقام تختلف عن 443 و80 يضهر رسالة

استخدمت الكود التالي ولم ينجح ماهي المشكلة

For int As Integer = 0 To ListBox3.Items.Count - 1

           If ListBox2.Items(int) = 443 & 80 Then
           Else
               Form3.Show()
           End If

       Next

الكود التالي لا يضيف الا المنفذين 443 و 80
PHP كود :
Dim ip As IPGlobalProperties = IPGlobalProperties.GetIPGlobalProperties
        Dim p As TcpConnectionInformation() = ip.GetActiveTcpConnections
        For Each t In p
            Dim port As String = t.RemoteEndPoint.Port
            Dim index As Integer = ListBox1.Items.IndexOf(port)
            If index = -1 And (port = 443 Or port = 80) Then
                ListBox1.Items.Add(port)
            End If
        Next 

المقصد اخي سعود ان الست بوك لدي يضيف منافذ كثيرة مفتوحة 

ارغب اذا في اللست بوكس منفذ يختلف عن المنافذ التالية يضهر رسالة msgbox 

مثال 

اذا فتحت متصفح تلقائيا ستضهر هذه المنافذ

443
80
وهاذا طبيعي 


واذا فتحت بعض البرامج يضهر منفذ جديد مثل 

443
80
9344
انا ارغب بتنبية اذا يوجد في ال listbox سطر جديد يختلف عن اسطر الارقام التالية 443 و80 يضهر رسالة 

والبرنامج ناجح جدا ولا ينقصة سوى هاذا الكود

RE: بحث في اسطر listbox - سعود - 06-05-22

اضف else للشرط واضف او عدل  على الموجود لينفذ المطلوب

التعديل على الكود لكنه سيتسبب بتكرار ظهور رسالة لكل منفذ ليس 443 او 80
PHP كود :
Dim ip As IPGlobalProperties = IPGlobalProperties.GetIPGlobalProperties
        Dim p As TcpConnectionInformation() = ip.GetActiveTcpConnections
        For Each t In p
            Dim port As String = t.RemoteEndPoint.Port
            Dim index As Integer = ListBox1.Items.IndexOf(port)
            If index = -1 And (port = 443 Or port = 80) Then
                ListBox1.Items.Add(port)
            ElseIf index = -1 And (port <> 443 Or port <> 80) Then
                MsgBox("توجد منافذ غير مدرجة", MsgBoxStyle.Exclamation, "تنبيه")
            End If
        Next