(13-05-19, 10:09 PM)Amir_Alzubidy كتب : اهلا بك اخي خالد ،
اتمنى ان تكون بخير
وردتني فكرة حول نتائج البحث ان يتم سردها في قائمة ليست بوكس 
حيث يمكنك تحرير الاندكس المراد متى ما شئت و كيفما اردت 
كما يمكنك التقليص من كتابة الكود و استدعاء ذلك الكم الهائل من البروسيجرس
استوقفتني الفكرة الجميلة هنا في هذا الرابط ...
SystemColors.HighlightText
والله اعلم 
ربما يكون لديك مغزى اخر او يأتينا احدهم بطريقة افضل 
بالتوفيق

(13-05-19, 10:45 PM)ﺣﺮﯾﻒ ﺑﺮﻣﺠﺔ كتب :

اختصار للكود

إذا كانت الليبلات ليست على الفورم مباشرة قد تحتاج لتغيير كلمة Me الموجودة في Me.Controls

PHP كود :

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load[/align]
        For i = 1 To 40
            CheckCQZ(i.ToString("00"))
        Next
    End Sub

    Private Sub CheckCQZ(cqz As String)

        Dim lbl As Label
        lbl = Me.Controls(String.Format("Label{0}", Val(cqz)))

        If conn.State <> ConnectionState.Open Then conn.Open()
        Using cmd As New SQLiteCommand("SELECT cqz FROM DBqsos WHERE cqz=@cqz ", conn)
            cmd.Parameters.AddWithValue("@cqz", cqz)
            Dim queryResult = cmd.ExecuteScalar()

            If Not IsDBNull(cmd.ExecuteScalar()) Then
                lbl.BackColor = Color.Red
                lbl.Font = New Font(lbl.Font, FontStyle.Bold)

            Else
                lbl.BackColor = Nothing
                lbl.Font = New Font(lbl.Font, FontStyle.Regular)

            End If

        End Using
    End Sub 


(14-05-19, 01:02 AM)elgokr كتب :

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

اتعجب لكل من ستخدم Sub أو Function

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

الـ Sub و Function هو اراحية او توفير ضغط وجهد

حيث لديم كود يكتب 10 او 100 او حتى 1000000 مرة

فبمجرد كتابته مرة واحدة يتم استدعائه حسب ما تريد

ويتم ذلك من خلال تمييز القيم والمتغيرات بمعرف يتم ارسال وقد التنفيذ

ولتوضح الفكرة اكثر انظر هنا فهذا الـ Function

الكود الذى ستستخدمه بدلاً من 40 Function الذى لديك هو

كود :

   Private Function CountNumber(Num As Integer, CLo As Color)
       If conn.State <> ConnectionState.Open Then conn.Open()
       Using cmd As New SQLiteCommand("SELECT cqz FROM DBqsos WHERE cqz=@cqz ", conn)
           cmd.Parameters.AddWithValue("@cqz", Num.ToString("00"))
           If Not IsDBNull(cmd.ExecuteScalar()) Then
               Controls(String.Format("Label{0}", Num)).BackColor = CLo
               Controls(String.Format("Label{0}", Num)).Font = New Font(Controls(String.Format("Label{0}", Num)).Font, FontStyle.Bold)
           End If
       End Using
       Return False
   End Function

وفقط عند الاستدعاء سيتم كالتالى

كود :

       CountNumber(2, Color.Blue)

حيث رقم 2 هو قيمة المطلوب البحث عنها

وهو نفسه رقم الـ Label لديك فى الفورم

طيب انا عايز ابحث عن رقم 5 واذا وجد يقوم بتغيير لون Label5 الى لون احمر

فسيتم تنفيذ الكود بهذا الشكل

كود :

       CountNumber(5, Color.Red)

طيب محتاج ابحث عن رقم 1000 ويقوم بتغير لون الـ Label1000

انت ملاحظ انا بقول 1000 مش بس 40 يعنى مهما كان العدد 

وكان المطلوب ان يكون اللون فضي عند الايجاد

فقط طبق الكود التالى

كود :

       CountNumber(1000, Color.Silver)

انظر كيف ان الامر ابسط واسهل مما تتخيل

وانك لا تحتاج الى تكرار الـ Function لـ 1000 مرة بعدد الـ Label

لكي يتوافق معك عدداً وكذلك تتمكن من وضع لون لكل رقم تقوم بالبحث عليه

اتمنى ان يكون الكود بسيط

ولا يوجد به اى متاهة لفهمه

تحياتى لك

وتمنياتى لك التوفيق

(14-05-19, 12:47 PM)elgokr كتب : لا ابداً المشكلة فقط فى هذا السطر

كود :

       If Not IsDBNull(cmd.ExecuteScalar()) Then

على اى حال انا قمت بتعديل كود الـ Function

فقط احذف ما لديك واستبدله بالتالى

كود :

   Private Function CountNumber(Num As Integer, CLo As Color)
       If conn.State <> ConnectionState.Open Then conn.Open()
       Dim cmd As New SQLiteCommand("SELECT cqz FROM DBqsos WHERE cqz=@cqz ", conn)
       cmd.Parameters.AddWithValue("@cqz", Num.ToString("00"))
       Dim sqLReader As SQLiteDataReader = cmd.ExecuteReader()
       If sqLReader.Read() Then
           Controls(String.Format("Label{0}", Num)).BackColor = CLo
           Controls(String.Format("Label{0}", Num)).Font = New Font(Controls(String.Format("Label{0}", Num)).Font, FontStyle.Bold)
       End If
       Return False
   End Function

وسيعمل معك ان شاء الله هذه المرة بدون مشكلة

تحياتى لك

وتمنياتى لك التوفيق