[asmarsou]

(01-11-21, 12:22 AM)paveldida كتب : ممكن كود آخر يكون مختصر اكثر

اصف لمشروعك  مؤقت و ازرع فيه الكود التالي مع مراعاة ان يكون المؤقت مفعل

كود :

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
     
       For Each ctrl As Control In Me.Controls
           If TypeOf ctrl Is TextBox Then
               If ctrl.Name = Me.ActiveControl.Name Then
                   ctrl.BackColor = Color.BlueViolet
               Else
                   ctrl.BackColor = Color.White
               End If
           End If      
       Next
   End Sub