Private Sub Text2_GotFocus()
  '  Text2.BackColor = RGB(255, 255, 255)
    Text2.SelStart = 0
    Text2.SelLength = Len(Text2.Text)
End Sub

解决方案 »

  1.   

    同数据库连接起来。
    text.setfocus得到焦点
    sendkeys "{HOME}+{END}"
    这样可以让文本框得到焦点,并将所有内容选中反白。
      

  2.   

    保留上次录入的信息
    把上一次的记录传给text
         text2.text=rs.fields("xxx")
      

  3.   

    text1.SetFocus
    text1.SelStart = 0
    text1.SelLength = Len(text1.Text)
      

  4.   

    Private Sub Text2_GotFocus()
      '  Text2.BackColor = RGB(255, 255, 255)
        Text2.SelStart = 0
        Text2.SelLength = Len(Text2.Text)
    End Sub

    Private Sub Text2_click()
      '  Text2.BackColor = RGB(255, 255, 255)
        Text2.SelStart = 0
        Text2.SelLength = Len(Text2.Text)
    End Sub
      

  5.   

    '方法
    Public Sub setTextSelected(objText As Object)
      '设置指定控件的文本处于选中状态
      '参数   objText   有文本的控件
      objText.SelStart = 0
      objText.SelLength = Len(objText.text)
    End Sub'调用            text的GotFocus()事件中
    setTextSelected Me.text1
      

  6.   

    同意 lihonggen0(用VB)
     
      

  7.   

    SelLength-返回或设置所选择的字符数。
    SelStart-返回或设置所选择的文本的起始点;如果没有文本被选中,则指出插入点的位置。
    SelText-返回或设置包含当前所选择文本的字符串;如果没有字符被选中,则为零长度字符串 ("")。 
    这些属性在设计时是不可用的。语法object.SelLength [= number]object.SelStart [= index]object.SelText [= value]
    --------------------------------
    SelLength 的设置比 0 小会导致一个运行时错误。
    SelStart 的设置比文本长度大,会使该属性设置为现有文本长度;SelStart 的改变将使选择改变到插入点并将 SelLength 设置为 0。
    SelText 的设置为新值,会将 SelLength 设置为 0 并用新字符串代替所选择的文本。 
      

  8.   

    看看用空件数组 把所有文本框的name设为相同 
    设有5个文本框
    private sub text_click(index as intger)
           for index=1 to 5 
              text(index).selstart=0
              text(index).sellength=len(text(index).text)
            next index
     end sub
    试试,我没试过。
      

  9.   

    loveknot()想所有的文本框一次都被选中,也很简单的啦Dim Mc As ObjectFor Each Mc In Me.Controls
        If TypeName(Mc) = "TextBox" Then
           处理选中状态啦
        End If
    Next
      

  10.   

    Text.SetFocus
    Text1.SelStart = 0
    Text1.SelLength = Len(Text1.Text)