text1.***?什么方法可以使text1中的内容处于选中状态（就象用鼠标把text1中的内容选中）？

Question

我想通过在某个事件中使text1中的文本处于选中状态，不知道该怎么写。
text1.setfocus好象只能把光标移到text1中，而无法使其文本处于选种状态，请指点，谢谢！

Answer 1

text1.SelStart=0
text1.SelLength=len(text1.text)
text1.setfocus

Answer 2

SelLength、SelStart、SelText 属性
      SelLength－返回或设置所选择的字符数。
SelStart－返回或设置所选择的文本的起始点；如果没有文本被选中，则指出插入点的位置。
SelText－返回或设置包含当前所选择文本的字符串；如果没有字符被选中，则为零长度字符串 ("")。 
这些属性在设计时是不可用的。语法object.SelLength [= number]object.SelStart [= index]object.SelText [= value]SelLength、SelStart、和 SelText 属性的语法包含下面部分：部分 描述 
Object 对象表达式，其值是“应用于”列表中的一个对象。 
Number 一个用来指定被选择字符数的数值表达式。对于 SelLength 和 SelStart，设置值的有效范围是 0 到文本长度－在 ComboBox 或 TextBox 控件编辑区中字符的总数。 
Index 一个用来指定所选择文本的起始点的数值表达式，“设置值”中有详细描述。 
Value 包含所选择文本的字符串表达式。 
说明为下面这些任务应使用这些属性，如设置插入点、建立插入范围、在控件中选择子串、或清除文本等。与 Clipboard 对象联合使用，这些属性对于复制、剪切、和粘贴操作是很有用的。当使用这些属性时： SelLength 的设置比 0 小会导致一个运行时错误。
SelStart 的设置比文本长度大，会使该属性设置为现有文本长度；SelStart 的改变将使选择改变到插入点并将 SelLength 设置为 0。
SelText 的设置为新值，会将 SelLength 设置为 0 并用新字符串代替所选择的文本。