03-11-21, 06:03 PM
السلام عليكم و رحمة الله و بركاته
عندى سؤال صغير لكن مشكلة و هو الكود التالى يتم عرض بيانات من الجدوال مع شرطين و هو اذا كان المستخدام اونلاين يتم العرض فى listview1 واذا كان اوفلاين يتم العرض فى listview2
ازاى اقدر اصغر حجم الكود ده؟؟؟ بحيث ان يتم البحث عن وجمع جميع البيانات و بعد ذلك يتم فلترة البيانات اذا كان اونلاين يتم عرض ادخل listview1 و اذا كان اوفلاين يتم عرض ادخلlistview2
السؤال الثانى و هو عندى عمود داخل listview وده بيحمل رقم الصديق idfriend عايز اخفى العمود ده و يظهر اسم الصديق فقط namefriend
لكن فى حالة الضغط على اسم الصديق namefriend يتم اظهر رسائل تحتوى على الرقم idfriend الخاص به من العمود المخفى و اسف على الاطاله
عندى سؤال صغير لكن مشكلة و هو الكود التالى يتم عرض بيانات من الجدوال مع شرطين و هو اذا كان المستخدام اونلاين يتم العرض فى listview1 واذا كان اوفلاين يتم العرض فى listview2
ازاى اقدر اصغر حجم الكود ده؟؟؟ بحيث ان يتم البحث عن وجمع جميع البيانات و بعد ذلك يتم فلترة البيانات اذا كان اونلاين يتم عرض ادخل listview1 و اذا كان اوفلاين يتم عرض ادخلlistview2
كود :
Sub online()
If con.State = ConnectionState.Open Then con.Close()
Form1.ListView1.Columns.Add("idfriend", 80, HorizontalAlignment.Left)
Form1.ListView1.Columns.Add("namefriend", 80, HorizontalAlignment.Left)
Form1.ListView1.GridLines = True
con.Open()
Dim cmd As New SqlCommand("select * from userandfriend where iduser=('" & Form1.Label5.Text.ToString & "') and Status=('online')", con)
Dim da As SqlDataReader = cmd.ExecuteReader
Form1.ListView1.Items.Clear()
Do While da.Read = True
Dim list1 = Form1.ListView1.Items.Add(da(0))
list1.subitems.add(da(1))
Loop
If con.State = ConnectionState.Open Then con.Close()
End Sub
Sub offline()
If con.State = ConnectionState.Open Then con.Close()
Form1.ListView2.Columns.Add("idfriend", 80, HorizontalAlignment.Left)
Form1.ListView2.Columns.Add("namefriend", 80, HorizontalAlignment.Left)
Form1.ListView2.GridLines = True
con.Open()
Dim cmd As New SqlCommand("select idfriend,namefriend from userandfriend where iduser=('" & Form1.Label5.Text.ToString & "') and Status=('offline')", con)
Dim da As SqlDataReader = cmd.ExecuteReader
Form1.ListView2.Items.Clear()
Do While da.Read = True
Dim list1 = Form1.ListView2.Items.Add(da(0))
list1.subitems.add(da(1))
Loop
If con.State = ConnectionState.Open Then con.Close()
End Sub
السؤال الثانى و هو عندى عمود داخل listview وده بيحمل رقم الصديق idfriend عايز اخفى العمود ده و يظهر اسم الصديق فقط namefriend
لكن فى حالة الضغط على اسم الصديق namefriend يتم اظهر رسائل تحتوى على الرقم idfriend الخاص به من العمود المخفى و اسف على الاطاله
قال تعالى : يَامَعْشَرَ الْجِنِّ وَالإِنسِ إِنْ اسْتَطَعْتُمْ أَنْ تَنفُذُوا مِنْ أَقْطَارِ السَّمَاوَاتِ وَالأَرْضِ فَانفُذُوا لا تَنفُذُونَ إِلاّ بِسُلْطَانٍ