怎么样在程序中控制选中文本框? 小问题5分钟后结贴!

Question

听不懂，什么叫控制选中文本框，噢，明白了，有一个这个属性。
text1.SetFocus

Answer 1

Private Sub Command1_Click()
    Text1.SelStart = 0  '''光标设到文本框第一个字符前
    Text1.SetFocus      '''获得焦点，能响应键盘输入
End Sub

Answer 2

VB的事件例如：
Private Sub Text1_GotFocus()
  '控制吧
End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)
   '控制吧
End Sub

Answer 3

你们都没有回答我的问题,有可能是我表达的不够清楚
我的意思是:用程序语句来选中文本框中的文本,不是得到焦点.
比如文本框中有有字符: ABCDE,然后通过程序可以全部选中他们,
如果按"delete"键,就可以把他们全部删除.
不知道我表达的清楚了没有.

Answer 4

噢，知道了。是这个程序。
Text2.SetFocus
SendKeys ("{HOME}+{END}")

Answer 5

可以用楼上的方法也可以使用控件本身的属性：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 并用新字符串代替所选择的文本。例子：
本例能够指定需要查找的文本，然后查找该文本并在找到后选中它。要试用此例，先将下面的代码粘贴到包含一个宽 TextBox 控件窗体的声明部分，然后按 F5 键 并单击窗体。Private Sub Form_Load ()
   Text1.Text = "Two of the peak human experiences"
   Text1.Text = Text1.Text & " are good food and classical music."
End Sub
Private Sub Form_Click ()
   Dim Search, Where   ' 声明变量。
   ' 获取需要查找的字符串。
   Search = InputBox("Enter text to be found:")
   Where = InStr(Text1.Text, Search)   ' 在文本中查找字符串。
   If Where Then   ' 如果找到，
      Text1.SelStart = Where - 1   ' 设置选定的起始位置并
      Text1.SelLength = Len(Search)   ' 设置选定的长度。
   Else
      MsgBox "String not found."   ' 给出通知。
   End If
End Sub本例显示如何在剪切、复制、粘贴、和删除操作中使用 Clipboard 对象。要试用此例，创建一个带有 TextBox 控件的窗体并使用“菜单编辑器”来创建一个“编辑”菜单 （对于每个命令，将其 Caption 属性分别设置为 Cut、Copy、Paste 和 Delete，将其 Name 属性分别设置为 EditCut、EditCopy、EditPaste 和 EditDelete）。Private Sub EditCut_Click ()
   ' 清除剪贴板上的内容。
   Clipboard.Clear
   ' 复制选中的文本到剪贴板上。
   ClipBoard.SetText Screen.ActiveControl.SelText
   ' 删除选中的文本。
   Screen.ActiveControl.SelText = ""
End SubPrivate Sub EditCopy_Click ()
   ' 清除剪贴板上的内容。
   Clipboard.Clear
   ' 复制选中的文本到剪贴板上。
   ClipBoard.SetText Screen.ActiveControl.SelText
End SubPrivate Sub EditPaste_Click ()
   ' 从剪贴板上将文本放置到活动控件中。
   Screen.ActiveControl.SelText = ClipBoard.GetText ()
End SubPrivate Sub EditDelete_Click ()
' 删除选中的文本。
Screen.ActiveControl.SelText = ""
End Sub