السلام عليكم ورحمة الله و بركاته
عندى سؤال و هو اريد فتح الفروم مره وحده فقط ولكن بتظهر اكتر من مره بنفس الاسم عادى
انا استخدام هذا الكود و هو شغل بدون اى مشكلة
كود :
If ListView1.SelectedItems.Count > 0 Then
Dim frm As New private_chat
frm.Text = "Spicy Messenger !" + ListView1.SelectedItems(0).SubItems(0).Text
frm.Label1.Text = ListView1.SelectedItems(0).SubItems(1).Text
frm.Show()
End If
الفكرها فى الكود ان بيتم اظهار فروم جديدة باسم جديد عن طريق listview مع نص
ولكن لو ضغط فى listview على نفس الاسم بتظهر الفوم تانية
انا اريد اذا كان اسم الفروم لى هو
"Spicy Messenger !" + ListView1.SelectedItems(0).SubItems(0).Text
غير موجود يتم اظهار بالاسم الجديدة من "Spicy Messenger !" + ListView1.SelectedItems(0).SubItems(0).Text
واذا كانت موجود يتم التنشيط بدون مفتحها من جديد؟
(15-11-21, 11:33 AM)5AMEES كتب : [ -> ] (15-11-21, 10:52 AM)alims كتب : [ -> ]السلام عليكم ورحمة الله و بركاته
عندى سؤال و هو اريد فتح الفروم مره وحده فقط ولكن بتظهر اكتر من مره بنفس الاسم عادى
انا استخدام هذا الكود و هو شغل بدون اى مشكلة
كود :
If ListView1.SelectedItems.Count > 0 Then
Dim frm As New private_chat
frm.Text = "Spicy Messenger !" + ListView1.SelectedItems(0).SubItems(0).Text
frm.Label1.Text = ListView1.SelectedItems(0).SubItems(1).Text
frm.Show()
End If
الفكرها فى الكود ان بيتم اظهار فروم جديدة باسم جديد عن طريق listview مع نص
ولكن لو ضغط فى listview على نفس الاسم بتظهر الفوم تانية
انا اريد اذا كان اسم الفروم لى هو "Spicy Messenger !" + ListView1.SelectedItems(0).SubItems(0).Text
غير موجود يتم اظهار بالاسم الجديدة من "Spicy Messenger !" + ListView1.SelectedItems(0).SubItems(0).Text
واذا كانت موجود يتم التنشيط بدون مفتحها من جديد؟
تفضل التعديل
كود :
If ListView1.SelectedItems.Count > 0 Then
Dim t = "Spicy Messenger !" + ListView1.SelectedItems(0).SubItems(0).Text
Dim f As Form = My.Application.OpenForms.Cast(Of Form).SingleOrDefault(Function(x As Form) x.Text = t)
If IsNothing(f) Then
Dim frm As New private_chat
frm.Text = t
frm.Label1.Text = ListView1.SelectedItems(0).SubItems(1).Text
frm.Show()
Else
f.Activate()
End If
End If
شكرا لك اخى العزيز يعمل بنجاح
(15-11-21, 11:48 AM)alims كتب : [ -> ] (15-11-21, 11:33 AM)5AMEES كتب : [ -> ] (15-11-21, 10:52 AM)alims كتب : [ -> ]السلام عليكم ورحمة الله و بركاته
عندى سؤال و هو اريد فتح الفروم مره وحده فقط ولكن بتظهر اكتر من مره بنفس الاسم عادى
انا استخدام هذا الكود و هو شغل بدون اى مشكلة
كود :
If ListView1.SelectedItems.Count > 0 Then
Dim frm As New private_chat
frm.Text = "Spicy Messenger !" + ListView1.SelectedItems(0).SubItems(0).Text
frm.Label1.Text = ListView1.SelectedItems(0).SubItems(1).Text
frm.Show()
End If
الفكرها فى الكود ان بيتم اظهار فروم جديدة باسم جديد عن طريق listview مع نص
ولكن لو ضغط فى listview على نفس الاسم بتظهر الفوم تانية
انا اريد اذا كان اسم الفروم لى هو "Spicy Messenger !" + ListView1.SelectedItems(0).SubItems(0).Text
غير موجود يتم اظهار بالاسم الجديدة من "Spicy Messenger !" + ListView1.SelectedItems(0).SubItems(0).Text
واذا كانت موجود يتم التنشيط بدون مفتحها من جديد؟
تفضل التعديل
كود :
If ListView1.SelectedItems.Count > 0 Then
Dim t = "Spicy Messenger !" + ListView1.SelectedItems(0).SubItems(0).Text
Dim f As Form = My.Application.OpenForms.Cast(Of Form).SingleOrDefault(Function(x As Form) x.Text = t)
If IsNothing(f) Then
Dim frm As New private_chat
frm.Text = t
frm.Label1.Text = ListView1.SelectedItems(0).SubItems(1).Text
frm.Show()
Else
f.Activate()
End If
End If
شكرا لك اخى العزيز يعمل بنجاح
أخي الكريم يظهر معي هذا الخطأ :
System.ArgumentOutOfRangeException : 'InvalidArgument=La valeur '1' n'est pas valide pour 'index'.
Nom du paramètre : index