14-11-24, 10:45 AM
السلام عليكم ورحمة الله وبركاته
لو سمحتوا انا عملت برنامج شات بين المستخدمين فى البرنامج بتاعي وخلصته والحمدلله
بستدعي المستخدمين داخل اداه FlowLayoutPanel
بس ناقصني شئ واحد وان استدعي عدد الرسائل الغير مقروءه لكل مستخدم بجانب اسمه
مثال
1- محمود ( 3 )
2- احمد ( 10 )
3- علي ( 7 )
انا مجهز فى جدول الشات ببرنامج سيكوال قدام كل رساله عدد الرسائل الغير مقروءه
المطلوب ازاي استدعيها من جدول تاني فى نفس وقت استدعاء المستخدمين
دا الكود اللى بستخدم بس بيحصل خطأ فى حاله استدعاء عدد الرسائل الغير مقروءه
برجاء التعديل فى الكود لاستدعاء المستخدمين مع عدد الرسائل الغير مقروءه
برجاء الافادة للضرورة لو سمحتوا ولكم جزيل الشكر
لو سمحتوا انا عملت برنامج شات بين المستخدمين فى البرنامج بتاعي وخلصته والحمدلله
بستدعي المستخدمين داخل اداه FlowLayoutPanel
بس ناقصني شئ واحد وان استدعي عدد الرسائل الغير مقروءه لكل مستخدم بجانب اسمه
مثال
1- محمود ( 3 )
2- احمد ( 10 )
3- علي ( 7 )
انا مجهز فى جدول الشات ببرنامج سيكوال قدام كل رساله عدد الرسائل الغير مقروءه
المطلوب ازاي استدعيها من جدول تاني فى نفس وقت استدعاء المستخدمين
دا الكود اللى بستخدم بس بيحصل خطأ فى حاله استدعاء عدد الرسائل الغير مقروءه
برجاء التعديل فى الكود لاستدعاء المستخدمين مع عدد الرسائل الغير مقروءه
كود :
Public Sub load_users()
con.Close()
FlowLayoutPanel1.AutoScroll = True
FlowLayoutPanel1.Controls.Clear()
cmd = New SqlCommand("select * from users where name_Branches ='" & frm_home.BarStaticItem2.Caption & "' and not fullname_user ='" & frm_home.BarStaticItem4.Caption & "' ORDER BY on_off", con)
dr = cmd.ExecuteReader
con.Open()
While dr.Read()
' خصائص الزر واستدعاء البيانات
Dim btt = New Guna.UI2.WinForms.Guna2Button
btt.Size = New Size(245, 60)
btt.Font = New Font("GE SS Two Light", 12, FontStyle.Bold)
Label11.Text = dr.Item("id_user").ToString
btt.Tag = dr.Item("id_user").ToString
btt.BackColor = Color.Transparent
btt.FillColor = Color.FromArgb(0, 62, 114)
btt.AutoRoundedCorners = True
Label10.Text = dr.Item("fullname_user").ToString
btt.TextAlign = HorizontalAlignment.Left
Label1.Text = dr.Item("sex_user").ToString
Label2.Text = dr.Item("on_off").ToString
'جلب صوره ذكر او انثي ومتصل او لا
If Label1.Text = "ذكر" And Label2.Text = "متصل" Then
btt.Image = My.Resources.راجل_اخضر
ElseIf Label1.Text = "ذكر" And Label2.Text = "مغلق" Then
btt.Image = My.Resources.راجل_احمر
ElseIf Label1.Text = "انثي" And Label2.Text = "مغلق" Then
btt.Image = My.Resources.بنت_احمر
ElseIf Label1.Text = "انثي" And Label2.Text = "متصل" Then
btt.Image = My.Resources.بنت_اخضر
End If
con.Close()
'استدعاء عدد الرسائل الغير مقروءه
Dim dt As New DataTable
dt.Clear()
ad = New SqlDataAdapter("select massage_report1 from massge_chat where id_user1 = '" + Label11.Text + "' and id_user2 = '" + frm_home.BarStaticItem12.Caption + "' ", con)
ad.Fill(dt)
If IsDBNull(dt(0)(0)) = True Then
Label12.Text = 0
Else
Label12.Text = dt(0)(0)
End If
btt.Text = Label10.Text & " ( " & Label12.Text & " )"
btt.ImageAlign = HorizontalAlignment.Right
btt.ImageSize = New Size(57, 57)
btt.ImageOffset = New Size(-8, 0)
FlowLayoutPanel1.Controls.Add(btt)
btt.Cursor = Cursors.Hand
End While
Debug.Close()
con.Close()
End Subبرجاء الافادة للضرورة لو سمحتوا ولكم جزيل الشكر
