การทำให้กล่องข้อความ WinForms ทำงานเหมือนแถบที่อยู่ของเบราว์เซอร์ของคุณ

เมื่อกล่องข้อความ C # WinForms ได้รับการโฟกัสฉันต้องการให้มันทำงานเหมือนแถบที่อยู่ของเบราว์เซอร์ของคุณ

หากต้องการดูว่าฉันหมายถึงอะไรให้คลิกในแถบที่อยู่ของเว็บเบราว์เซอร์ของคุณ คุณจะสังเกตเห็นพฤติกรรมดังต่อไปนี้:

1. การคลิกในกล่องข้อความควรเลือกข้อความทั้งหมดหากไม่ได้เน้นข้อความไว้ก่อนหน้านี้
2. เลื่อนเมาส์ลงและลากในกล่องข้อความควรเลือกเฉพาะข้อความที่ฉันเน้นด้วยเมาส์
3. หากกล่องข้อความนั้นโฟกัสอยู่แล้วการคลิกจะไม่เลือกข้อความทั้งหมด
4. การโฟกัสกล่องข้อความโดยทางโปรแกรมหรือผ่านแท็บคีย์บอร์ดควรเลือกข้อความทั้งหมด

ฉันต้องการทำสิ่งนี้ใน WinForms

ALUN GUN ALERT: โปรดอ่านข้อความต่อไปนี้ก่อนตอบ! ขอบคุณเพื่อน. :-)

การเรียก. SelectAll () ระหว่างเหตุการณ์. ใส่หรือ .GotFocus จะไม่ทำงานเพราะหากผู้ใช้คลิกที่กล่องข้อความเครื่องหมายรูปหมวกจะถูกวางไว้ในตำแหน่งที่เขาคลิกดังนั้นจึงยกเลิกการเลือกข้อความทั้งหมด

การโทร. SelectAll () ระหว่างกิจกรรม .Click จะไม่ทำงานเนื่องจากผู้ใช้จะไม่สามารถเลือกข้อความใด ๆ ด้วยเมาส์ การเรียกใช้. SelectAll () จะแทนที่การเลือกข้อความของผู้ใช้

การเรียกกล่องข้อความ BeginInvoke (Action) SelectAll) ที่โฟกัส / เข้าสู่การป้อนเหตุการณ์ไม่ทำงานเพราะมันทำลายกฎ # 2 ด้านบนมันจะยกเลิกการเลือกของผู้ใช้ในการโฟกัส

ก่อนอื่นขอขอบคุณสำหรับคำตอบ! 9 คำตอบทั้งหมด ขอบคุณ.

ข่าวร้าย: คำตอบทั้งหมดมีนิสัยใจคอบ้างหรือไม่ดีนัก (หรือเลย) ฉันได้เพิ่มความคิดเห็นในแต่ละโพสต์ของคุณ

ข่าวดี: ฉันพบวิธีที่จะทำให้มันใช้ได้ วิธีการแก้ปัญหานี้ค่อนข้างตรงไปตรงมาและดูเหมือนว่าจะทำงานในทุกสถานการณ์ (เลื่อนเมาส์เลือกข้อความแท็บโฟกัส ฯลฯ )

bool alreadyFocused;

...

textBox1.GotFocus += textBox1_GotFocus;
textBox1.MouseUp += textBox1_MouseUp;
textBox1.Leave += textBox1_Leave;

...

void textBox1_Leave(object sender, EventArgs e)
{
    alreadyFocused = false;
}


void textBox1_GotFocus(object sender, EventArgs e)
{
    // Select all text only if the mouse isn't down.
    // This makes tabbing to the textbox give focus.
    if (MouseButtons == MouseButtons.None)
    {
        this.textBox1.SelectAll();
        alreadyFocused = true;
    }
}

void textBox1_MouseUp(object sender, MouseEventArgs e)
{
    // Web browsers like Google Chrome select the text on mouse up.
    // They only do it if the textbox isn't already focused,
    // and if the user hasn't selected all text.
    if (!alreadyFocused && this.textBox1.SelectionLength == 0)
    {
        alreadyFocused = true;
        this.textBox1.SelectAll();
    }
}

เท่าที่ฉันสามารถบอกได้สิ่งนี้ทำให้กล่องข้อความทำงานเหมือนกับแถบที่อยู่ของเว็บเบราว์เซอร์

หวังว่านี่จะช่วยให้คนต่อไปที่พยายามแก้ปัญหานี้อย่างหลอกลวง

