بارك الله فيك
لكن الـ Listbox بفورم عرض المسجلين والليبل بفورم الدردشة
لكن الـ 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اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير

