تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
بحث في اسطر listbox
#1
مرحبا


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

مثال 

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


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

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



PHP كود :
  If ListBox2.Text =555 90  Then
               MsgBox
("good")
 
          Else
 
              MsgBox("no")
 
          End If 
الرد }}}
تم الشكر بواسطة:
#2
انت لم تختبر كل القيم ولذلك يجب ان تستخدم الامر 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
الرد }}}
تم الشكر بواسطة: dasktop , ابو انس
#3
لم ينجح بسبب في عناصر مكرره بلقائمة listbox

مثال


555

90
90
444
444
444

فكيف نمنع تكرار العناصر في listbox
الرد }}}
تم الشكر بواسطة: ابو انس
#4
ماهي فكرة التعامل مع الليست بوكس 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 
الرد }}}
تم الشكر بواسطة: dasktop , ابو انس
#5
(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 فقط

نجح الكود كل الشكر لك اخي سعود
الرد }}}
تم الشكر بواسطة: ابو انس
#6
التعديل على كودك الاخير
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 
الرد }}}
تم الشكر بواسطة: dasktop , ابو انس
#7
المنع نجح ولم يتبقى سوى كود الشرط

اذا كان في ال 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
الرد }}}
تم الشكر بواسطة: ابو انس , ابو انس
#8
(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 = -And (port 443 Or port 80Then
                ListBox1
.Items.Add(port)
 
           End If
 
       Next 
الرد }}}
تم الشكر بواسطة: dasktop , dasktop , ابو انس
#9
(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 = -And (port 443 Or port 80Then
                ListBox1
.Items.Add(port)
 
           End If
 
       Next 

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

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

مثال 

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

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


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

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

والبرنامج ناجح جدا ولا ينقصة سوى هاذا الكود
الرد }}}
تم الشكر بواسطة: ابو انس , ابو انس
#10
اضف 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 = -And (port 443 Or port 80Then
                ListBox1
.Items.Add(port)
 
           ElseIf index = -And (port <> 443 Or port <> 80Then
                MsgBox
("توجد منافذ غير مدرجة"MsgBoxStyle.Exclamation"تنبيه")
 
           End If
 
       Next 
الرد }}}
تم الشكر بواسطة: dasktop , ابو انس



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


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