تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] ماهو كود منع ظهور نافذة باسم محدد لكن...
#1
ماهو كود منع ظهور نافذة باسم محدد لكن المتغير بخاصية label2.text
يعني مثلا لدي فورم باسم chat وضمن الادوات موجود ليبل يتغير محتواه بناء على قيمة في Listbox
فعند حدث ListBox1_MouseDoubleClick اريد كود يتحقق ان الليبل الموجودة بفورم معين تحمل نفس البند المحدد من Listbox فان كان نعم يتم تنشيط فورم الدردشة chat لنفس الاسم.

ارجو ان يكون السؤال واضح

وشكرا مقدما
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
أظن أني فقدت من يسمع صوتي ويلبي طلبي ويسمع شكواي في المنتدى
رحمك الله أبا الليث
الرد }}}}
تم الشكر بواسطة:
#2
نحمده ونصلي على رسوله الكريم
كود :
Private Sub listBox1_MouseDoubleClick(sender As Object, e As MouseEventArgs)
    For Each f As Form In Application.OpenForms
        If Break(f) Then
            f.Activate()
            Exit For
        End If
    Next
End Sub

Private Function Break(form As Form) As Boolean
    For Each ctrl As Control In form.Controls
        If TypeOf ctrl Is Label AndAlso ctrl.Text = listBox1.Text Then
            Return True
        End If
    Next

    Return False
End Function
الرد }}}}
تم الشكر بواسطة: سعود , kslawy , prj
#3
بارك الله فيك
لكن الـ Listbox بفورم عرض المسجلين والليبل بفورم الدردشة

كود :
Private Sub ListBox1_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseDoubleClick
        ' MsgBox(ListBox1.Text)



        Dim chat As New chat
        Dim gip As New SqlCommand("select uname,myip from tusers where uname='" & ListBox1.Text & "'", conn)
        If conn.State = ConnectionState.Closed Then
            conn.Open()
        End If
        Dim dr As SqlDataReader = gip.ExecuteReader
        If dr.Read Then
            Try
                chat.frindname.Text = ListBox1.Text
                frindip = dr.Item("myip")
                chat.Show()

            Catch ex As Exception
                MsgBox("هذا العضو لم يسجل دخوله ليتم تحديث معلومات الاتصال به", MsgBoxStyle.Critical, "")
            End Try


        End If



    End Sub
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
أظن أني فقدت من يسمع صوتي ويلبي طلبي ويسمع شكواي في المنتدى
رحمك الله أبا الليث
الرد }}}}
تم الشكر بواسطة: ربيع
#4
جرب التالي:
كود :
Private Sub ListBox1_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseDoubleClick
        ' MsgBox(ListBox1.Text)
    dim stop as Boolean
    For Each f As Form In Application.OpenForms
        If Break(f) Then
            f.Activate()
            stop = true
            Exit For
        End If
    Next

    if stop then exit sub

        Dim chat As New chat
        Dim gip As New SqlCommand("select uname,myip from tusers where uname='" & ListBox1.Text & "'", conn)
        If conn.State = ConnectionState.Closed Then
            conn.Open()
        End If
        Dim dr As SqlDataReader = gip.ExecuteReader
        If dr.Read Then
            Try
                chat.frindname.Text = ListBox1.Text
                frindip = dr.Item("myip")
                chat.Show()

            Catch ex As Exception
                MsgBox("هذا العضو لم يسجل دخوله ليتم تحديث معلومات الاتصال به", MsgBoxStyle.Critical, "")
            End Try


        End If



    End Sub

Private Function Break(form As Form) As Boolean
    For Each ctrl As Control In form.Controls
        If TypeOf ctrl Is Label AndAlso ctrl.Text = listBox1.Text Then
            Return True
        End If
    Next

    Return False
End Function
الرد }}}}
تم الشكر بواسطة: سعود , prj
#5
اين المكان الصحيح لوضع الدالة Break
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
أظن أني فقدت من يسمع صوتي ويلبي طلبي ويسمع شكواي في المنتدى
رحمك الله أبا الليث
الرد }}}}
تم الشكر بواسطة:
#6
الم يعمل الكود بالشكل المطلوب؟
الرد }}}}
تم الشكر بواسطة:
#7
اخي الكريم اداة القائمة بفورم عرض المسجلين والليبل بفورم اخر اللي هو فورم الدردشة
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
أظن أني فقدت من يسمع صوتي ويلبي طلبي ويسمع شكواي في المنتدى
رحمك الله أبا الليث
الرد }}}}
تم الشكر بواسطة:
#8
نحمده ونصلي على رسوله الكريم

جرب المثال التالي ارجو ان يكون مطلبك


الملفات المرفقة
.rar   Forms.rar (الحجم : 16.7 ك ب / التحميلات : 51)
الرد }}}}
تم الشكر بواسطة: سعود
#9
(23-01-14, 10:28 PM)ربيع كتب : نحمده ونصلي على رسوله الكريم

جرب المثال التالي ارجو ان يكون مطلبك

ممتاز فعلا قد حصلت على مااريد.
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
أظن أني فقدت من يسمع صوتي ويلبي طلبي ويسمع شكواي في المنتدى
رحمك الله أبا الليث
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ما أسباب ظهور هذه الرسالة KH_Alaswad 2 76 أمس, 11:03 AM
آخر رد: KH_Alaswad
  [VB.NET] ظهور الكابتشا داخل البرنامج moshax 2 143 25-03-17, 11:21 PM
آخر رد: moshax
  [سؤال] كيف اجعل زر او نافذة تساوى صورة ليست فى الريسورس ولكن على الجهاز؟؟؟ Mohamed371 3 140 24-03-17, 10:21 AM
آخر رد: أسامة السالمي
  [VB.NET] ظهور رساله لما ابغى اربط اكسس بالفجول بيسك a.baomar 3 73 11-03-17, 03:24 AM
آخر رد: khodor1985
  استفسار بخصوص عدم ظهور اداة عرض ملف pdf في الادوات عباسة 7 209 22-02-17, 08:07 PM
آخر رد: عباسة
  ظهور خطا عند حذف ملف HATEM KAREM 2 77 17-02-17, 03:14 AM
آخر رد: HATEM KAREM
  طريقة ظهور اسم المستخدم في جميع صفحات الويب عباسة 0 110 14-02-17, 03:17 PM
آخر رد: عباسة
  فصل جزء من ايمج بلون محدد الى ايمج اخرى على الفورم samira20 3 152 19-01-17, 03:09 PM
آخر رد: silverlight
  ظهور صورة بعد الرفع ابو روضة 3 246 09-01-17, 01:36 PM
آخر رد: LoveVb
  تعديل الكود (ظهور مسج بوكس عند عدم وجود الاسم) Namer 10 604 04-01-17, 01:12 AM
آخر رد: Namer

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


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