VB6画面配列移行 WPF(C#)

Site Index




public MainWindow()
{
InitializeComponent();
this.Left = 0;
this.Top = 0;
}
Dictionary idx_Line = new Dictionary();
TextBox[] z_Text01 = new TextBox[15];
TextBox[] z_Text02 = new TextBox[15];
TextBox[] z_Text03 = new TextBox[15];
TextBox[] z_Text04 = new TextBox[15];
private void button_Set_Click(object sender, RoutedEventArgs e)
{
for (int idx = 0; idx < 9;idx++ )
{
z_Text01[idx] = new TextBox();
z_Text01[idx].Name = "text01";
z_Text01[idx].SetValue(Grid.MarginProperty, new Thickness(2));
z_Text01[idx].SetValue(Grid.ColumnProperty, 2);
z_Text01[idx].SetValue(Grid.RowProperty, idx+3);
z_Text01[idx].Background = Brushes.GreenYellow;
z_Text01[idx].PreviewLostKeyboardFocus += new KeyboardFocusChangedEventHandler(MainWindow_PreviewLostKeyboardFocus_Text);
z_Text01[idx].PreviewKeyDown += new KeyEventHandler(MainWindow_PreviewKeyDown);
idx_Line.Add(z_Text01[idx], idx);
this.grid_G5.Children.Add(z_Text01[idx]);

z_Text02[idx] = new TextBox();
z_Text02[idx].Name = "text02";
z_Text02[idx].SetValue(Grid.MarginProperty, new Thickness(2));
z_Text02[idx].SetValue(Grid.ColumnProperty, 3);
z_Text02[idx].SetValue(Grid.RowProperty, idx + 3);
z_Text02[idx].Background = Brushes.GreenYellow;
z_Text02[idx].PreviewLostKeyboardFocus += new KeyboardFocusChangedEventHandler(MainWindow_PreviewLostKeyboardFocus_Text);
z_Text02[idx].PreviewKeyDown += new KeyEventHandler(MainWindow_PreviewKeyDown);
idx_Line.Add(z_Text02[idx], idx);
this.grid_G5.Children.Add(z_Text02[idx]);
}
}

void MainWindow_PreviewKeyDown(object sender, KeyEventArgs e)
{
TextBox w_textBox = (TextBox)e.Source;
int idx = idx_Line[w_textBox];
if ((Keyboard.Modifiers == ModifierKeys.None) && (e.Key == Key.Enter))
{
w_textBox.MoveFocus(new TraversalRequest(FocusNavigationDirection.Next));
}
if ((Keyboard.Modifiers == ModifierKeys.Shift) && (e.Key == Key.Enter))
{
w_textBox.MoveFocus(new TraversalRequest(FocusNavigationDirection.Previous));
}
}

void MainWindow_PreviewLostKeyboardFocus_Text(object sender, KeyboardFocusChangedEventArgs e)
{
TextBox w_textBox = (TextBox)e.Source;
int idx = idx_Line[w_textBox];
w_textBox.Background = new SolidColorBrush(Colors.SkyBlue);
w_textBox.Text = w_textBox.Name;
}




<Grid Height="850" Width="1600">
<Grid.ColumnDefinitions>
<ColumnDefinition Width="10" />
<ColumnDefinition Width="*" />
<ColumnDefinition Width="300" />
</Grid.ColumnDefinitions>
<Grid.RowDefinitions>
<RowDefinition Height="10" />
<RowDefintion Height="769*" />
</Grid.RowDefinitions>
<Grid Name="grid_G34" Grid.Column="2" Grid.Row="1" Margin="6" >
<Grid.RowDefinitions>
<RowDefinition Height="10" />
<RowDefinition Height="50" />
<RowDefinition Height="*" />
<RowDefinition Height="*" />
</Grid.RowDefinitions>
<Button Content="Set" Grid.Row="1" Margin="0" Name="button_Set" FontSize="20" Click="button_Set_Click" />
</Grid>
<Grid Name="grid_G5" Grid.Column="1" Grid.Row="1" Margin="6" >
<Grid.RowDefinitions>
<RowDefinition Height="10" />
<RowDefinition Height="*" />
<RowDefinition Height="*" />
<RowDefinition Height="*" />
<RowDefinition Height="*" />
<RowDefinition Height="*" />
<RowDefinition Height="*" />
<RowDefinition Height="*" />
<RowDefinition Height="*" />
<RowDefinition Height="*" />
<RowDefinition Height="*" />
<RowDefinition Height="*" />
</Grid.RowDefinitions>
<Grid.ColumnDefinitions>
<ColumnDefinition Width="10" />
<ColumnDefinition Width="400" />
<ColumnDefinition Width="*" />
<ColumnDefinition Width="*" />
<ColumnDefinition Width="*" />
<ColumnDefinition Width="*" />
<ColumnDefinition Width="*" />
<ColumnDefinition Width="40" />
</Grid.ColumnDefinitions>
<Slider Grid.Column="7" Grid.Row="1" Grid.RowSpan="7" Margin="1" Name="slider1" Orientation="Vertical" />
</Grid>
</Grid>




AX