text1.setfocus
text1.selstart =0
text1.sellength =  len(text1.text)

解决方案 »

  1.   

    Private Sub Form_Load()
    Text1.SelStart = 0
    Text1.SelLength = Len(Text1.Text)
    End Sub
      

  2.   

    Private Sub Form_Load()
    Me.Show
    Text1.SelStart = 0
    Text1.SelLength = Len(Text1.Text)
    Text1.SetFocus
    End Sub
      

  3.   

    Text1.SetFocus
    SendKeys "{Home}+{End}"
      

  4.   

    谢谢以上各位大虾,问题已被解决,我现在真真发现此网站的价值,
    提醒Text1.SetFocus不能在form_load中使用
      

  5.   

    text1.setfocus可以在form_resize中使用