(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
واذا كانت موجود يتم التنشيط بدون مفتحها من جديد؟

(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

شكرا لك اخى العزيز يعمل بنجاح