الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

تلوين الــ listveiw طبقا لنتيجة البحث

بدأه sekora في 20 مايو 2011 · 11 رد · 828 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

الســلام عليكم ورحمة الله وبركاته

الاخوة الكرام فى منتدانا الفريق العربى . . . . تحية طيبة

اشكركم على المجهود الرائع بالمنتدى والذى لا شك انا كل سؤال واجابه نتعلم منها وفقكم الله وياكم جميعا ونتمنى المزيد

لغة البرمجه المستخدمه الفيجوال دوت نت 2005 وقواعد SQL Server Express 2005

استخدم الكود التالى يعرض نتيجة بحث فى الـ listveiw1


Public Sub listvew1()
'العرض فى الليست فيو بيانات التسجيل
'معرفة حالة الاتصال العام
If GSQLConnection.State <> ConnectionState.Open Then
' إجراء الاتصال العام من المديول
GeneralConnection()
End If
Try
GSQLCmd.CommandText = "select * from Subscription where Memid='" & MeMNo.Text & "'"
GSQLCmd.CommandType = CommandType.Text
GDR = GSQLCmd.ExecuteReader
Dim AddToList As New ListViewItem
Me.ListView1.Items.Clear()
Do While GDR.Read
AddToList = Me.ListView1.Items.Add(GDR.GetSqlString(0))
AddToList.SubItems.Add(1).Text = GDR.GetSqlString(1)
AddToList.SubItems.Add(1).Text = GDR.GetSqlString(2)
AddToList.SubItems.Add(1).Text = GDR.GetSqlString(3)
Application.DoEvents()
Loop
GDR.Close()

Catch exp As Exception
MsgBox(exp.Message)
End Try
End Sub

اريد اضافة التلوين فى نتيجة البحث بمعنى 
اذا كان الحقل يساوى كلمة ( يعمل ) اللون = (احمر) 
واذا كان الحقل = (لا يعمل) اللون يساوى( اخضر ) 
ونتيجة البحث هيكون فيها ( يعمل ولا يعمل ) يعنى سجلات تعمل وسجلات لا تعمل 
الكود المستخدم فى عرض نتيجة البحث فى الــ listvew1 والذى اريد استخدام نفس اكواد الاتصال
اتمنى ان تكون الفكره واضحه
فى انتظار ردودكم
وفقكم الله جميعا 
سلام الله عليكم

      
      

      
    

  

    
    

      
#2
        
        

      
السلام عليكم ورحمه الله وبركاته
اخي ارفقت لك مثال لتوضيح الفكره بس استخدمت Class بدلا من الجدول .. المهم شوف الفكره
WindowsApplication1.zip

      
      

      
.:: Wish to become better and better ::.

    

  

    
    

      
#3
        
        

      
اشكرك اخى الكريم على ردك واهتمامك البروجيكت لم يعمل على 2005 لغة البرمجه المستخدمه الفيجوال دوت نت 2005 وقواعد SQL Server Express 2005

      
      

      
    

  

    
    

      
#4
        
        

      
السلام عليكم ورحمه الله وبركاته
اخي انا عملت المشروع بالفيجوال ستوديو 2010 يمكنك انشاء مشروع جديد ومن Add Existing Item قم باضافة الفورم الذي ارفقته ..

      
      

      
.:: Wish to become better and better ::.

    

  

    
    

      
#5
        
        

      
السلام عليكم ورحمه الله وبركاته
اخى الكريم قمت بعمل بروجيكت جديد واضفت الفورم لكن الكود غير واضح تمنياتى ان توضع فكرة التلوين باستخدام نفس الكود مضافا عليه شرط التلوين
اشكرك مره اخرى وبانتظار ردودكم

      
      

      
    

  

    
    

      
#6
        
        

      
السلام عليكم ورحمه الله وبركاته
اخي اول حاجه زبط معاك الكود ..

      
      

      
.:: Wish to become better and better ::.

    

  

    
    

      
#7
        
        

      
لا اخى

      
      

      
    

  

    
    

      
#8
        
        

      
السلام عليكم ورحمه الله وبركاته
اخي ليش؟؟ شغال عندي 100% ايش المشكله الي واجهتك؟

      
      

      
.:: Wish to become better and better ::.

    

  

    
    

      
#9
        
        

      
اشكرك اخى الكريم على اهتمامك وسرعة ردك
انا اقصد ان الكود لم ينجح مع نفس الكود الذى استخدمه والذى اريد تلوين الــ BackColor للصف باللون الاحمر فى حالة عندما يكون العمود رقم 3 مثلا يساوى "يعمل" والذى يساوى " لا يعمل" باللون الابيض كما هوه
ارجو اكون وضحت اشكرك مره اخر وبانتظار ردودكم وفقك الله

      
      

      
    

  

    
    

      
#10
        
        

      
السلام عليكم ورحمه الله وبركاته
اخي اولا كودي اشتغل ولا لا؟؟ اصلا جربته وشغال .. اما قصة مشروعك يمكن ترفقه اصلا هي نفس الفكره

      
      

      
.:: Wish to become better and better ::.

    

  

    
    

      
#11
        
        

      
VB Helper كتب:
السلام عليكم ورحمه الله وبركاته
اخي اولا كودي اشتغل ولا لا؟؟ اصلا جربته وشغال .. اما قصة مشروعك يمكن ترفقه اصلا هي نفس الفكره
اخى الكريم الكود الخاص بك شغال ولا يوجد به اخطاء المقصود كيف اعمل هذا الكود على الكود التالى 
Public Sub listvew1() 
                'العرض فى الليست فيو بيانات التسجيل 
                'معرفة حالة الاتصال العام   
                If GSQLConnection.State <> ConnectionState.Open Then 
                        ' إجراء الاتصال العام من المديول  
                        GeneralConnection() 
                End If 
                Try 
                        GSQLCmd.CommandText = "select * from Subscription where Memid='" & MeMNo.Text & "'" 
                        GSQLCmd.CommandType = CommandType.Text 
                        GDR = GSQLCmd.ExecuteReader 
                        Dim AddToList As New ListViewItem 
                        Me.ListView1.Items.Clear() 
                        Do While GDR.Read 
                                AddToList = Me.ListView1.Items.Add(GDR.GetSqlString(0)) 
                                AddToList.SubItems.Add(1).Text = GDR.GetSqlString(1) 
                                AddToList.SubItems.Add(1).Text = GDR.GetSqlString(2) 
                                AddToList.SubItems.Add(1).Text = GDR.GetSqlString(3)  اذا كان يعمل يجعل الصف بالليست فيو احمر مثلا

                                Application.DoEvents() 
                        Loop 
                        GDR.Close() 

                Catch exp As Exception 
                        MsgBox(exp.Message) 
                End Try 
        End Sub

      
      

      
    

  

    
    

      
