منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

مرحبا

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

مثال

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

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

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

PHP كود :

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

انت لم تختبر كل القيم ولذلك يجب ان تستخدم الامر 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

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

مثال

555

90
90
444
444
444

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

ماهي فكرة التعامل مع الليست بوكس 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 

(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 فقط

نجح الكود كل الشكر لك اخي سعود

التعديل على كودك الاخير

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 

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

اذا كان في ال 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

(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 

(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 يضهر رسالة

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

اضف 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 