天
天 剑
用VB实现窗体背景花纹和全屏幕图形界面及动态功能提示
在开发软件的过程中，为提高软件的商品化程度，感觉到界面的美观程度是一个软件能否获得成功的一个重要因素，我们仔细研究了一些成功的商品化软件，从这些软件上可以看到,程序窗口背景能显示出非常美丽的、富有立体感的花纹。而采用Visual Basic进行窗体设计，若只按照系统提供的功能，只能从有限的几种颜色中选择一种颜色或采用程序绘制一些简单的线条。而想实现立体感很强的纹理图案，一般只能采用窗体的PICTURE属性调用位图文件，使用这种方法实现有许多缺点 ,其一是窗体大小受位图大小的限制，调整起来麻烦，不具有通用性和灵活性；其二是浪费资源，因为花纹图案基本上是重复图案，采用与窗体同样大小的位图是一种浪费。
一、窗体背景花纹实现的方法。
在窗体上建立一个网格控件，设定网格行不可见，去掉固定行和固定列，用程序实现网格控件与窗体同样大小，并随窗体大小的改变而改变。然后设计一个花纹图案，形成BMP位图文件(本文程序使用文件Pict1.bmp)，或者从其它图象中截取一段图案,也可以利用Windows系统提供的图案（如c:\windows\Tiles.bmp)，将其调入Picture控件。设定网格的每个单元与该图案大小相同，使单元的数量正好覆盖整个窗体背景，再将所有单元均显示该图案。通过子程序Backpict()实现以上过程，不论图案大小、窗体大小，程序都能自动调整网格控件大小和网格单元大小及单元数量。
该程序在Visual Basic 5.0上调试成功。
1.新建窗体Form1,属性如下：
Caption =“背景花纹的实现”
Borderstyle=3(无最大、最小化按钮）
2.建网格控件Grid1,它的位置和大小将在程序中设置（与Form1同样大）,属性为：
Enabled = False（焦点不会落在网格控件Grid1上）
Fillstyle=1（改变所有单元Text特性）
Fixedcols=0（无固定行）
Fixedrows=0（无固定列）
Gridlines = False（网格行不可见），
Visible = True
3.建立图象控件Picture1,程序运行时将背景花纹基本图案放入其中，属性为
Visible = False（不可见）
Autosize = True（自动调整大小）
4.控件中加入Sheridan 3D Controls,选取其中的三维命令按钮SSCommand,建立两个按钮
SSCommand1.Caption=“退出”
SSCommand2.Caption=“更换背景”（演示不同的背景图案）
它们的属性Picture可调用与背景相同或不同的图案，如果使用普通的命令按钮控件Command也可，只是命令按钮无背景图案。
5.建立背景图案形成子程序：
Dim pictfile As String '位图文件名
Dim FILEPATH As String '文件路径
Sub Backpict(pictfile)
picture1.ScaleMode = 3
Form1.ScaleMode = 3
picture1.Picture = LoadPicture(pictfile)
'网格控件覆盖整个窗体背景
grid1.Top = -1
grid1.Left = -1
grid1.Width = Width
grid1.Height = Height
grid1.Cols=Int(Form1.ScaleWidth/picture1.ScaleWidth) + 1
grid1.Rows=Int(Form1.ScaleHeight/picture1.ScaleHeight) + 1
'所有单元大小等于基本图案大小
For i = 0 To grid1.Cols - 1
For j = 0 To grid1.Rows - 1
grid1.ColWidth(i) = picture1.ScaleWidth * 15
grid1.RowHeight(j) = picture1.ScaleHeight * 15
Next j
Next I
'选定所有单元
grid1.SelStartCol = 0
grid1.SelStartRow = 0
grid1.SelEndCol = grid1.Cols - 1
grid1.SelEndRow = grid1.Rows - 1
grid1.Picture = Picture1.Picture
End Sub
6.窗体主程序
Private Sub Form_Load()
Private Sub Form_Load()
'得到运行程序路径名，路径名后带反斜杠
If Right(App.Path, 1) <> "" Then
filePath = App.Path & ""
Else
filePath = App.Path
End If
'窗体初始显示由Tiles.bmp基本图案组成的背景
pictfile = "c:\windows\Tiles.bmp"
backpict (pictfile)
End Sub
7.退出程序命令按钮
Private Sub SSCommand1_Click()
End
End Sub
8.演示不同的底纹图案
Private Sub SSCommand2_Click()
'两种背景图案交替演示
If pictfile = filePath & "Pict1.bmp" Then
pictfile = "c:\windows\Tiles.bmp"
Else
pictfile = filePath & "Pict1.bmp"
End If
Backpict (pictfile)
End Sub
二、 全屏幕图形界面设计
图形界面是现代软件中人机交互的主要手段。为了追求界面的统一和美观，在软件开放过程中，图形界面大多采用全屏幕构图方式。这是通过将窗体的边框设置为无边框（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
在开发软件的过程中，为提高软件的商品化程度，感觉到界面的美观程度是一个软件能否获得成功的一个重要因素，我们仔细研究了一些成功的商品化软件，从这些软件上可以看到,程序窗口背景能显示出非常美丽的、富有立体感的花纹。而采用Visual Basic进行窗体设计，若只按照系统提供的功能，只能从有限的几种颜色中选择一种颜色或采用程序绘制一些简单的线条。而想实现立体感很强的纹理图案，一般只能采用窗体的PICTURE属性调用位图文件，使用这种方法实现有许多缺点 ,其一是窗体大小受位图大小的限制，调整起来麻烦，不具有通用性和灵活性；其二是浪费资源，因为花纹图案基本上是重复图案，采用与窗体同样大小的位图是一种浪费。
一、窗体背景花纹实现的方法。
在窗体上建立一个网格控件，设定网格行不可见，去掉固定行和固定列，用程序实现网格控件与窗体同样大小，并随窗体大小的改变而改变。然后设计一个花纹图案，形成BMP位图文件(本文程序使用文件Pict1.bmp)，或者从其它图象中截取一段图案,也可以利用Windows系统提供的图案（如c:\windows\Tiles.bmp)，将其调入Picture控件。设定网格的每个单元与该图案大小相同，使单元的数量正好覆盖整个窗体背景，再将所有单元均显示该图案。通过子程序Backpict()实现以上过程，不论图案大小、窗体大小，程序都能自动调整网格控件大小和网格单元大小及单元数量。
该程序在Visual Basic 5.0上调试成功。
1.新建窗体Form1,属性如下：
Caption =“背景花纹的实现”
Borderstyle=3(无最大、最小化按钮）
2.建网格控件Grid1,它的位置和大小将在程序中设置（与Form1同样大）,属性为：
Enabled = False（焦点不会落在网格控件Grid1上）
Fillstyle=1（改变所有单元Text特性）
Fixedcols=0（无固定行）
Fixedrows=0（无固定列）
Gridlines = False（网格行不可见），
Visible = True
3.建立图象控件Picture1,程序运行时将背景花纹基本图案放入其中，属性为
Visible = False（不可见）
Autosize = True（自动调整大小）
4.控件中加入Sheridan 3D Controls,选取其中的三维命令按钮SSCommand,建立两个按钮
SSCommand1.Caption=“退出”
SSCommand2.Caption=“更换背景”（演示不同的背景图案）
它们的属性Picture可调用与背景相同或不同的图案，如果使用普通的命令按钮控件Command也可，只是命令按钮无背景图案。
5.建立背景图案形成子程序：
Dim pictfile As String '位图文件名
Dim FILEPATH As String '文件路径
Sub Backpict(pictfile)
picture1.ScaleMode = 3
Form1.ScaleMode = 3
picture1.Picture = LoadPicture(pictfile)
'网格控件覆盖整个窗体背景
grid1.Top = -1
grid1.Left = -1
grid1.Width = Width
grid1.Height = Height
grid1.Cols=Int(Form1.ScaleWidth/picture1.ScaleWidth) + 1
grid1.Rows=Int(Form1.ScaleHeight/picture1.ScaleHeight) + 1
'所有单元大小等于基本图案大小
For i = 0 To grid1.Cols - 1
For j = 0 To grid1.Rows - 1
grid1.ColWidth(i) = picture1.ScaleWidth * 15
grid1.RowHeight(j) = picture1.ScaleHeight * 15
Next j
Next I
'选定所有单元
grid1.SelStartCol = 0
grid1.SelStartRow = 0
grid1.SelEndCol = grid1.Cols - 1
grid1.SelEndRow = grid1.Rows - 1
grid1.Picture = Picture1.Picture
End Sub
6.窗体主程序
Private Sub Form_Load()
Private Sub Form_Load()
'得到运行程序路径名，路径名后带反斜杠
If Right(App.Path, 1) <> "" Then
filePath = App.Path & ""
Else
filePath = App.Path
End If
'窗体初始显示由Tiles.bmp基本图案组成的背景
pictfile = "c:\windows\Tiles.bmp"
backpict (pictfile)
End Sub
7.退出程序命令按钮
Private Sub SSCommand1_Click()
End
End Sub
8.演示不同的底纹图案
Private Sub SSCommand2_Click()
'两种背景图案交替演示
If pictfile = filePath & "Pict1.bmp" Then
pictfile = "c:\windows\Tiles.bmp"
Else
pictfile = filePath & "Pict1.bmp"
End If
Backpict (pictfile)
End Sub
二、 全屏幕图形界面设计
图形界面是现代软件中人机交互的主要手段。为了追求界面的统一和美观，在软件开放过程中，图形界面大多采用全屏幕构图方式。这是通过将窗体的边框设置为无边框（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