ماهو كود منع ظهور نافذة باسم محدد لكن المتغير بخاصية label2.text
يعني مثلا لدي فورم باسم chat وضمن الادوات موجود ليبل يتغير محتواه بناء على قيمة في Listbox
فعند حدث ListBox1_MouseDoubleClick اريد كود يتحقق ان الليبل الموجودة بفورم معين تحمل نفس البند المحدد من Listbox فان كان نعم يتم تنشيط فورم الدردشة chat لنفس الاسم.
ارجو ان يكون السؤال واضح
وشكرا مقدما
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء، اللهم أصلح لي ديني الذي هو عصمة أمري، وأصلح لي دنياي التي فيها معاشي، وأصلح لي آخرتي التي فيها معادي، واجعل الحياة زيادة لي في كل خير، واجعل الموت راحة لي من كل شر
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي جدي وهزلي وخطأي وعمدي وكل ذلك عندي، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
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
22-01-14, 03:59 AM (آخر تعديل لهذه المشاركة : 22-01-14, 04:02 AM {2} بواسطة سعود.)
بارك الله فيك
لكن الـ 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
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء، اللهم أصلح لي ديني الذي هو عصمة أمري، وأصلح لي دنياي التي فيها معاشي، وأصلح لي آخرتي التي فيها معادي، واجعل الحياة زيادة لي في كل خير، واجعل الموت راحة لي من كل شر
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي جدي وهزلي وخطأي وعمدي وكل ذلك عندي، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
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
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء، اللهم أصلح لي ديني الذي هو عصمة أمري، وأصلح لي دنياي التي فيها معاشي، وأصلح لي آخرتي التي فيها معادي، واجعل الحياة زيادة لي في كل خير، واجعل الموت راحة لي من كل شر
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي جدي وهزلي وخطأي وعمدي وكل ذلك عندي، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
اخي الكريم اداة القائمة بفورم عرض المسجلين والليبل بفورم اخر اللي هو فورم الدردشة
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء، اللهم أصلح لي ديني الذي هو عصمة أمري، وأصلح لي دنياي التي فيها معاشي، وأصلح لي آخرتي التي فيها معادي، واجعل الحياة زيادة لي في كل خير، واجعل الموت راحة لي من كل شر
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي جدي وهزلي وخطأي وعمدي وكل ذلك عندي، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
(23-01-14, 10:28 PM)ربيع كتب : نحمده ونصلي على رسوله الكريم
جرب المثال التالي ارجو ان يكون مطلبك
ممتاز فعلا قد حصلت على مااريد.
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء، اللهم أصلح لي ديني الذي هو عصمة أمري، وأصلح لي دنياي التي فيها معاشي، وأصلح لي آخرتي التي فيها معادي، واجعل الحياة زيادة لي في كل خير، واجعل الموت راحة لي من كل شر
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي جدي وهزلي وخطأي وعمدي وكل ذلك عندي، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير