تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] كيفية اخفاء عمود و تصغير حجم الكود listview
#1
Information 
السلام عليكم و رحمة الله و بركاته
عندى سؤال صغير لكن مشكلة و هو الكود التالى يتم عرض بيانات من الجدوال مع شرطين و هو اذا كان المستخدام اونلاين يتم العرض فى 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 الخاص به من العمود المخفى و اسف على الاطاله
قال تعالى : يَامَعْشَرَ الْجِنِّ وَالإِنسِ إِنْ اسْتَطَعْتُمْ أَنْ تَنفُذُوا مِنْ أَقْطَارِ السَّمَاوَاتِ وَالأَرْضِ فَانفُذُوا لا تَنفُذُونَ إِلاّ بِسُلْطَانٍ
الرد }}}
تم الشكر بواسطة: أشرف كريم 2 , ابراهيم ايبو
#2
تفضل اخي الكريم

كود :
   Sub PopulateListViews()
       If Con.State = ConnectionState.Open Then Con.Close()

       For Each lst As ListView In {ListView1, ListView2}
           'lst.Columns.Add("idfriend", 80, HorizontalAlignment.Left)
           lst.Columns.Add("namefriend", 80, HorizontalAlignment.Left)
           lst.GridLines = True
       Next




       Con.Open()
       Dim cmd As New SqlCommand("select * from userandfriend where iduser=('" & Label5.Text.ToString & "')", Con)
       Dim da As SqlDataReader = cmd.ExecuteReader



       Do While da.Read = True
           Dim lst As ListView = If(da("Status") = "online", ListView1, ListView2)
           Dim i As New ListViewItem(da("namefriend").ToString)
           i.SubItems.Add(da("idfriend"))
           lst.Items.Add(i)
       Loop


       If Con.State = ConnectionState.Open Then Con.Close()
   End Sub


اما السؤال الثاني فكل ما عليك هو عدم اضافة العمود من البداية ولن يظهر ، عندما تضيف SubItem فانه لن يظهر
الرد }}}
تم الشكر بواسطة: أشرف كريم 2 , alims , ابراهيم ايبو
#3
شكرا لك اخي العزيز و لكن اريد عند الضغط على اسم الصديق يتم أظهر رقم الصديق في رسالة نصيه مع إخفاء عمود رقم الصديق
قال تعالى : يَامَعْشَرَ الْجِنِّ وَالإِنسِ إِنْ اسْتَطَعْتُمْ أَنْ تَنفُذُوا مِنْ أَقْطَارِ السَّمَاوَاتِ وَالأَرْضِ فَانفُذُوا لا تَنفُذُونَ إِلاّ بِسُلْطَانٍ
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو
#4
Information 
الحمد الله تم حل المشكلة وهي إخفاء العمود رقم الصديق و عند الضغط على اسم الصديق يتم أظهر الرقم و ده الكود المستخدام Idea
كود :
Listview1. Columns(1).width=0
If Listview1. Selectitems.count > 0 then
Msgbox(Listview1. Selectitems(0).subitems(1).text)
Else
End if

عندي سؤال تاني واسف على الازعاج يوجد حقل في نفس الجدول اسمو friendimg من نوع imageوده بيكون صور الصديق عايز الصورة تظهر بجانب اسم المستخدام
قال تعالى : يَامَعْشَرَ الْجِنِّ وَالإِنسِ إِنْ اسْتَطَعْتُمْ أَنْ تَنفُذُوا مِنْ أَقْطَارِ السَّمَاوَاتِ وَالأَرْضِ فَانفُذُوا لا تَنفُذُونَ إِلاّ بِسُلْطَانٍ
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو
#5
اضفت ImageList1 وقمت باسنادها للخاصية LargeImageList و SmallImageList في ال listview الاثنان

ثم عدلت حلقة التكرار في الكود الى 

كود :
  Do While da.Read = True
            Dim status As String = da("status")
            Dim friendid As Integer = da("idfriend")
            Dim namefriend As String = da("namefriend")
            Dim friendimg As Byte() = da("friendimg")
            Dim lst As ListView = If(status = "online", ListView1, ListView2)

            Dim i As New ListViewItem(namefriend, friendid.ToString)
            ImageList1.Images.Add(friendid.ToString, ImgFromByte(friendimg))
            i.SubItems.Add(friendid)
            lst.Items.Add(i)
        Loop


قمت بتعريف الدالة التالية

كود :
 Function ImgFromByte(img As Byte()) As Bitmap
       Using ms As New MemoryStream(img)
           Return New Bitmap(ms)
       End Using
   End Function
   

ارفقت مثال قمت بعمله حسب فكرتك وكذلك قاعدة البيانات الخاصة به


الملفات المرفقة
.zip   OnlineOffline.zip (الحجم : 17.23 ك ب / التحميلات : 13)
.zip   Friends.zip (الحجم : 549.63 ك ب / التحميلات : 19)
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو , أشرف كريم 2 , alims
#6
شكرا ليك اخى انس ولكن حاولت عرض الصورة ولا انجاح فى ذلك و اريد عند الضغط على الاسم يظهر رسائل بارقم id للصديق 
وحاولت فتح المثل ولكن الاصدار الفيجوال عندى قديم 2010 اسف على الازعاج اخى الكريم
       

الحمد االكود يعمل بنجاح
كود :
Imports System
Imports System.Drawing
Imports System.Data.SqlClient
Imports System.IO
Public Class Form2
   Dim con As New System.Data.SqlClient.SqlConnection("Data Source=DESKTOP-SNS2QF4;Initial Catalog=SpicyMessenger;Integrated Security=True")
   Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       PopulateListViews()
   End Sub
   Private Sub ListView1_DoubleClick(ByVal sender As Object, ByVal e As EventArgs) Handles ListView1.DoubleClick, ListView2.DoubleClick
       Dim lst As ListView = sender
       If lst.SelectedItems.Count > 0 Then
           MsgBox(lst.SelectedItems(0).SubItems(1).Text)
       End If
   End Sub
   Function ImgFromByte(ByVal img As Byte()) As Bitmap
       Using ms As New MemoryStream(img)
           Return New Bitmap(ms)
       End Using
   End Function
   Sub PopulateListViews()
       If Con.State = ConnectionState.Open Then Con.Close()

       For Each lst As ListView In {ListView1, ListView2}
           'lst.Columns.Add("idfriend", 80, HorizontalAlignment.Left)
           lst.Columns.Add("namefriend", 80, HorizontalAlignment.Left)
           lst.GridLines = True
       Next
       con.Open()
       Dim cmd As New SqlCommand("SELECT useraddnew.id,useraddnew.surnameandname,useraddnew.img,userandfriend.Status FROM userandfriend INNER JOIN useraddnew ON userandfriend.idfriend = useraddnew.id WHERE (userandfriend.id = '60')", con)
       Dim da As SqlDataReader = cmd.ExecuteReader
       Do While da.Read = True
           Dim friendid As Integer = da("id")
           Dim namefriend As String = da("surnameandname")
           Dim friendimg As Byte() = da("img")
           Dim lst As ListView = If(da("Status") = "online", ListView1, ListView2)
           Dim i As New ListViewItem(namefriend, friendid.ToString)
           ImageList1.Images.Add(friendid.ToString, ImgFromByte(friendimg))
           i.SubItems.Add(friendid)
           lst.Items.Add(i)
       Loop
       If con.State = ConnectionState.Open Then con.Close()
   End Sub
End Class
قال تعالى : يَامَعْشَرَ الْجِنِّ وَالإِنسِ إِنْ اسْتَطَعْتُمْ أَنْ تَنفُذُوا مِنْ أَقْطَارِ السَّمَاوَاتِ وَالأَرْضِ فَانفُذُوا لا تَنفُذُونَ إِلاّ بِسُلْطَانٍ
الرد }}}
تم الشكر بواسطة: Anas Mahmoud


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة فى جمع عمود فى داتا جريد فيو احمد خطاب 3 152 06-03-24, 07:49 PM
آخر رد: احمد خطاب
  تعديل بيانات عمود DataGridView دفعة واحدة مصمم هاوي 2 164 05-03-24, 08:27 PM
آخر رد: مصمم هاوي
  ممكن حل المشكلة فى الكود التالي - من مشاركة استاذنا القدير / عبدالله الدوسري new_programer 4 169 02-03-24, 07:36 PM
آخر رد: new_programer
  كيفية جمع أرقام عمود فى الداتا جريد فيو بناءاً على بيانات معينة heem1986 5 223 25-02-24, 11:26 PM
آخر رد: heem1986
  ماهو حل هذا الخطأ في الكود melad2002 7 264 25-02-24, 12:25 AM
آخر رد: justforit
  كيفية تنفيذ امر عند التعليم على checkbox بالداتا جريد فيو heem1986 2 158 21-02-24, 01:37 AM
آخر رد: heem1986
  كيفية انشاء سكريبت لقاعدة بيانات من خلال الكود heem1986 1 194 20-02-24, 12:00 AM
آخر رد: Kamil
  كيفية تنفيذ أمر عرض بيانات من فورم ثان مصمم هاوي 7 329 19-02-24, 12:28 AM
آخر رد: مصمم هاوي
  كيفية حفظ وتحزيم المشروع وتشغيله كبرنامج علىجميع الاجهزة الرائد 3 1,124 18-02-24, 10:37 PM
آخر رد: الحزين اليماني
  حل مشكلة فى listview malekmohamed155 1 211 19-01-24, 06:19 PM
آخر رد: malekmohamed155

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


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