تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] فتح الفروم مره وحده فقط
#1
السلام عليكم ورحمة الله و بركاته
عندى سؤال و هو اريد فتح الفروم مره وحده فقط ولكن بتظهر اكتر من مره بنفس الاسم عادى
انا استخدام هذا الكود و هو شغل بدون اى  مشكلة
كود :
  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
واذا كانت موجود يتم التنشيط بدون مفتحها من جديد؟
قال تعالى : يَامَعْشَرَ الْجِنِّ وَالإِنسِ إِنْ اسْتَطَعْتُمْ أَنْ تَنفُذُوا مِنْ أَقْطَارِ السَّمَاوَاتِ وَالأَرْضِ فَانفُذُوا لا تَنفُذُونَ إِلاّ بِسُلْطَانٍ
الرد
تم الشكر بواسطة:
#2
(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
الرد
تم الشكر بواسطة: alims , alims
#3
(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

شكرا لك اخى العزيز يعمل بنجاح
قال تعالى : يَامَعْشَرَ الْجِنِّ وَالإِنسِ إِنْ اسْتَطَعْتُمْ أَنْ تَنفُذُوا مِنْ أَقْطَارِ السَّمَاوَاتِ وَالأَرْضِ فَانفُذُوا لا تَنفُذُونَ إِلاّ بِسُلْطَانٍ
الرد
تم الشكر بواسطة:
#4
(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


    Heart ربي زدني علما  Heart

الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] اخفاء فروم الـ login - واظهار الفروم التالي Sanaa2 3 908 17-09-20, 01:37 AM
آخر رد: Sanaa2
  [VB.NET] اريد اضافة امر الغاء الامر او العملية اي عملية داخل الفروم بشكل كامل Ahmed TEAM YEMEN 8 1,669 25-05-20, 08:51 PM
آخر رد: Ahmed TEAM YEMEN
  [VB.NET] طلب كود توسيط اسم الفروم فى النصف MOSTAFA.KAMEL 5 2,151 30-09-17, 11:53 PM
آخر رد: MOSTAFA.KAMEL
  [سؤال] كيفية معرف اسماء كل Button الموجودة فى الفروم عن طريق كلاس alims 8 2,320 04-09-17, 11:27 PM
آخر رد: alims
  [VB.NET] FORM الفروم الشاشة محمد بوقزاحة 2 1,466 17-03-17, 06:55 PM
آخر رد: أسامة السالمي
  جدولين تتبعهم قيمه وحده كيف adel27 4 2,109 19-10-16, 06:15 PM
آخر رد: adel27
  [VB.NET] طلب حل مشكلة اغلاق الفروم mostfa1995 8 2,829 15-05-16, 05:08 PM
آخر رد: CLARO
  [سؤال] كيف تدمج ملفات الفروم ورك بأداه ILMerge Smsm Star 1 1,426 29-12-14, 02:33 AM
آخر رد: سعود
  طلب فتح الفروم الثاني وتنفيذ امر شمس الدين 03 2 1,462 21-06-14, 03:03 AM
آخر رد: aftfm
  فتح المتصفح الافتراضي في الفروم شمس الدين 03 7 2,370 19-06-14, 08:14 PM
آخر رد: شمس الدين 03

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


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