关于：SetFocus

Question

Private Sub Form_Load()
useId.SetFocus
useId.Text = ""
psw1.Text = ""
psw2.Text = ""
End Sub如果像下面这样给属性赋值：
useId.tabindex=0
psw1.tabindex=1
paw2.tabindex=2那么useId.SetFocus只有去掉，否则运行时显示“
Rum-time error'5';
Invalid procedure call or argument"请高手指教！

Answer 1

将useId.SetFocus放到Form_Load代码段的最后一行.

Answer 2

:)最简单的办法就是去掉setfocus,
因为在Form_Load的时候可能你的useId没有被装载，这时对它进行SetFocus操作肯定要报错的
如果你的useId的TabIndex=0，那么当Form_Load以后焦点就会停留在useId这个对象上.

Answer 3

如果不用tabindex=0属性，有方法让setfocus在form_load时被装载吗？
cooly

Answer 4

把SetFocus放到Form_Resize中 :)))  不过最好加一个全局变量，通知Form_Resize只在Form_Load之后才触发SetFocus

Answer 5

也可以：
Private Sub Form_Load()
me.show
useId.SetFocus
useId.Text = ""
psw1.Text = ""
psw2.Text = ""
End Sub

Answer 6

ZSG你的方法不错！谢了！
cooly也谢谢你！

Answer 7

但不知为何
加
me.show?

Answer 8

对某一控件SetFocus时，必须保证此控件已经可视，并且Enabled = True