如果文本框中内容较多时可以通过代码设置全选文本框内容,如下代码:
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
可以将上述代码添加到文本框的双击事件中,这样在双击文本框时就实现将文本框内容全选。全选效果如下图所示。