ขอบคุณอีกครั้งสำหรับคำตอบทั้งหมดของคุณที่ช่วยพาฉันไปสู่เส้นทางที่ถูกต้อง

ฉันพบวิธีแก้ปัญหาที่ง่ายกว่านี้ มันเกี่ยวข้องกับการเริ่มต้น SelectAll แบบอะซิงโครนัสโดยใช้Control.BeginInvokeเพื่อให้เกิดขึ้นหลังจากเหตุการณ์ Enter และ Click ได้เกิดขึ้น:

ใน C #:

private void MyTextBox_Enter(object sender, EventArgs e)
{
    // Kick off SelectAll asyncronously so that it occurs after Click
    BeginInvoke((Action)delegate
    {
        MyTextBox.SelectAll();
    });
}

ใน VB.NET (ขอบคุณKrishanu Dey )

Private Sub MyTextBox_Enter(sender As Object, e As EventArgs) Handles MyTextBox.Enter 
    BeginInvoke(DirectCast(Sub() MyTextBox.SelectAll(), Action)) 
End Sub

วิธีแก้ปัญหาของคุณดี แต่ล้มเหลวในบางกรณี หากคุณให้ความสำคัญกับกล่องข้อความโดยเลือกช่วงของข้อความแทนการคลิกเพียงแค่ธงโฟกัสแล้วไม่ได้รับการตั้งค่าเป็นจริงดังนั้นเมื่อคุณคลิกในกล่องข้อความเป็นครั้งที่สองข้อความทั้งหมดจะถูกเลือก

นี่คือโซลูชันของฉัน ฉันยังใส่รหัสลงในคลาสที่สืบทอดกล่องข้อความดังนั้นตรรกะจึงถูกซ่อนไว้อย่างดี

public class MyTextBox : System.Windows.Forms.TextBox
{
    private bool _focused;

    protected override void OnEnter(EventArgs e)
    {
        base.OnEnter(e);
        if (MouseButtons == MouseButtons.None)
        {
            SelectAll();
            _focused = true;
        }
    }

    protected override void OnLeave(EventArgs e)
    {
        base.OnLeave(e);
        _focused = false;
    }

    protected override void OnMouseUp(MouseEventArgs mevent)
    {
        base.OnMouseUp(mevent);
        if (!_focused)
        {
            if (SelectionLength == 0)
                SelectAll();
            _focused = true;
        }
    }
}

มันค่อนข้างแออัดเกินไปเล็กน้อย SendKeys.Send( "{HOME}+{END}" );แต่ในคลิกเหตุการณ์ของการใช้งาน

คลิกเหตุการณ์ของกล่องข้อความ? หรือแม้แต่เหตุการณ์ MouseCaptureChanged ก็ใช้ได้สำหรับฉัน - ตกลง. ไม่ทำงาน

ดังนั้นคุณต้องทำ 2 สิ่ง:

private bool f = false;

private void textBox_MouseClick(object sender, MouseEventArgs e)
{ 
  if (this.f) { this.textBox.SelectAll(); }
  this.f = false;
}

private void textBox_Enter(object sender, EventArgs e)
{
  this.f = true;
  this.textBox.SelectAll();
}
private void textBox_MouseMove(object sender, MouseEventArgs e) // idea from the other answer
{
  this.f = false; 
}

ใช้งานได้กับการแท็บ (ผ่านกล่องข้อความถึงหนึ่ง) เช่นกัน - เรียกใช้ SelectAll () ใน Enter เพียงแค่ในกรณี ...

คำตอบหนึ่งบรรทัดที่ฉันใช้ ... คุณอาจจะเตะตัวเอง ...

ในการเข้าร่วมกิจกรรม:

txtFilter.BeginInvoke (new MethodInvoker (txtFilter.SelectAll));

'Inside the Enter event
TextBox1.SelectAll();

ตกลงหลังจากลองที่นี่เป็นสิ่งที่คุณต้องการ:

• ในการบันทึกเหตุการณ์เริ่มต้นการตั้งค่าสถานะที่ระบุว่าคุณอยู่ในเหตุการณ์ใส่
• ในเหตุการณ์คลิกถ้าคุณตั้งค่าสถานะโทร. SelectAll () และตั้งค่าสถานะใหม่
• ในเหตุการณ์ MouseMove ให้ตั้งค่าสถานะที่ป้อนเป็นเท็จซึ่งจะช่วยให้คุณคลิกไฮไลต์โดยไม่ต้องป้อนกล่องข้อความก่อน