#12
        
        

      
السلام عليكم ورحمه الله وبركاته
اخي عدل كودك الى

Public Sub listvew1() 
            	'العرض فى الليست فيو بيانات التسجيل 
            	'معرفة حالة الاتصال العام   
            	If GSQLConnection.State <> ConnectionState.Open Then 
                    	' إجراء الاتصال العام من المديول  
                    	GeneralConnection() 
            	End If 
            	Try 
                    	GSQLCmd.CommandText = "select * from Subscription where Memid='" & MeMNo.Text & "'" 
                    	GSQLCmd.CommandType = CommandType.Text 
                    	GDR = GSQLCmd.ExecuteReader 
                    	Dim AddToList As New ListViewItem 
                    	Me.ListView1.Items.Clear() 
                    	Do While GDR.Read 
                            	AddToList = Me.ListView1.Items.Add(GDR.GetSqlString(0)) 
                            	AddToList.SubItems.Add(0).Text = GDR.GetSqlString(1) 
                            	AddToList.SubItems.Add(1).Text = GDR.GetSqlString(2) 
                            	AddToList.SubItems.Add(2).Text = GDR.GetSqlString(3)  اذا كان يعمل يجعل الصف بالليست فيو احمر مثلا
				If GDR.GetSqlString(3)="يعمل" Then
				AddToList.SubItems.Add(2).BackColor=Color.Red
				Else
				AddToList.SubItems.Add(2).BackColor=Color.Green
				End If
                            	Application.DoEvents() 
                    	Loop 
                    	GDR.Close() 

            	Catch exp As Exception 
                    	MsgBox(exp.Message) 
            	End Try 
    	End Sub
 

      
      

      
.:: Wish to become better and better ::.

    

  

    
    
    
 مواضيع مشابهة