+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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
RE: بحث في اسطر listbox - dasktop - 06-05-22
نجح الكود كل الشكر لك استاذ سعود
سااسميك دكتور الفيوجال بيسك
RE: بحث في اسطر listbox - سعود - 06-05-22
(06-05-22, 05:06 AM)dasktop كتب : نجح الكود كل الشكر لك استاذ سعود
سااسميك دكتور الفيوجال بيسك
العفو اخي الكريم
RE: بحث في اسطر listbox - dasktop - 06-05-22
(06-05-22, 05:51 PM)سعود كتب :(06-05-22, 05:06 AM)dasktop كتب : نجح الكود كل الشكر لك استاذ سعود
سااسميك دكتور الفيوجال بيسك
العفو اخي الكريم
اخي سعود انا حدثت كودك التالي
PHP كود :
On Error Resume Next
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)
Else
If index = -1 And (port <> 443 Or port <> 80 ) Then
ListBox1.SetSelected(index)
MsgBox("توجد منافذ غير مدرجة", MsgBoxStyle.Exclamation, "تنبيه")
End If
End If
Next
بااضافة ListBox1.SelectedItem(index) اذا في منفذ يختلف عن 443 و80 يحدد عليه
ولم يحدد لماذا
RE: بحث في اسطر listbox - سعود - 06-05-22
إقتباس :ولم يحدد لماذاشي طبيعي لان بعد else لم نضف بنود الى الـ ListBox
اذا اردت ان يتم تحديد البورتات الاخرى تحتاج تفعيل الـ Selection Mod ضمن خصائص الـ ListBox ايضا نعدل شوي على الكود بحيث لا نستخدم else وانما بعد الانتهاء من الاسناد في الجملة الشرطية الاولى نخرج من الجملة ونقوم بتفحص القيم وبناءا عليه نحدد.
باذن الله ساعدل على الكود ان لم تسبقني ساكتب الكود.
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 Then
ListBox1.Items.Add(port)
End If
Next
For r As Integer = 0 To ListBox1.Items.Count - 1
Dim h As String = ListBox1.Items(r)
If (h <> 443 And h <> 80) Then
Dim i As Integer = ListBox1.Items.IndexOf(h)
ListBox1.SetSelected(i, True)
End If
Next
@@@@@@@@@@@@@@@@@@@@@@@@@
===================================
تعديـــــــــــــــل
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 Then
ListBox1.Items.Add(port)
End If
Next
For r As Integer = 0 To ListBox1.Items.Count - 1
Dim h As String = ListBox1.Items(r)
If (h <> 443 And h <> 80) Then
ListBox1.SetSelected(r, True)
End If
Next
RE: بحث في اسطر listbox - dasktop - 07-05-22
كل الشكر لك استاذ سعود وتم الانتهاء من البرنامج بنجاح
ويهمنا رايك هنا المشروع كامل
http://vb4arb.com/vb/showthread.php?tid=41363&pid=181946#pid181946