Hallo,
ich entwickel eine Art Text-Editor, welcher mit 10 Tabs arbeitet.
In jedem Tab ist eine RichTextBox. Ich möchte für alle Tabs einen einheitlichen Button zur bearbeitung.
Beispielsweise habe ich für "Rückgängig" folgenden Code:
Wenn ich auf den Button klicke, der die Aktion ausführt, soll er die Aktion nur in dem aktuelle angezeigten Tab ausführen.
Hierzu habe ich folgenden Code:
Wie kann ich den kompakter und eleganter gestalten?
ich entwickel eine Art Text-Editor, welcher mit 10 Tabs arbeitet.
In jedem Tab ist eine RichTextBox. Ich möchte für alle Tabs einen einheitlichen Button zur bearbeitung.
Beispielsweise habe ich für "Rückgängig" folgenden Code:
Wenn ich auf den Button klicke, der die Aktion ausführt, soll er die Aktion nur in dem aktuelle angezeigten Tab ausführen.
Hierzu habe ich folgenden Code:
VB.NET-Quellcode
- Private Sub ToolStripButtonUndo_Click(sender As Object, e As EventArgs) Handles ToolStripButtonUndo.Click
- If TabControl1.SelectedTab Is TabPage1 Then
- Undo(RichTextBox1)
- ElseIf TabControl1.SelectedTab Is TabPage2 Then
- Undo(RichTextBox2)
- ElseIf TabControl1.SelectedTab Is TabPage3 Then
- Undo(RichTextBox3)
- ElseIf TabControl1.SelectedTab Is TabPage4 Then
- Undo(RichTextBox4)
- ElseIf TabControl1.SelectedTab Is TabPage5 Then
- Undo(RichTextBox5)
- ElseIf TabControl1.SelectedTab Is TabPage6 Then
- Undo(RichTextBox6)
- ElseIf TabControl1.SelectedTab Is TabPage7 Then
- Undo(RichTextBox7)
- ElseIf TabControl1.SelectedTab Is TabPage8 Then
- Undo(RichTextBox8)
- ElseIf TabControl1.SelectedTab Is TabPage9 Then
- Undo(RichTextBox9)
- ElseIf TabControl1.SelectedTab Is TabPage10 Then
- Undo(RichTextBox10)
- End If
- End Sub
Wie kann ich den kompakter und eleganter gestalten?