方法一:'在加载时,将HScroll1滚动条的TAB顺序设置为首选:Private Sub Form_Load()HScroll1.TabIndex = 0 ‘设置为首选End Sub方法二:'在加载时,将焦点设置到滚动条上:Private Sub Form_Load()HScroll1.SetFocus '设置焦点End Sub
Private Sub Form_Activate()HScroll1.SetFocusEnd Sub
不是用.SetFocus就可以了吗?