สิ่งนี้เลือกข้อความทั้งหมดที่อยู่ในรายการ แต่อนุญาตให้ฉันไฮไลต์ส่วนของข้อความหลังจากนั้นหรืออนุญาตให้คุณไฮไลต์เมื่อคลิกครั้งแรก

ตามการร้องขอ:

    bool entered = false;
    private void textBox1_Enter(object sender, EventArgs e)
    {
        entered = true;
        textBox1.SelectAll();   //From Jakub's answer.
    }

    private void textBox1_Click(object sender, EventArgs e)
    {
        if (entered) textBox1.SelectAll();
        entered = false;
    }

    private void textBox1_MouseMove(object sender, MouseEventArgs e)
    {
        if (entered) entered = false;
    }

สำหรับฉันแท็บในตัวควบคุมจะเลือกข้อความทั้งหมด

นี่คือฟังก์ชั่นผู้ช่วยเหลือที่นำโซลูชันไปสู่ระดับถัดไป - นำมาใช้ใหม่โดยไม่มีการสืบทอด

    public static void WireSelectAllOnFocus( TextBox aTextBox )
    {
        bool lActive = false;
        aTextBox.GotFocus += new EventHandler( ( sender, e ) =>
        {
            if ( System.Windows.Forms.Control.MouseButtons == MouseButtons.None )
            {
                aTextBox.SelectAll();
                lActive = true;
            }
        } );

        aTextBox.Leave += new EventHandler( (sender, e ) => {
            lActive = false;
        } );

        aTextBox.MouseUp += new MouseEventHandler( (sender, e ) => {
            if ( !lActive )
            {
                lActive = true;
                if ( aTextBox.SelectionLength == 0 ) aTextBox.SelectAll();
            }   
        });
    }

หากต้องการใช้ฟังก์ชันนี้เพียงแค่เรียกใช้ฟังก์ชันที่ส่งผ่านกล่องข้อความและดูแลบิตที่ยุ่งเหยิงสำหรับคุณ ฉันขอแนะนำให้เดินสายกล่องข้อความทั้งหมดของคุณในเหตุการณ์ Form_Load คุณสามารถวางฟังก์ชั่นนี้ในแบบฟอร์มของคุณหรือถ้าชอบฉันที่ใดที่หนึ่งในคลาสยูทิลิตี้สำหรับการใช้ซ้ำมากขึ้น

สิ่งนี้ใช้ได้กับกล่องข้อความ WPF / XAML

    private bool initialEntry = true;
    private void TextBox_SelectionChanged(object sender, RoutedEventArgs e)
    {
        if (initialEntry)
        {
            e.Handled = true;
            initialEntry = false;
            TextBox.SelectAll();
        }
    }
    private void TextBox_GotFocus(object sender, RoutedEventArgs e)
    {
        TextBox.SelectAll();
        initialEntry = true;      
    }

นี่คล้ายกับคำตอบที่ได้รับความนิยมของnzhenryแต่ฉันคิดว่ามันง่ายกว่าที่จะไม่ต้อง subclass:

Private LastFocused As Control = Nothing

Private Sub TextBox1_Enter(sender As Object, e As System.EventArgs) Handles TextBox1.Enter, TextBox2.Enter, TextBox3.Enter
    If MouseButtons = Windows.Forms.MouseButtons.None Then LastFocused = sender
End Sub

Private Sub TextBox1_Leave(sender As Object, e As System.EventArgs) Handles TextBox1.Leave, TextBox2.Leave, TextBox3.Leave
    LastFocused = Nothing
End Sub

