一点小问题,小弟谢了

Question

是象IE地址输入栏的效果吗？在GetFocus事件中写代码：
Private Sub Text1_GotFocus()
    Text1.SelStart = 0
    Text1.SelLength = Len(Text1.Text)
End Sub

Answer 1

private sub form_load()
  text1.getfocus
end sub

Answer 2

sub form_load()
   text1.TabIndex =1
end sub
Private Sub Text1_GotFocus()
    Text1.SelStart = 0
    Text1.SelLength = Len(Text1.Text)
End Sub 

Answer 3

private sub form_load()
  text1.getfocus
end sub
这个办法肯定行，在Form_load中不能设置焦点位置。

Answer 4

??楼上的,怎么自己说自己不对呢?这样改一下试试
private sub form_load()
   me.show
   text1.setfocus
end sub