有时在一个窗口中出现较多的控制件时，如果能向导式地建议用户下一步该做什么，不失为上策。 在Visual Basic的程序设计中，我们可以使用语句：Object.SetFaocus使我们希望的控件得到 输入焦点，举个例子：在Form1中我们加入一个按钮Command1和一个文本输入Text1，双击按钮 控件，然后键入如下代码： Text1.SetFocus 再按F5运行程序，您就会看到一单击按钮，文本框会立即取得输入焦点。另外，我们还可以使 用语句：Sendkeys "{TAB}" 使下一个控件获得焦点，但我们需要在设计时确定各控件的Index值。(在Properties窗口中) 让控件自己感知自己的工作已完成，而主动将焦点让出，会使用户觉得应用程序很聪明，也减 少了用户出错的机会。 可是当焦点切换的两个控件相隔有一定距离时，上述的方法有时也不足以引起用户的注意，那 么一种好的解决方法是将鼠标箭头也移到控件上。可惜，VB并不支持鼠标移动，那我们就求助 API函数，API函数SetCursorPos可让我们如愿。 下面是子程序MoveCursorOn，它可让鼠标移动到指定控件上方。 下列代码请放在declarations段中： Type PoinTAPI x As Integer y As Integer End Type Declare Sub SetCursorPos Lib "User"(Byval x As Integer,Byval y As Integer) Declare Sub ClientToScreen Lib "User"(Byval hwnd As Integer,IpPoint As PointAPI) Declare Function GetParent Lib "User"(Byval hwnd As Integer)As Integer 然后建立一个新的子程序(ALT＋N→N→键入子程序名MoveCursorOn)，下面是子程序的代码： Sub MoveCursorOn(source As Control) Dim Pt As PoinTAPI Dim hparent As Integer p.x=(Source.Left＋Source.Width/2)/Screen.Twipsperpixel) p.y=(Source.Top＋Source.Height/2)/Screen.Twipsperpixel) hparent=GetParent(source.hwnd) ClientToScreen hparent pt SetCursorPos pt.x pt.y End Sub 使用该子程序很容易，例如我们想把鼠标移动到按钮Command1上，就可使用语句 Move Cursor On Command1 您会看到鼠标箭头已经指着按钮Command1。 需要说明的是，千万不要滥用该子程序。让鼠标自己满屏乱飞，我们的用户会感到失去对应用 程序的控制，这是违反我们的初衷的。 在有数个输入框的窗口中(这在数据库应用程序中是很典型的)，当用户完成第一个输入框的输 入后，总爱习惯性的加一个回车，希望输入焦点落到下一个输入框中(DOS中大多数应用程序是 如此)，可往往事与愿违，这一回车却触发了拥有Default特性的按钮，结果不是关闭了当前窗 口就是又蹦出另一窗口。用户睁大眼睛看着屏幕，“咦？！我到底做了什么？”这是Windows新 用户经常遇到的事情。 解决它其实很容易，只需在输入框的KeyPress事件中加入如下代码： IF KeyASCII=13 Then KeyASCII=0 Sendkeys "{TAB}" END IF 这样，当用户在这个输入框中键入Enter时，就象键入TAB键时，焦点被移到下一控件上。但需 注意，这种方法不适用于多行的TextBox，即TextBox的MultiLine特性设为True时，因为这时 的回车键是起换行的作用。
to BLsoft(網龍ζ龍活): 你说的是鼠标箭头, 而我所说的是控件的焦点(如果是Textbox控件, 就是它的插字符)
在Visual Basic的程序设计中，我们可以使用语句：Object.SetFaocus使我们希望的控件得到
输入焦点，举个例子：在Form1中我们加入一个按钮Command1和一个文本输入Text1，双击按钮
控件，然后键入如下代码：
Text1.SetFocus
再按F5运行程序，您就会看到一单击按钮，文本框会立即取得输入焦点。另外，我们还可以使
用语句：Sendkeys "{TAB}"
使下一个控件获得焦点，但我们需要在设计时确定各控件的Index值。(在Properties窗口中)
让控件自己感知自己的工作已完成，而主动将焦点让出，会使用户觉得应用程序很聪明，也减
少了用户出错的机会。
可是当焦点切换的两个控件相隔有一定距离时，上述的方法有时也不足以引起用户的注意，那
么一种好的解决方法是将鼠标箭头也移到控件上。可惜，VB并不支持鼠标移动，那我们就求助
API函数，API函数SetCursorPos可让我们如愿。
下面是子程序MoveCursorOn，它可让鼠标移动到指定控件上方。
下列代码请放在declarations段中：
Type PoinTAPI
x As Integer
y As Integer
End Type
Declare Sub SetCursorPos Lib "User"(Byval x As Integer,Byval y As Integer)
Declare Sub ClientToScreen Lib "User"(Byval hwnd As Integer,IpPoint As PointAPI)
Declare Function GetParent Lib "User"(Byval hwnd As Integer)As Integer
然后建立一个新的子程序(ALT＋N→N→键入子程序名MoveCursorOn)，下面是子程序的代码：
Sub MoveCursorOn(source As Control)
Dim Pt As PoinTAPI
Dim hparent As Integer
p.x=(Source.Left＋Source.Width/2)/Screen.Twipsperpixel)
p.y=(Source.Top＋Source.Height/2)/Screen.Twipsperpixel)
hparent=GetParent(source.hwnd)
ClientToScreen hparent pt
SetCursorPos pt.x pt.y
End Sub
使用该子程序很容易，例如我们想把鼠标移动到按钮Command1上，就可使用语句
Move Cursor On Command1
您会看到鼠标箭头已经指着按钮Command1。
需要说明的是，千万不要滥用该子程序。让鼠标自己满屏乱飞，我们的用户会感到失去对应用
程序的控制，这是违反我们的初衷的。
在有数个输入框的窗口中(这在数据库应用程序中是很典型的)，当用户完成第一个输入框的输
入后，总爱习惯性的加一个回车，希望输入焦点落到下一个输入框中(DOS中大多数应用程序是
如此)，可往往事与愿违，这一回车却触发了拥有Default特性的按钮，结果不是关闭了当前窗
口就是又蹦出另一窗口。用户睁大眼睛看着屏幕，“咦？！我到底做了什么？”这是Windows新
用户经常遇到的事情。
解决它其实很容易，只需在输入框的KeyPress事件中加入如下代码：
IF KeyASCII=13 Then
KeyASCII=0
Sendkeys "{TAB}"
END IF
这样，当用户在这个输入框中键入Enter时，就象键入TAB键时，焦点被移到下一控件上。但需
注意，这种方法不适用于多行的TextBox，即TextBox的MultiLine特性设为True时，因为这时
的回车键是起换行的作用。
你说的是鼠标箭头, 而我所说的是控件的焦点(如果是Textbox控件, 就是它的插字符)