Private Sub TextBox1_MouseUp(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseUp, TextBox2.MouseUp, TextBox3.MouseUp
    With CType(sender, TextBox)
        If LastFocused IsNot sender AndAlso .SelectionLength = 0 Then .SelectAll()
    End With
    LastFocused = sender
End Sub

SelectAll ไม่เคยทำงานให้ฉัน

วิธีนี้ใช้ได้ผล

ActiveControl = textBox1;
textBox1->SelectionStart = 0;
textBox1->SelectionLength = textBox1->Text->Length;

ฉันได้พบวิธีแก้ปัญหาที่ง่ายยิ่งขึ้น:

เพื่อให้แน่ใจว่าข้อความทั้งหมดถูกเลือกเมื่อคลิกที่กล่องข้อความตรวจสอบให้แน่ใจว่าตัวจัดการคลิกเรียกใช้ตัวจัดการการป้อน ไม่จำเป็นต้องมีตัวแปรเพิ่มเติม!

ตัวอย่าง:

private void textBox1_Click(object sender, EventArgs e){
        textBox1_Enter(sender, e);
    }

private void textBox1_Enter(object sender, EventArgs e){
        TextBox tb = ((TextBox)sender);
        tb.SelectAll();
    }

private bool _isSelected = false;
private void textBox_Validated(object sender, EventArgs e)
{
    _isSelected = false;
}

private void textBox_MouseClick(object sender, MouseEventArgs e)
{
    SelectAllText(textBox);
}

private void textBox_Enter(object sender, EventArgs e)
{
    SelectAllText(textBox);
}

private void SelectAllText(TextBox text)
{
    if (!_isSelected)
    {
        _isSelected = true;
        textBox.SelectAll();
    }
}

น่าสนใจ ComboBox ที่มี DropDownStyle = Simple มีลักษณะที่คุณต้องการอย่างมาก

(ถ้าคุณลดความสูงของตัวควบคุมเพื่อไม่ให้แสดงรายการ - แล้วเพิ่มอีกสองสามพิกเซล - ไม่มีความแตกต่างที่มีประสิทธิภาพระหว่าง ComboBox และกล่องข้อความ)

ทำไมคุณไม่ใช้ MouseDown-Event ของกล่องข้อความ มันใช้งานได้ดีสำหรับฉันและไม่ต้องการบูลีนเพิ่มเติม สะอาดและเรียบง่ายมากเช่น:

private void textbox_MouseDown(object sender, MouseEventArgs e) {
    if (textbox != null && !string.IsNullOrEmpty(textbox.Text))
    {
        textbox.SelectAll();
    } }

ฉันเรียกว่า SelectAll ในเหตุการณ์ MouseUp และมันใช้ได้ดีสำหรับฉัน

    private bool _tailTextBoxFirstClick = false;

    private void textBox1_MouseUp(object sender, MouseEventArgs e)
    {
        if(_textBoxFirstClick)           
            textBox1.SelectAll();

        _textBoxFirstClick = false;
    }  

    private void textBox1_Leave(object sender, EventArgs e)
    {
        _textBoxFirstClick = true;
        textBox1.Select(0, 0);
    }

เพียงรับคลาสจาก TextBox หรือ MaskedTextBox:

public class SMaskedTextBox : MaskedTextBox
{
    protected override void OnGotFocus(EventArgs e)
    {
        base.OnGotFocus(e);
        this.SelectAll();
    }
}

และใช้ในแบบฟอร์มของคุณ

คุณได้ลองวิธีแก้ปัญหาที่แนะนำในฟอรัม MSDN "Windows Forms General"ซึ่งเพียงแค่ subclasses Text หรือไม่?

ที่จริงแล้ว GotFocus เป็นเหตุการณ์ที่เหมาะสม (ข้อความจริง ๆ ) ที่คุณสนใจเพราะไม่ว่าคุณจะเข้าควบคุมได้อย่างไรคุณก็จะได้สิ่งนี้แม้ในที่สุด คำถามคือเมื่อใดที่คุณโทรถึง SelectAll ()

ลองสิ่งนี้:

public partial class Form1 : Form
{
    public Form1()
    {
        InitializeComponent();
        this.textBox1.GotFocus += new EventHandler(textBox1_GotFocus);
    }

    private delegate void SelectAllDelegate();    
    private IAsyncResult _selectAllar = null; //So we can clean up afterwards.

    //Catch the input focus event
    void textBox1_GotFocus(object sender, EventArgs e)
    {
        //We could have gotten here many ways (including mouse click)
        //so there could be other messages queued up already that might change the selection.
        //Don't call SelectAll here, since it might get undone by things such as positioning the cursor.
        //Instead use BeginInvoke on the form to queue up a message
        //to select all the text after everything caused by the current event is processed.
        this._selectAllar = this.BeginInvoke(new SelectAllDelegate(this._SelectAll));
    }

    private void _SelectAll()
    {
        //Clean-up the BeginInvoke
        if (this._selectAllar != null)
        {
            this.EndInvoke(this._selectAllar);
        }
        //Now select everything.
        this.textBox1.SelectAll();
    }
}

สำหรับกลุ่มกล่องข้อความในรูปแบบ:

private System.Windows.Forms.TextBox lastFocus;   

private void textBox_GotFocus(object sender, System.Windows.Forms.MouseEventArgs e)   
{
    TextBox senderTextBox = sender as TextBox;
    if (lastFocus!=senderTextBox){
        senderTextBox.SelectAll();
    }
    lastFocus = senderTextBox;   
}

ฉันรู้ว่านี่ถูกแก้ไขแล้ว แต่ฉันมีข้อเสนอแนะที่ฉันคิดว่าจริง ๆ แล้วค่อนข้างง่าย

ในเหตุการณ์เลื่อนเม้าส์สิ่งที่คุณต้องทำคือวาง

if(textBox.SelectionLength = 0)
{
    textBox.SelectAll();
}

ดูเหมือนว่าจะทำงานให้ฉันใน VB.NET (ฉันรู้ว่านี่เป็นคำถาม C # ... น่าเศร้าที่ฉันถูกบังคับให้ใช้ VB ในงานของฉัน .. และฉันมีปัญหานี้ซึ่งเป็นสิ่งที่นำฉันมาที่นี่ ... )

ฉันยังไม่พบปัญหาใด ๆ เลย .. ยกเว้นความจริงที่ว่ามันไม่ได้เลือกทันทีเมื่อคลิก แต่ฉันมีปัญหากับมัน ....

วิธีแก้ปัญหาต่อไปนี้ใช้ได้กับฉัน ฉันเพิ่มOnKeyDownและOnKeyUpแทนที่เหตุการณ์เพื่อให้ข้อความกล่องข้อความที่เลือกไว้เสมอ

    public class NumericTextBox : TextBox
{
    private bool _focused;
    protected override void OnGotFocus(EventArgs e)
    {
        base.OnGotFocus(e);
        if (MouseButtons == MouseButtons.None)
        {
            this.SelectAll();
            _focused = true;
        }
    }
    protected override void OnEnter(EventArgs e)
    {
        base.OnEnter(e);
        if (MouseButtons == MouseButtons.None)
        {
            SelectAll();
            _focused = true;
        }
    }

    protected override void OnLeave(EventArgs e)
    {
        base.OnLeave(e);
        _focused = false;
    }

    protected override void OnMouseUp(MouseEventArgs mevent)
    {
        base.OnMouseUp(mevent);
        if (!_focused)
        {
            if (SelectionLength == 0)
                SelectAll();
            _focused = true;
        }
    }

    protected override void OnKeyUp(KeyEventArgs e)
    {
        base.OnKeyUp(e);

        if (SelectionLength == 0)
            SelectAll();
        _focused = true;
    }
    protected override void OnKeyDown(KeyEventArgs e)
    {
       base.OnKeyDown(e);
       if (SelectionLength == 0)
            SelectAll();
        _focused = true;
    }
}

ตั้งค่า selction เมื่อคุณออกจากการควบคุม มันจะอยู่ที่นั่นเมื่อคุณกลับมา แท็บรอบ ๆ แบบฟอร์มและเมื่อคุณกลับไปที่ตัวควบคุมข้อความทั้งหมดจะถูกเลือก

หากคุณเข้าไปข้างในด้วยเมาส์เครื่องหมายรูปหมวกจะถูกวางในตำแหน่งที่คุณคลิก

private void maskedTextBox1_Leave(object sender, CancelEventArgs e)
    {
        maskedTextBox1.SelectAll();
    }

ทางออกที่ง่ายมาก:

    private bool _focusing = false;

    protected override void OnEnter( EventArgs e )
    {
        _focusing = true;
        base.OnEnter( e );
    }

    protected override void OnMouseUp( MouseEventArgs mevent )
    {
        base.OnMouseUp( mevent );

        if( _focusing )
        {
            this.SelectAll();
            _focusing = false;
        }
    }

แก้ไข: OP ดั้งเดิมโดยเฉพาะอย่างยิ่งความกังวลเกี่ยวกับลำดับการเลื่อนลงของข้อความ / การเลือกข้อความ / การเลื่อนเมาส์ขึ้นซึ่งในกรณีนี้การแก้ปัญหาง่ายๆข้างต้นจะจบลงด้วยการเลือกข้อความบางส่วน

สิ่งนี้ควรแก้ปัญหา * (ในทางปฏิบัติฉันสกัดกั้น WM_SETCURSOR):

    protected override void WndProc( ref Message m )
    {
        if( m.Msg == 32 ) //WM_SETCURSOR=0x20
        {
              this.SelectAll(); // or your custom logic here                
        }

        base.WndProc( ref m );
    }

* อันที่จริงแล้วลำดับต่อไปนี้ลงท้ายด้วยการเลือกข้อความบางส่วน แต่ถ้าคุณเลื่อนเมาส์ไปที่กล่องข้อความข้อความทั้งหมดจะถูกเลือกอีกครั้ง:

mouse-down / text-selection / mouse-move-out-textbox / mouse-up

ฉันพบว่ามันทำงานได้ดีที่สุดเมื่อคลิกเมาส์และไม่ปล่อยทันที:

    private bool SearchBoxInFocusAlready = false;
    private void SearchBox_LostFocus(object sender, RoutedEventArgs e)
    {
        SearchBoxInFocusAlready = false;
    }

    private void SearchBox_PreviewMouseUp(object sender, MouseButtonEventArgs e)
    {
        if (e.ButtonState == MouseButtonState.Released && e.ChangedButton == MouseButton.Left &&
            SearchBox.SelectionLength == 0 && SearchBoxInFocusAlready == false)
        {
            SearchBox.SelectAll();
        }

        SearchBoxInFocusAlready = true;
    }

โซลูชันของฉันค่อนข้างดั้งเดิม แต่ทำงานได้ดีสำหรับวัตถุประสงค์ของฉัน

private async void TextBox_GotFocus(object sender, RoutedEventArgs e)
{
    if (sender is TextBox)
    {
        await Task.Delay(100);
        (sender as TextBox).SelectAll();
    }
}

ด้านล่างดูเหมือนว่าจะทำงาน เหตุการณ์ป้อนจัดการแท็บไปยังตัวควบคุมและ MouseDown จะทำงานเมื่อมีการคลิกตัวควบคุม

    private ########### void textBox1_Enter(object sender, EventArgs e)
    {
        textBox1.SelectAll();
    }

    private void textBox1_MouseDown(object sender, MouseEventArgs e)
    {
        if (textBox1.Focused)
            textBox1.SelectAll();
    }

คำตอบนั้นง่ายกว่าทั้งหมดข้างต้นตัวอย่างเช่น (ใน WPF):

public void YourTextBox_MouseEnter(object sender, MouseEventArgs e)
    {
        YourTextBox.Focus();
        YourTextBox.SelectAll();
    }

แน่นอนว่าฉันไม่รู้วิธีที่คุณต้องการใช้รหัสนี้ แต่ส่วนหลักในการดูที่นี่คือ: สายแรก. โฟกัส () แล้วโทร. เลือกทั้งหมด ();

เพียงแค่ใช้ selectall () เมื่อป้อนและคลิกกิจกรรม

private void textBox1_Enter(object sender, EventArgs e)
        {

            textBox1.SelectAll();
        }
        private void textBox1_Click(object sender, EventArgs e)
        {
            textBox1.SelectAll();
        }

ฉันสร้างโครงการ VB.Net Wpf ใหม่ ฉันสร้างกล่องข้อความหนึ่งกล่องและใช้โค้ดต่อไปนี้สำหรับโค้ดด้านหลัง:

Class MainWindow 

    Sub New()

        ' This call is required by the designer.
        InitializeComponent()

        ' Add any initialization after the InitializeComponent() call.
        AddHandler PreviewMouseLeftButtonDown, New MouseButtonEventHandler(AddressOf SelectivelyIgnoreMouseButton)
        AddHandler GotKeyboardFocus, New KeyboardFocusChangedEventHandler(AddressOf SelectAllText)
        AddHandler MouseDoubleClick, New MouseButtonEventHandler(AddressOf SelectAllText)
    End Sub

    Private Shared Sub SelectivelyIgnoreMouseButton(ByVal sender As Object, ByVal e As MouseButtonEventArgs)
        ' Find the TextBox
        Dim parent As DependencyObject = TryCast(e.OriginalSource, UIElement)
        While parent IsNot Nothing AndAlso Not (TypeOf parent Is TextBox)
            parent = VisualTreeHelper.GetParent(parent)
        End While

        If parent IsNot Nothing Then
            Dim textBox As Object = DirectCast(parent, TextBox)
            If Not textBox.IsKeyboardFocusWithin Then
                ' If the text box is not yet focussed, give it the focus and
                ' stop further processing of this click event.
                textBox.Focus()
                e.Handled = True
            End If
        End If
    End Sub

    Private Shared Sub SelectAllText(ByVal sender As Object, ByVal e As RoutedEventArgs)
        Dim textBox As Object = TryCast(e.OriginalSource, TextBox)
        If textBox IsNot Nothing Then
            textBox.SelectAll()
        End If
    End Sub

End Class