[ﺣﺮﯾﻒ ﺑﺮﻣﺠﺔ]

اختصار للكود

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

PHP كود :

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        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