图片与图标的使用也可以增加应用界面在视觉上的趣味。带有表示各种功能的图标的工具栏是一种很有用的界面设备，但如果不能清晰地识别图标所表示的功能，反而会事与愿违。在设计工具栏图标时，应先了解约定成俗的标准。例如，许多应用程序用一张角上有卷边的纸表示"新建文件"图标，若改用其它的表示方法会引起用户的混淆。考虑图象文化上的意义也非常重要，不同的人对相同图象的理解会不一样。同时在设计自己的图标与图象时，应尽量简单化。

　　字体也是用户界面的重要部分，因为它们常常给用户传递重要的信息。除非计划按应用程序来配置字体，否则应当坚持使用标准 Windows 字体，如 Arial、New Times Roman 、System等。通常手写字体或者其他装饰性字体的打印效果比屏幕上的效果更好。注意不要在应用程序中使用太多的字体，也不要设置太小的字体，以免影响用户阅读。

　　界面设计中也应考虑简单化的原则，从美学的角度来讲，整洁、简单明了的设计更可取。界面设计过程中一个容易犯的错误就是力图用界面来模仿真实世界的对象，这没有必要，对用户也没有真正的意义。最好是设计的界面，既能完成功能、又能让用户感到整洁舒心。

　　四 结论

　　总之，界面的设计要以用户为中心，应满足用户的需求。在此基础上，还要充分考虑界面的构图或布局，界面元素的位置、界面元素的一致性等问题来美化界面，提高应用程序界面的可用性和美感。

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

[1]  [2]  [3]  [4]