用VB实现全屏幕图形界面及动态功能提示

一、 全屏幕图形界面设计
图形界面是现代软件中人机交互的主要手段。为了追求界面的统一和美观，在
软件开放过程中，图形界面大多采用全屏幕构图方式。这是通过将窗体的边框设置
为无边框（BorderStyle=None），将窗体显示模式设置为极大化（WindowState=
Maximized）来实现的。
当一个窗体界面的设计中要容纳多张图片和多个控制时，将出现窗体显示速度
明显变慢的现象，严重影响了程序运行的流畅性。为了解决这一问题，在开放过程
中，采用了一种将【界面设计窗体】与【功能实现窗体】分开处理的方法。
在【界面设计窗体】中，首先按功能的需要和界面设计的创意，将所需的大量
图片和控制在屏幕上安排好，选择美观的字体、颜色、线型，对屏幕界面进行设计、
修饰加工；然后在其全屏幕运行的状态下，利用剪贴技术，将这一设计完成的图形
界面全屏幕复制到剪贴板上；接着将这一屏幕映象作为一张图片粘贴在【功能实现
窗体】的背景上。这样，从外观上看，两个窗体的形状完全相同，而在屏幕的显示
速度上，后者明显加快。这时，【功能实现窗体】中的控件已变成一个象征性的图
标，对它的操作，可在控制图标的对应位置上设置一个Image 类型的图象框，通过
对图象框的操作，来代替原先对控制对象的操作。
采用这种方法，使窗体界面设计的灵活性大大增加，可以任意发挥，而不用担
心控件、图片太多，影响窗体的显示速度。但采用这种方法，将不可避免地增加应
用程序本身所占的存储容量，这是以容量换取速度必须付出的代价。
二、 动态功能提示信息的实现
在现代软件设计中，多数功能图标、按钮都在界面上直接确定其对应的名称，
同时也提供了动态提示的功能，即当鼠标移至某一控件时，或使鼠标的形状用一具
有象征意义的图标代替，或自动出现一条文字提示，下面介绍一下如何实现这种先
进的提示模式。
动态改变鼠标的图形形状，是通过控件的MousePointer属性设置为13（自定义）
，然后在MouseIeon属性中选取一ICO图标文件来完成的；动态文字提示功能是利用
控件的MouseMove事件来实现的：将功能提示处理程序设计在对应的MouseMove事件
过程中，当鼠标移动到该控件范围区域时，即可触发程序执行，完成动态功能提示；
为了防止处理程序反复触发，必须设置一控制开关，使处理程序只在鼠标第一次触
发该控件区域时被执行；取消功能提示的处理程序设计在窗体的MouseMove事件中，
说明程序如下：
Dim FirstTouch As Boolean ''防止反复触发处理程序的控制变量
Private Sub ControlObject- MouseMove ()
If FirstTouch Then
FirstTouch =False ''显示功能提示字符
End Sub
　
Private Sub Form- MouseMove ()
FirstTouch =True ''取消功能提示字符
End Sub