Instrukcje: zmienianie koloru elementu przy użyciu zdarzeń fokusu

W tym przykładzie pokazano, jak zmienić kolor elementu, gdy zyskuje i traci fokus przy użyciu zdarzeń GotFocus i LostFocus.

Ten przykład składa się z pliku Extensible Application Markup Language (XAML) oraz pliku kodu zaplecza.

Przykład

Poniższy kod XAML tworzy interfejs użytkownika, który składa się z dwóch obiektów Button i dołącza programy obsługi zdarzeń dla GotFocus i LostFocus zdarzeń do obiektów Button.

<StackPanel>
  <StackPanel.Resources>
    <Style TargetType="{x:Type Button}">
      <Setter Property="Height" Value="20"/>
      <Setter Property="Width" Value="250"/>
      <Setter Property="HorizontalAlignment" Value="Left"/>
    </Style>
  </StackPanel.Resources>
  <Button
      GotFocus="OnGotFocusHandler"
      LostFocus="OnLostFocusHandler">Click Or Tab To Give Keyboard Focus</Button>
  <Button
      GotFocus="OnGotFocusHandler"
      LostFocus="OnLostFocusHandler">Click Or Tab To Give Keyborad Focus</Button>
</StackPanel>

Poniższy kod w tle tworzy programy obsługi zdarzeń GotFocus i LostFocus. Gdy Button zyskuje fokus klawiatury, BackgroundButton jest zmieniana na czerwony. Gdy Button traci fokus klawiatury, BackgroundButton zostanie zmieniony z powrotem na biały.

public partial class Window1 : Window
{
    public Window1()
    {
        InitializeComponent();
    }

    // Raised when Button gains focus.
    // Changes the color of the Button to Red.
    private void OnGotFocusHandler(object sender, RoutedEventArgs e)
    {
        Button tb = e.Source as Button;
        tb.Background = Brushes.Red;
    }
    // Raised when Button losses focus.
    // Changes the color of the Button back to white.
    private void OnLostFocusHandler(object sender, RoutedEventArgs e)
    {
        Button tb = e.Source as Button;
        tb.Background = Brushes.White;
    }
}

Partial Public Class Window1
    Inherits Window

    Public Sub New()
        InitializeComponent()
    End Sub

    'raised when Button gains focus. Changes the color of the Button to red.
    Private Sub OnGotFocusHandler(ByVal sender As Object, ByVal e As RoutedEventArgs)
        Dim tb As Button = CType(e.Source, Button)
        tb.Background = Brushes.Red
    End Sub

    'raised when Button loses focus. Changes the color back to white.
    Private Sub OnLostFocusHandler(ByVal sender As Object, ByVal e As RoutedEventArgs)
        Dim tb As Button = CType(e.Source, Button)
        tb.Background = Brushes.White
    End Sub
End Class

Zobacz także

• Omówienie danych wejściowych