用Visual Basic设计更好的用户界面

用visual basic设计更好的用户界面
　 有时在一个窗口中出现较多的控制件时，如果能向导式地建议用户下一步该做什么，不失为上策。

在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时，因为这时的回车键是起换行的作用。